Excel VisualBasic Script

  1. Home
  2. VisualBasic Script
  3. Excel
  4. Looping through a Collection of Shapes
Sub LoopThruShapes()
    Dim sh As Shape
    Dim I As Integer
    I = 1
    For Each sh In ActiveSheet.Shapes
        If sh.Type = msoLine Then
             Cells(I, 1).value = sh.name
             I = I + 1
        End If
    Next
End Sub