Add a new shape : Shapes « Excel « VBA / Excel / Access / Word

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

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

 

Related examples in the same category