Grafik mit transparentem Hintergrund erstellen

[koter]

Hallo Günther,

ich hoffe ich habe es richtig kapiert und dass das Makro mit Deiner Version kompatibel ist:



Du musst eine Maske erstellen und dann das Makro ausführen.

Ich habe nur das JPG-Makro etwas angepasst:

Code:

Sub PNGExport()
   Dim D As Document
   Dim L1 As Layer
   Dim dn As String, DName As String, DPfad As String
   Dim EF As ExportFilter
   
   Set D = ActiveDocument
   If ActiveDocument.Mask.IsEmpty Then
       MsgBox "Bitte zuerst eine Maske erstellen !", vbCritical, "Fehlende Maske"
       Exit Sub
   End If
   
   Set L1 = ActiveDocument.Layers.Add("Rest", , , pntCopySelection)
   ActiveDocument.Background.Delete
   
   DName = Left(ActiveDocument.FileName, Len(ActiveDocument.FileName) - 3) & "png"
   DPfad = ActiveDocument.FilePath
   dn = CorelScriptTools.GetFileBox("PNG (*.png)|*.png", "Datei Speichern", 1, "Neu", ".png", DPfad)
   
   If Trim(dn) = "" Then Exit Sub
   
   Set EF = D.SaveAs(dn, cdrPNG)
   EF.Finish
   
End Sub

Melde Dich, wenn ich etwas falsch verstanden habe oder es nicht klappt.


Gruß

Koter