How do i select an inserted image.

[SpeeD]

Ho i´ve inserted an image in excel, but i need to make some ajustements
(position) as some columns are hidden or not...

How do i select in VBA an allready inserted image? (embeded)
i ned to do the folowing.... (but doenst work)

Dim myPict As Picture
With ActiveSheet.Range("p2")
Set myPict = ActiveSheet.Shapes("Picture18")
myPict.Top = .Top
myPict.Left = .Left - 50
myPict.Placement = xlMove

End With

 

[Patrick Molloy]

my demo:

Sub MoveIt()
Dim oPic As Shape

If ActiveSheet.Shapes.Count = 1 Then
Set oPic = ActiveSheet.Shapes(1)
With oPic
.Top = 0
.Left = 50
End With
End If
End Sub