Loop Through Worksheet Pictures, Display Properties and Delete
This example show the syntax to loop through all the pictures in a worksheet, print some of their properties, and delete them.
Program Code
Option Explicit
Public Sub LoopThroughPictures()
Dim Shape As Shape
For Each Shape In ActiveSheet.Shapes
If Left(Shape.Name, 7) = "Picture" Then
Shape.Select
Debug.Print Shape.Name
Debug.Print Shape.Left
Debug.Print Shape.Top
Debug.Print Shape.BottomRightCell.Address
Debug.Print Shape.TopLeftCell.Address
Shape.Delete
End If
Next
End Sub
