Can we identify position of image

[ThrottleWorks]

Hi,

I have a worksheet. This sheet has multiple pictures in it.
I want all the pictures to be visible from column A.
At present, these pictures might be visible from Column D or Column E.

How do I identify, if the picture is located at Column D and move it to column A.
Can anyone please help me in this.

 

[Chihiro]

Something like this.

Sub test()
Dim img As Shape

For Each img In ThisWorkbook.Sheets("Sheet1").Shapes
    If img.TopLeftCell.Column > 1 And img.Type = msoPicture Then
        img.Left = Columns(1).Left
    End If
Next img

End Sub

You don't need to check for type if all shapes are pictures in the sheet.
Alternately if image should align with left edge of worksheet, you can check for img.Left <> 0 and set it to 0.

 

[ThrottleWorks]

Hi @Chihiro sir, you are awesome ! Thanks a lot. Have a nice day ahead.