Makro erzeugt Laufzeitfehler

[koter]

Hallo Norbert,

...Gibt es eigentlich eine Übersicht dieser "Makro-Syntax"?
Ich kann leider nur Fortran, Pascal, und Basic (nix objektorientiertes)

Fortran ist objektorientiert und die Makros werden in Basic geschrieben,
(wie beim C64 nur ohne Zeilennummern) also kannst Du ja schon fast alles!
Eigene Objektklassen musst Du nicht anlegen, die liefert Corel.

Eine Übersicht der Syntax erreichst Du mit der F1-Taste und die Objekte
stehen im Objekt-Katalog, den erreichst Du mit der F2-Taste.

Nur Eines ist komisch: Alle Objekte haben nach der Ausführung einen Umriss, das sollte nicht sein.
Objekte ohne Umriss sollen auch ohne Umriss bleiben.

Das ist nicht komisch, das liegt an dem „Rutsch“.
Du musst den Teil: „dann alle Linien mitscalieren“ aus dem „Rutsch“ nehmen und vorziehen:

Code:

Sub DiesUndDas()
   Dim MitUmriss As ShapeRange ' ShapeRange-Objekt deklarieren
   ActiveDocument.Unit = cdrMillimeter
   Set MitUmriss = ActivePage.Shapes.FindShapes(, , True, "@com.Outline.Width > 0") 'alle Objekte mit Umriss finden
   MitUmriss.Shapes.All.SetOutlinePropertiesEx ScaleWithShape:=cdrTrue 'alle Linien mitscalieren
   With ActivePage.Shapes.All
       .ConvertToCurves 'dann alles in Kurven umwandeln
       .Group 'dann Alles gruppieren
       .Stretch 0.1 'diese Gruppe dann auf 10% verkleinern
       .CenterX = ActivePage.CenterX 'dann die Gruppe auf die Seite zentrieren
       .CenterY = ActivePage.CenterY
   End With
   ActivePage.SetSize 210, 297 'dann die Seitengröße auf DIN A4 umstellen
   ActiveWindow.ActiveView.ToFitPage '(Ansicht auf ganze Seite umstellen)
End Sub

Gruß

Koter