Excel VisualBasic Script

  1. Home
  2. VisualBasic Script
  3. Excel
  4. 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