12.03.2022, 12:56
Hallo Stefan,
Du belästigst mich nicht, würdest Du das tun, würde ich einfach nicht mehr antworten.
Falls es nicht geheim ist: Was ist das für ein Projekt? (jetzt hast Du mich neugierig gemacht)
Die Vorlage gar nicht öffnen, sondern eine CDR daraus erstellen und diese speichern:
Da kann ich nur raten: Vielleicht hat die Variable „cdrFlipHorizontal“ den Wert 0.
Gruß
Koter
(12.03.2022, 11:36)StefanA1987 schrieb: ...ich bin so gut wie am Ende meines Projektes und meine Belästigungen hören bald auf, versprochen!...
Du belästigst mich nicht, würdest Du das tun, würde ich einfach nicht mehr antworten.
Falls es nicht geheim ist: Was ist das für ein Projekt? (jetzt hast Du mich neugierig gemacht)
(12.03.2022, 11:36)StefanA1987 schrieb: 1. Ich habe eine CorelDraw Vorlage (.cdt) offen und möchte diese gerne als CorelDraw Datei (.cdr) in einen bestimmten Pfad speichern. Wie soll ich das machen, mit der Save Methode, SaveAs? Eigenschaften? Bitte bitte ein Beispiel wie immer.
Die Vorlage gar nicht öffnen, sondern eine CDR daraus erstellen und diese speichern:
Code:
Sub AusVorlage()
Dim Doc As Object, CDraw As Object
Dim Vorlage As String, Dateiname As String
Vorlage = "C:\temp\corelforum\StefanA1987\Vorlagen\Stefan-1.cdt"
Dateiname = "C:\temp\corelforum\StefanA1987\Neu.cdr"
Set CDraw = CDrawObj
Set Doc = CDraw.CreateDocumentFromTemplate(Vorlage, True) 'Dokument aus Vorlage erstellen
Doc.SaveAs Dateiname, Nothing 'Dokument speichern
Set CDraw = Nothing
End Sub
(12.03.2022, 11:36)StefanA1987 schrieb: 2. Eigentlich möchte ich nur Alle Objekte auf der Seite horizontal Spiegeln und zwar so:
CDraw.ActiveDocument.ActiveLayer.SelectableShapes.All.Flip cdrFlipHorizontal
Funktioniert aber nicht, bringt aber keinen Fehler... was ist da los? :-)
Da kann ich nur raten: Vielleicht hat die Variable „cdrFlipHorizontal“ den Wert 0.
Gruß
Koter