Tabelle als Grafik auf UserForm anzeigen
22.10.2024 09:38:46
Frank
ich möchte eine Tabelle aus Excel auf einer UserForm besser gesagt in einem Image darstellen. Nun habe ich ein sehr seltsames Problem. Wenn ich den Code mit F5 durchlaufen lassen, dann wird die Tabelle in dem Image nicht dargestellt. Wenn ich den Code mit F8 Schritt für Schritt durchgehe, dann funktioniert alles so wie es soll. Ich habe auch schon Pausen von 3 Sekunden eingebaut , was aber nicht zum Erfolg führt. Kann mir eventuell jemand sagen woran das liegen könnte?
Das ist der Code dazu:
Sub Test()
Call BildInUserFormEinfügen(7, "Image1")
End Sub
Sub BildInUserFormEinfügen(ByVal Sheet As Integer, Bild As String)
Dim ws As Worksheet
Dim BildDatei As String
Dim Bereich As Range
Dim TempChart As ChartObject
Dim BildBreite As Double
Dim BildHöhe As Double
Set ws = ThisWorkbook.Sheets(Sheet)
Set Bereich = ws.Range("A10:EO32")
Bereich.CopyPicture Appearance:=xlScreen, Format:=xlPicture
BildDatei = Environ("Temp") & "\tempBild.GIF"
Set TempChart = ws.ChartObjects.Add(Left:=0, Width:=Bereich.Width, Top:=0, Height:=Bereich.Height)
With TempChart
.Chart.Paste
.Chart.Export Filename:=BildDatei, FilterName:="GIF"
BildBreite = .Width
BildHöhe = .Height
.Delete
End With
With UserForm1.Controls(Bild)
.Width = BildBreite
.Height = BildHöhe
.Picture = LoadPicture(BildDatei)
End With
UserForm1.Show
End Sub
Vielleicht hat ja jemand eine Idee.
Vielen Dank und viele Grüße,
Frank
Anzeige