Precisely reposition a graphic
 

Hello.

I have a graphical object on a sheet and it is selected.
I need to move this object so that the top left corner of
the object is EXACTLY on the top left corner of cell "B2".

My code so far:

Dim objShape As Shape
Set objShape = ActiveSheet.Shapes(strSnapShotName)

objShape.?????

Please fill in what I need to do...thanks much in advance.

Precisely reposition a graphic
 

This worked for me:

Option Explicit
Sub testme01()
Dim objShape As Shape
With ActiveSheet
Set objShape = .Shapes(1) 'changed for testing!
With .Range("b2")
objShape.Top = .Top
objShape.Left = .Left
End With
End With
End Sub




quartz wrote:

Hello.

I have a graphical object on a sheet and it is selected.
I need to move this object so that the top left corner of
the object is EXACTLY on the top left corner of cell "B2".

My code so far:

Dim objShape As Shape
Set objShape = ActiveSheet.Shapes(strSnapShotName)

objShape.?????

Please fill in what I need to do...thanks much in advance.

--

Dave Peterson