Userform Bild aktualisieren
A.gerken
ich lade über eine Funktion ein davor abgespeichertes bild (ein Diagramm) in eine Userform. Das mache ich mit folgendem Code:
Dim load_diagramm
Dim funktions_diagramm
dateiname = ThisWorkbook.Path & Application.PathSeparator & _
"diagramm.gif"
If Not Dir(dateiname) = "" Then Kill dateiname
Set load_diagramm = Sheets("Daten").ChartObjects("Chart 1").Chart
load_diagramm.Parent.Width = Funktionsplotter.Image1.Width
load_diagramm.Parent.Height = Funktionsplotter.Image1.Height
load_diagramm.Export Filename:=dateiname, FilterName:="GIF"
Funktionsplotter.Image1.Picture = LoadPicture(dateiname)
erst wenn ein anderes Bild darüber geschoben wird, wird der Teil der verdeckt war neu geladen und dort das neue Bild angezeigt.
Also wird das Bild zwar geladen aber die Anzeige nicht erneuert.
kann ich das irgendwie erzwingen?
grüße Andi
Anzeige