Delete a shape : Shape « Excel « VBA / Excel / Access / Word






  1. VBA / Excel / Access / Word
  2. Excel
  3. Shape

Delete a shape

 

Sub DeleteShape()
   Set NewStar = ActiveSheet.Shapes.AddShape(msoShape4pointStar, LeftPos, TopPos, StarWidth, StarHeight)
   NewStar.Fill.ForeColor.SchemeColor = Int(Rnd() * 56)
   Application.Wait Now + TimeValue("00:00:01")
   DoEvents
   Application.Wait Now + TimeValue("00:00:02")

   Set myShapes = Worksheets(1).Shapes
   For Each myShape In myShapes
      myShape.Delete
      Application.Wait Now + TimeValue("00:00:01")
   
   Next
 
End Sub








Related examples in the same category

1.Get shape and output its z order
2.Draw a star
3.Create a shape and set its color
4.Looping through a Collection of Shapes
5.The OLEObjects Collection