Position des Bildschirmes auf einem Objekt

[koter]

Hallo Fritz,

Wenn der Zoom erhalten bleiben soll, geht das einem Makro:

Code:

Sub ObjektAnsichtAufMitte()
    If ActiveSelectionRange.Shapes.Count = 0 Then Exit Sub
    z = ActiveWindow.ActiveView.Zoom
    ActiveWindow.ActiveView.ToFitSelection
    ActiveWindow.ActiveView.SetViewPoint _
    ActiveSelectionRange.CenterX, _
    ActiveSelectionRange.CenterY, z
End Sub

Auch hier gilt was Norre gesagt hat:
Das bezieht sich immer auf den Corel Desktop, nicht auf den gesamten Bildschirm.

Gruß

Koter