Mega Code Archive

 

Categories / VisualBasic Script / Excel

 

Display auto shapes

Sub DisplayAutoShapes()     Dim sh As Shape     Dim i As Integer     Set sh = ActiveSheet.Shapes.AddShape(1, 100, 100, 72, 72)     For i = 1 To 138        sh.AutoShapeType = i        sh.Visible = True        ActiveSheet.Cells(1, 1).Value = sh.AutoShapeType        Delay 0.5     Next i End Sub