Arbeitsbereich/ Blatt verschieben
#11
Hallo Norre,

norre schrieb: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 :-(

Durch Dein Makro werden die Objekte gruppiert, Gruppen können aber nicht Ebenen-übergreifend sein, deshalb wird alles auf eine Ebene geschoben.

Besser wäre es, anstatt einer Gruppe, einen ShapeRange zu benutzen:

Code:
Sub Allesaufmitte()
    Dim sr1 As ShapeRange
    Set sr1 = ActivePage.Shapes.All
    sr1.RemoveRange ActivePage.GuidesLayer.Shapes.All       'Hilflinien ausschließen
    sr1.RemoveRange ActivePage.Layers("Bitmap").Shapes.All  'Layer "Bitmap" ausschließen
    sr1.RemoveRange ActiveDocument.MasterPage.Shapes.All    'Master-Seite ausschließen
    sr1.AlignRangeToPageCenter cdrAlignHCenter
End Sub

In diesem Beispiel werden die Ebene "Bitmap", die Hilfslinien und die Master-Seite ausgeschlossen.

Das Entsperren von Ebenen erspart man sich damit auch.
(Getestet mit X4 und X5)

Gruß

Koter
Zitieren
#12
koter schrieb:Durch Dein Makro werden die Objekte gruppiert, Gruppen können aber nicht Ebenen-übergreifend sein, deshalb wird alles auf eine Ebene geschoben.
Besser wäre es, anstatt einer Gruppe, einen ShapeRange zu benutzen:
Hallo Koter,
ja so funktioniert es :lol:,

tja wenn ich eine Funktion nicht mit dem Rekorder aufnehmen oder auf Kapazitäten wie dich "zurückgreifen" kann, bin ich in der Macrowelt ziemlich verloren [Bild: k050.gif]
Zitieren



Möglicherweise verwandte Themen...
Thema Verfasser Antworten Ansichten Letzter Beitrag
  Letzter Arbeitsbereich "merken" AnkeEbi 5 366 05.06.2020, 12:03
Letzter Beitrag: norre
  Knoten mit Bedienfeld verschieben. chrisberlin 11 431 22.01.2020, 23:53
Letzter Beitrag: norre
  Objekte verschieben Heinzi 6 517 31.03.2019, 02:35
Letzter Beitrag: koter
  CGM/SVG Export ohne "Arbeitsbereich" Lling 2 369 21.02.2019, 16:39
Letzter Beitrag: Lling
  Hilfslinien automatisch verschieben bei Formatwechsel OsCor 6 600 12.12.2018, 23:49
Letzter Beitrag: norre
  Punkte und Objekte per Tastatureingabe verschieben? Micha1138 11 799 14.01.2018, 23:21
Letzter Beitrag: Micha1138
  Verschieben einer Auswahl mit der Maus weschka 0 438 25.04.2017, 17:53
Letzter Beitrag: weschka
  X8 Arbeitsbereich anpassen WernerHo 9 1.212 27.01.2017, 08:46
Letzter Beitrag: Suc
  x8/win10: Seiten verschieben, doch keine Aktualisierung der Ansicht? mtemp 4 581 28.11.2016, 17:19
Letzter Beitrag: mtemp
  Schrittweise zum Objekte verschieben? Max 2 533 28.09.2016, 22:09
Letzter Beitrag: Max