Precisely reposition a graphic

Q

quartz

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.
 
D

Dave Peterson

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
 
Top