How to select all images in a single excel column ? I have images in cells of column A, B and C. And I want to select only c column images.

[icesanta]

How to select all images in a single excel column ? I have images in cells of column A, B and C. And I want to select only c column images.

 

[Zubair Muhammad]

Hello icesanta,

Try this code.

Sub SelectPictures()
Dim myshapearray() As String
For Each Shape In ActiveSheet.Shapes
    If Shape.Left > Range("B1").Left + Range("B1").Width / 2 Then
    k = k + 1
    ReDim Preserve myshapearray(1 To k) As String
    myshapearray(k) = Shape.Name
    End If
Next
ActiveSheet.Shapes.Range(myshapearray).Select

End Sub

 

[icesanta]

Thanks a lot. It worked.
How to change the code to capture only one column say only column B and not C.

 

[Zubair Muhammad]

Thanks a lot. It worked.
How to change the code to capture only one column say only column B and not C.

Hello icesanta,

Try this one for selecting Column B pictures.

Sub SelectPictures()
Dim myshapearray() As String
For Each Shape In ActiveSheet.Shapes
    If Shape.Left > Range("A1").Left + Range("A1").Width / 2 And Shape.Left < (Range("C1").Left - Range("B1").Width / 2) Then
    k = k + 1
    ReDim Preserve myshapearray(1 To k) As String
    myshapearray(k) = Shape.Name
    End If
Next
ActiveSheet.Shapes.Range(myshapearray).Select

End Sub