how to identify a shape as a picture in excel from VB

  • Thread starter Thread starter Uwe
  • Start date Start date
U

Uwe

I have 600+ shapes in a spreadsheet. Half are the little red corner
associated with comments and half are small pictures in the same cell. How
can I select the picture in a given cell from VB?
 
You could use the shape's name to distinguish Comment from other
shapes.
The following example selects the first shape in F2 whose name does
not start with "Comment"...

Option Explicit
Sub select_shape()
Dim Shp As Shape
For Each Shp In ActiveSheet.Shapes
If Shp.TopLeftCell = Range("F2") _
And Left(Shp.Name, 7) <> "Comment" Then
Shp.Select
End If
Next
End Sub

Ken Johnson
 
Back
Top