Makro in PhotoPaint

[koter]

Hallo Günther,

...Schöner wäre es wenn ich diesen Speicherdialog mit voreingestelltem Dateityp .jpg hätte...

Du kannst es mit diesem Makro versuchen:

Code:

Sub JPGneuAusAuswahl()
   Dim L As Layer
   Dim ND As Document
   Dim DN As String
   Dim EF As ExportFilter
   If ActiveDocument.Mask.IsEmpty Then
       MsgBox "Keine Maske!", vbCritical, "Fehler"
       Exit Sub
   End If
   DN = Left(ActiveDocument.FullFileName, Len(ActiveDocument.FullFileName) - 3) & "jpg"
   DN = CorelScriptTools.GetFileBox("JPG (*.jpg)|*.jpg", "Datei Speichern", 1, DN)
   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

Der Dialog ist Deinem Screenshot ähnlich.
Ich bin nur nicht sicher, ob es mit Deiner Version klappt.
Ich habe X7.

Gruß

Koter