Transparentes PNG Bild ist milchig grau

[koter]

Hallo Ralf,

...Würde ja schon gerne alles über ein Programm machen statt nur wegen diesem Problem Gimp noch zu behalten...

falls Du so etwas öfter machen musst, könntest Du auch ImageMagick und ein Makro benutzen:



Das wäre auch ein zusätzliches Programm, aber Du kannst es von PP aus verwenden. Ich denke, so würde auch schneller gehen als mit Gimp.

Wenn Du es probieren willst:

Code:

Sub PNGExpTrans()
   On Error GoTo fehler
   Dim NL As Layer
   Dim TempDoc As Document
   Dim PSDName As String, PNGName As String
   Dim IMagic As Object
   Set IMagic = CreateObject("ImageMagickObject.MagickImage.1")
   PSDName = ActiveDocument.FullFileName
   PNGName = Left(PSDName, Len(PSDName) - 3) & "png"
   PSDName = Left(PSDName, Len(PSDName) - 3) & "psd"
   
   Set NL = ActiveLayer
   NL.Copy
   Set TempDoc = Application.CreateDocumentFromClipboard
   TempDoc.SaveAs(PSDName, cdrPSD).Finish
   TempDoc.Close
   tt = IMagic.convert(PSDName & "[0]", "PNG32:" & PNGName)
   Kill PSDName
   Set IMagic = Nothing
fehler:
   If Err > 0 Then
       Debug.Print "Fehler:" & Chr(13) & Err & Chr(13) & Err.Description
   End If
End Sub

(getestet mit PP X4 und ImageMagick-7.0.3-Q16)

Gruß

Koter