Makro in PhotoPaint

[Karthagos]

Hallo Koter,
danke für das überarbeitete Makro, klappt prinzipiell auch mit 2019, aber
ich bekomme folgende Eingabemaske
   
bei Dateiname steht jetzt der gesamte Pfad drin, allerdings blau hinterlegt, kann man also mit einem Klick überschreiben.

   
Allerdings übernimmt er nicht den eingestellten Dateityp (jpg) sondern speichert nur den eingegebenen Namen.
   
Könnte ich korrigieren, indem ich die Dateiendung bei Eingabe des Dateinamens mit eingebe, also in diesem Falle „Test.jpg“

[koter]

Hallo Günther,

ein neuer Versuch:

Code:

Sub JPGneuAusAuswahl()
   Dim L As Layer
   Dim ND As Document
   Dim DN As String, DName As String, DPfad As String
   Dim EF As ExportFilter
   If ActiveDocument.Mask.IsEmpty Then
       MsgBox "Keine Maske!", vbCritical, "Fehler"
       Exit Sub
   End If
   DName = Left(ActiveDocument.FileName, Len(ActiveDocument.FileName) - 3) & "jpg"
   DPfad = ActiveDocument.FilePath
   DN = CorelScriptTools.GetFileBox("JPG (*.jpg)|*.jpg", "Datei Speichern", 1, "Neu", ".jpg", DPfad)
   If Trim(DN) = "" Then Exit Sub
   Set L = ActiveDocument.Layers.Add("JPG", , , pntCopySelection)
   L.Cut
   Set ND = Application.CreateDocumentFromClipboard
   ND.Layers.Merge
   Set EF = ND.SaveAs(DN, cdrJPEG)
   EF.Finish
End Sub

Gruß

Koter

[Karthagos]

Hallo Koter,
jetzt ist es perfekt, vielen Dank dafür. Der Vollständigkeit halber nachfolgend nochmal eine Bilderstrecke:
1. Rechteckmaske auf Bild gezogen
   
2. Makro ausgeführt
   
3. Dateinamen mit neuem Namen überschrieben (ohne .jpg-Endung)
   
4. jpg wurde automatisch angefügt
   

Ich denke, das ist auch für den einen oder anderen PhotoPaint-Nutzer interessant.
Nochmals vielen Dank für Deine Mühe.

[Unkraut]

Das JPG Format kann sowieso keine Ebenen bzw Vektorobjekte enthalten, deshalb ist die Warnmeldung in 2019 beim JPG eigentlich überflüssig.
Vielleicht denken die sich bei Corel...... lieber doppelte Sicherheit gerade an kritischen Tagen

Hallo Norre,
die Warnmeldungen kann man doch unter --> Extra --> Optionen seinen Bedürfnissen / Unachtsamkeinten anpassen. Manchmal sind sie nicht ganz so doof, die Corel-Leute.

Liebe Grüße, Chris

[Karthagos]

Hallo Chris,
da muss man auch erst mal drauf kommen. Die meisten Einträge kann ich gar nicht richtig bewerten.
Hab mal alle in PhotoPaint nachfolgend aufgelistet:


Add-ons konnten nicht geladen werden

Autom. Bildspeicherung

Der Farbmodus wird nicht unterstützt.

Effekte können nur auf das aktive Objekt angewendet werden

Export als JPEG 2000

Farben aus der Dokumentpalette werden gelöscht

Layout-Bilder unterliegen Copyright- und Nutzungsbeschränkungen

Linsen zeigen ein dynamisches Verhalten

Löschen von Schriften in Corel Font Manager

Maske wird unverschiebbar gemacht

Objekte mit dem Hintergrund kombinieren

OpenType-Funktionen für vertikalen Text werden nicht unterstützt

PSD-Dateien enthalten Stile auf Ebenen

PSD-Version wird nicht unterstützt

RGB-Farben werden aktualisiert

RIFF-Version wird nicht unterstützt

Rollover müssen sich im Bearbeitungsmodus befinden, um geändert zu werden

Rollover überlappen

Transparenz kann nicht bearbeitet werden

Umformen von Text

Vor Nutzung der Intelligenten Schneidefunktion Objekte mit dem Hintergrund kombinieren

Zurücksetzen der Bildpalette

Zuweisung des Hilfsmittels

Ändern der Inhalte-Speicherorte

Öffnen von Objekten mit Zuschneidemasken im Ausschnitt-Editor

Öffnen von RAW-Dateien

Öffnen von schreibgeschützten Dateien und Verwenden von Hilfsmitteln, die das Auswählen eines Objekts erfordern