Makro in PhotoPaint

[koter]

Hallo Günther,

probiere es mit dem folgenden Makro:

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"
   Set L = ActiveDocument.Layers.Add("JPG", , , pntCopySelection)
   L.Cut
   Set ND = Application.CreateDocumentFromClipboard
   ND.Layers.Merge
   DN = InputBox("Dateiname", "JPG Speichern", DN)
   Set EF = ND.SaveAs(DN, cdrJPEG)
   EF.Finish
End Sub

Erst eine Maske erstellen und dann das Makro starten.
Du kannst aber eine Auswahl auch als JPG exportieren (ohne Makro).

Gruß

Koter