Tabellenbereich als transparentes Bild abspeichern
01.06.2018 08:45:57
Volker
ich möchte einen Zellenbereich als TRANSPARENTES Bild abspeichern.
Einen Bereich abspeichern klappt schon wunderbar mit diesem Code
Sub Barcodes_als_Bild_abspeichern(Mitarbeitername As String, Bildverzeichnis As String, _
Zellenbereich As String, Optional Tabellenname As String = "Tabelle1")
' Herkunft: http://www. _
_
_
_
ms-office-forum.net/forum/showthread.php?t=298218
' auf die Ausdruckstabelle wechseln
Sheets(Tabellenname).Select
ActiveSheet.Range(Zellenbereich).CopyPicture Appearance:=xlScreen, Format:=xlPicture
With ActiveSheet.ChartObjects.Add(0, 0, Range(Zellenbereich).Width, Range(Zellenbereich). _
Height).Chart
.Paste
.Export Bildverzeichnis & "\" & Mitarbeitername & ".png", filtername:="PNG"
.Parent.Delete
End With
End Sub
Was halt nicht funktioniert ist das es nicht transparent ist und somit ist halt die Frage, wie bekomme ich das hin.
Wäre schön, wenn Ihr mir da helfen könntet.
Vielen Dank
Volker
Anzeige