Hallo Zusammen
Hab ein Problem mit unten angefügtem Code.
Ich möchten einen Tabellenbereich als Bild speichern und in ein Userform einbinden. Funktioniert soweit alles bis:
Das Bild ist weiss (macht offensichtlich keine Kopie des Tabellenbereiches).
Kann mir hierbei jemand von euch einen Tip geben woran das liegen könnte. Im Bereich T2:AB22 sind Daten :-)

Liebe Gruess
Richi


Private Sub UserForm_Initialize()
Dim wsLegendeStatus As Worksheet
Dim rng As Range
Dim tmpChart As ChartObject

' Setze das Arbeitsblatt
Set wsLegendeStatus = ThisWorkbook.Sheets("Legende Status")

' Setze den Bereich
Set rng = wsLegendeStatus.Range("T2:AB22")

' Kopiere den Bereich als Bild
rng.CopyPicture Appearance:=xlScreen, Format:=xlPicture

' Füge ein temporäres Diagramm hinzu
Set tmpChart = wsLegendeStatus.ChartObjects.Add(Left:=rng.Left, Top:=rng.Top, Width:=rng.Width, Height:=rng.Height)
With tmpChart
.Chart.Paste
.Chart.Export Filename:=ThisWorkbook.Path & "\temp_legend_status.jpg", FilterName:="JPG"
'.Delete
End With

' Lade das Bild in das Image-Steuerelement
Me.imgLegendeStatus.Picture = LoadPicture(ThisWorkbook.Path & "\temp_legend_status.jpg")

' Entferne die temporäre Datei
Kill ThisWorkbook.Path & "\temp_legend_status.jpg"
End Sub