ich bin neu hier und habe folgende Frage. Mein Ziel ist es, den Bereich "B3 bis F11" (bei änderung der sNummer in der Excelltabelle "Probe" ) automatisch eine JPG Datei mit diesem genannten Bereich zu erstellen. Dies Funktioniert auch so weit, nur die erstellte datei ist komplett weiß und ich kann den Fehler nicht finden...
Der Code ist wie folgt:
--------------------------------------------------------------------------------------------------
Option Explicit
Function RangeToImage(sNumber As String) As String 'Aufruf mit übergabe von der sNummer'
Dim FILE_PATH As String
Dim objChrt As Chart
Dim rngImage As Range
FILE_PATH = ("U:\Abteilung\Kleinarbeiten\Werkzeuglager_QR_Code\" & (sNumber) & ".jpg") 'Speicherort (Dokument wird nach seiner sNummer abgespeichert)'
Set rngImage = Worksheets("Probe").Range("B3:F11") 'Einlesen der Zellen'
rngImage.CopyPicture Appearance:=xlScreen, Format:=xlPicture
Set objChrt = Worksheets("Probe").ChartObjects.Add(1, 1, rngImage.Width, rngImage.Height).Chart
objChrt.Parent.Activate
objChrt.Paste
objChrt.Export FILE_PATH, "JPG"
objChrt.Parent.Delete
Set objChrt = Nothing
Set rngImage = Nothing
End Function
-------------------------------------------------------------------------------------
Hat von euch jemand zufällig eine Idee, an was dies liegen könnte?
Lg Lukas