Makro erzeugt Laufzeitfehler
#11
Hallo Namensvetter,
mit dem Makro ist das natürlich das Nonplusultra. Daumenhoch

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
[-] 1 Benutzer bedankt sich bei norre für diesen Beitrag:
  • nowa
Zitieren
#12
Hallo Norre,

Vielen Dank, das hilft schon mal sehr gut.

LG Norbert
Zitieren
#13
Hallo Norbert,
(11.12.2020, 09:35)nowa schrieb: ...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
[-] 1 Benutzer bedankt sich bei koter für diesen Beitrag:
  • nowa
Zitieren
#14
Perfekt, vielen Dank


Zitat: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 Exclaim )

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

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

Norbert
Zitieren



Möglicherweise verwandte Themen...
Thema Verfasser Antworten Ansichten Letzter Beitrag
  Makro-Schutz FlyingGancho 7 267 27.11.2020, 21:23
Letzter Beitrag: koter
Question Altes .bas Makro mit CorelDraw 2017 öffnen GreenDread 2 777 01.04.2019, 17:03
Letzter Beitrag: GreenDread
  Makro gesucht, das alle offenen Andockfenster schließt und wiederherstellt datt Niggl 7 911 27.03.2017, 20:57
Letzter Beitrag: datt Niggl
  Flächenberechnung durch Makro oder Script BlackEagle85 20 12.101 28.12.2015, 17:39
Letzter Beitrag: Administrator
  DWG aus CDR erzeugt Problemix 13 2.289 01.06.2015, 10:48
Letzter Beitrag: Problemix
  Massenänderung der Dateiversion per Makro derhornist 3 1.051 13.04.2015, 21:57
Letzter Beitrag: norre
  X5 Farbpaletten ersetzen, Makro f. Dummies + Calendar Wizard Vectoria 18 2.299 06.02.2015, 02:46
Letzter Beitrag: koter
  Makro für Speicherort von Backups Unkraut 3 896 23.06.2014, 10:00
Letzter Beitrag: Unkraut
  Corel X5 Makro Haris 4 1.658 20.09.2012, 20:44
Letzter Beitrag: Haris
  einem Makro unter die Haube geschaut Unkraut 0 713 08.02.2011, 14:40
Letzter Beitrag: Unkraut