Arbeitsbereich/ Blatt verschieben

[norre]

Hallo MvM,
bei Feanaro geht es nicht um den Randanschnitt, sondern nach den Import liegt die Grafik nicht auf der Zeichenfläche sondern ist verschoben.

@Feanaro
Hier habe ich ein Macro, dass alle Objekte auf die Zeichenfläche verschiebt

Code:

Sub ObjekteaufZeichnef()

    ActivePage.Shapes.All.CreateSelection
    Dim s1 As Shape
    Set s1 = ActiveSelection.Group
    s1.AlignToPageCenter cdrAlignLeft + cdrAlignRight + cdrAlignTop + cdrAlignBottom, cdrTextAlignBoundingBox
    Dim grp1 As ShapeRange
    Set grp1 = s1.UngroupEx    
    
   End Sub

das Teil hat nur nen Haken, dass es alles auf eine Ebene schiebt, vielleicht könnte sich das ja auch noch Dr.mac Koter ansehen und auch den Code von oben für das Entsperren und das Sperren der Ebenen zum Schluss noch einbauen.....ich habs nicht hinbekommen :-(