Mega Code Archive

 

Categories / VisualBasic Script / Excel

 

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