Makro erzeugt Laufzeitfehler

[norre]

Hallo Namensvetter,
mit dem Makro ist das natürlich das Nonplusultra.

Andere Möglichkeit alle Hilfslinien zu löschen z.B so
Über -->Extras-->Anpassung-->Befehle habe ich mir dem Punkt "alle Hilfslinien auswählen" rausgesucht und einen Tastaturbefehl zugewiesen.
Man könnte das Icon natürlich auch auf eine Symbolleiste ziehen.
Nun brauche ich nur noch (bei mir) Umschalt+U drücken und anschließen Entfernen auf der Tastatur und alle Hilfslinien sind gelöscht.

Auch ganz praktisch wenn man z.B nur horizontale Linien hat und alle um einen bestimmten Betrag verschieben will
   

Gruß
Norre

[nowa]

Hallo Norre,

Vielen Dank, das hilft schon mal sehr gut.

LG Norbert

[koter]

Hallo Norbert,

...Gibt es einen Befehl, der alle Hilfslinien löscht? Am besten im Makro selbst.

Ja, gibt es:

Code:

Sub DiesUndDasJedeSeiteOhneHilfslinien()
   Dim Seite As Page
   Dim MitUmriss As ShapeRange
   Dim Objekte As ShapeRange
   ActiveDocument.Unit = cdrMillimeter
   For Each Seite In ActiveDocument.Pages
       Seite.Activate
       ActiveDocument.BeginCommandGroup "DiesUndDas" & Seite.Index
       Set MitUmriss = Seite.Shapes.FindShapes(, , True, "@com.Outline.Width > 0")
       MitUmriss.Shapes.All.SetOutlinePropertiesEx ScaleWithShape:=cdrTrue
       Set Objekte = Seite.Shapes.All
'        Objekte.RemoveRange Seite.Guides
'        Objekte.RemoveRange ActiveDocument.MasterPage.Shapes.All
'        Hilfslinien löschen___________________________________
       Seite.GuidesLayer.Shapes.All.Delete
       ActiveDocument.MasterPage.GuidesLayer.Shapes.All.Delete
'        Hilfslinien löschen Ende______________________________
       With Objekte
           .ConvertToCurves
           .Group
           .Stretch 0.1
           .CenterX = ActivePage.CenterX
           .CenterY = ActivePage.CenterY
       End With
       Seite.SetSize 210, 297
       ActiveDocument.EndCommandGroup
       ActiveWindow.ActiveView.ToFitPage
   Next
End Sub

Es werden Alle Objekte auf den Hilfslinien-Ebenen gelöscht (auch auf der Master-Seite).
Wenn Du die Hilfslinien erhalten willst, kannst Du die Auskommentierung oberhalb der Kommentarzeile (Hilfslinien löschen) aufheben und die Befehle zum Löschen entfernen.

Mein Name für die Prozedur wird von Beitrag zu Beitrag immer bekloppter.
Vielleicht fällt Dir etwas besseres ein als „DiesUndDasJedeSeiteOhneHilfslinien“

Gruß

Koter

[nowa]

Perfekt, vielen Dank

Vielleicht fällt Dir etwas besseres ein als „DiesUndDasJedeSeiteOhneHilfslinien“

Das ist Super so. Ich kopiere den Code einfach in das alte Makro und der Name bleibt erhalten.
(Nachtrag: stimmt natürlich nicht, der Name wird aus dem Sub übernommen )

Diese ganze Makro-Verwaltung im Corel ist mir noch etwas suspekt.
Aber Hauptsache es funktioniert. (Jetzt argumentiere ich schon wie meine Frau )

Ich wünsche einen schönen 3. Advent.

Norbert