Arbeitsbereich/ Blatt verschieben

[norre]

Da mich das entsperren der Ebenen aber immer genervt hat

Hallo Feanaro,
wenns dir um die Arbeit geht die Ebenen zu entsperren, kannst du einmal im Objektmanger z.B beim Icon "Bearbeitbar" mit der Maus oben ansetzen, linke Maustaste gedrückt halten und einfach runterfahren, so entsperrst bzw. sperrst du deine ganzen Ebenen ruckzuck.

Und dann habe ich seit Jahren diesen Macrocode benützt, alle Ebenen werden damit auf bearbeitbar gesetzt, bzw wieder gesperrt, ausgenommen davon sind Master-/Hauptebenen.

Code:

Sub Alle_Ebenen_bearbeitbar()
  
    Dim lyr As Layer
    For Each lyr In ActivePage.Layers
    lyr.Editable = true
    Next
  
End Sub

Sub Alle_Ebenen_sperren()
  
    Dim lyr As Layer
    For Each lyr In ActivePage.Layers
    lyr.Editable = false
    Next
  
End Sub

Dann gibt es es da ein kostenloses Macro http://macromonster.com/index.php?mod=de...&Submit=Go
damit kannst du alle gleichnamigen Ebenen auf allen Seiten gleichzeitig bearbeiten, umbenennen, verschieben usw.
Außerdem kannst du die Ebenen consolidieren, also Ebenen zusammenfassen wobei der optische Eindruck / Reihenfolge der Objekte bestehen bleibt.

Bearbeitet:nikowink2: