Need code to scroll to a shape (using top left or shape name)

[QuantBurner]

Hi,
I've written some code that places a large number of shapes on a worksheet. The code also names each shape. I'd like some code to show me how to scroll the window to a specific shape. I can easily get the top and left of the shapes location. But, how do I use that data to scroll to? is there a way to ust use the shape name?
Thanks!

 

[Jaafar Tribak]

Hi,
I've written some code that places a large number of shapes on a worksheet. The code also names each shape. I'd like some code to show me how to scroll the window to a specific shape. I can easily get the top and left of the shapes location. But, how do I use that data to scroll to? is there a way to ust use the shape name?
Thanks!

Maybe something along these lines :

Sub Test()

    With ActiveSheet.Shapes("ShapeName")
        Application.Goto .TopLeftCell, True
        .Select
    End With

End Sub

Where ShapeName is the name of the target shape.

 

[QuantBurner]

Thanks. That does work. A couple quibbles though:
- That selects the shape and the user might move it then
- The shape ends up in the upper left. I was looking to have the shape centered in the wondow.

I came up with this:
dblTop = ActiveSheet.Shapes(strShapeName).Top
dblLeft = ActiveSheet.Shapes(strShapeName).Left
ActiveWindow.ScrollIntoView Left:=dblLeft + 300, Top:=dblTop - 150, _ Width:=100, Height:=200

This works O.K.

It appears that Excel will only scroll in whole unit cell/row increments so, I can't get the shape EXACTLY centered if my columns are wide/varying widths (which they are).

Cheers,