Mega Code Archive

 

Categories / VisualBasic Script / Excel

 

Add a new shape

Private Sub btnShowAllAutoShapes_Click()   Dim i&   On Error Resume Next   For i = 0 To 136     ActiveSheet.Shapes.AddShape i + 1, 40 + 50 * (i Mod 12), 50 + 50 * (i \ 12), 40, 40   Next End Sub