Új hozzászólás Aktív témák

• #31375 Nowitzki csendes tag Nowitzki #31374

  Új Válasz 2016-04-25 05:58:24 #31375

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Nowitzki

  csendes tag

  válasz Nowitzki #31374 üzenetére

  Vagy ha sok van és nem akarsz egyesével vacakolni velük akkor jelöld ki a munkafüzetet amiről szó van és futtasd ezt:

  Sub DeleteAllShapes()
  Dim Shp As Shape
  For Each Shp In ActiveSheet.Shapes
  Shp.Delete
  Next Shp
  End Sub

Új hozzászólás Aktív témák