Makro in PhotoPaint
#11
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“
Zitieren
#12
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
Zitieren
#13
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.
Zitieren
#14
(24.09.2019, 13:54)norre schrieb: 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 MrGreen

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

Betriebssystem / Grafik-Software: Win 7
Zitieren
#15
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
 
Zitieren



Möglicherweise verwandte Themen...
Thema Verfasser Antworten Ansichten Letzter Beitrag
  Bild/Foto im Ausschnitt-Editor von PhotoPaint bearbeiten Karthagos 4 404 01.10.2019, 10:24
Letzter Beitrag: Karthagos
  PhotoPaint als Standard für JPG / Version 2019 niereeck 3 169 23.05.2019, 14:18
Letzter Beitrag: norre
  Automatisierung über Makro zu langsam 93dd 1 188 26.08.2018, 15:36
Letzter Beitrag: koter
  Schriftgröße Photopaint X8 mikety 2 293 30.07.2018, 21:36
Letzter Beitrag: mikety
  Verschiebematrix bei Corel Photopaint X7 Heinzi 7 1.114 12.12.2016, 01:54
Letzter Beitrag: skifan
  PhotoPaint X5 - Speichern als Jpg nicht mehr möglich Friedhelm Peters 10 6.306 24.11.2016, 16:01
Letzter Beitrag: mvm
  Corel photopaint x8 beim Ausschnitteditor permanenter Absturz CharlyHarper 2 1.018 16.06.2016, 20:03
Letzter Beitrag: CharlyHarper
  Text aus Word in PhotoPaint einfügen? Givago 1 580 24.05.2016, 23:15
Letzter Beitrag: norre
  Plugins in Corel Photopaint x8 CharlyHarper 3 1.279 18.04.2016, 09:11
Letzter Beitrag: morphsuite
  Auswahl-Rahmen in PhotoPaint weschka 1 592 28.02.2016, 11:14
Letzter Beitrag: Berlinerillustrator