Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1128to1132
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Userform Bild aktualisieren

Userform Bild aktualisieren
A.gerken
Hallo,
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)
das Funktioniert auch eigentlich super nur ab und zu wird das Bild nicht neu geladen.
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

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Userform Bild aktualisieren
09.01.2010 13:48:36
A.gerken
habe es jetzt vorrübergehend einmal mit
Funktionsplotter.Image1.Visible = False
Funktionsplotter.Image1.Visible = True 'die Anzeige erneuern
probiert, was aber nicht die feinste Lösung ist und ich auch garnicht sicher bin ob sie Funktioniert
AW: Userform Bild aktualisieren
09.01.2010 13:49:54
Tino
Hallo,
versuch mal und schreibe am ende
Funktionsplotter.Repaint
Gruß Tino
bin nicht ganz sicher: evtl. .Repaint
09.01.2010 13:50:16
Matthias
Hallo
Probier mal
UserForm.Repaint
Gruß Matthias
MERCY
09.01.2010 15:10:21
A.gerken
Danke habe es reingeschrieben und den Fehler bis jetzt noch nicht wiederentdeckt
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige