Move object to center of visible area

Moiz over 1 year ago

Hello,

When a file is imported (via VBA code) it is placed in center of page.

How do I import/move the objects to center of currently visible area?

Thanks.

Top Replies

Eskimo over 1 year ago +2 verified

You could use ActiveWindow.ActiveView.GetViewArea to get the location and dimensions of the view area, and then reposition objects using that information. One example: Sub center_selected_to_view...

+1 Eskimo over 1 year ago

You could use ActiveWindow.ActiveView.GetViewArea to get the location and dimensions of the view area, and then reposition objects using that information. One example:

Sub center_selected_to_view()

Dim dblX As Double
Dim dblY As Double
Dim dblW As Double
Dim dblH As Double
Dim sr As ShapeRange

    ActiveWindow.ActiveView.GetViewArea dblX, dblY, dblW, dblH
    
    Set sr = ActiveSelectionRange
    sr.CenterX = dblX + dblW / 2
    sr.CenterY = dblY + dblH / 2
    
End Sub

0 Moiz over 1 year ago in reply to Eskimo

ٗThanks for the helpful code.

I also figured out the GetViewArea method.

But instead of setting CenterX and CenterY, I was moving the object to X, Y values returned from GetViewArea.

Thanks.
Cancel
Up 0 Down

Reply

Verify Answer

Cancel