Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema CheckBox
BildScreenshot zu CheckBox CheckBox-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema Userform
BildScreenshot zu Userform Userform-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema Image
BildScreenshot zu Image Image-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema Label
BildScreenshot zu Label Label-Seite mit Beispielarbeitsmappe aufrufen

Userform Bild aktualisieren | Herbers Excel-Forum


Betrifft: Userform Bild aktualisieren von: A.gerken
Geschrieben am: 09.01.2010 13:39:05

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

  

Betrifft: AW: Userform Bild aktualisieren von: A.gerken
Geschrieben am: 09.01.2010 13:48:36

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


  

Betrifft: AW: Userform Bild aktualisieren von: Tino
Geschrieben am: 09.01.2010 13:49:54

Hallo,
versuch mal und schreibe am ende

Funktionsplotter.Repaint


Gruß Tino


  

Betrifft: bin nicht ganz sicher: evtl. .Repaint von: Matthias L
Geschrieben am: 09.01.2010 13:50:16

Hallo

Probier mal

UserForm.Repaint

Gruß Matthias


  

Betrifft: MERCY von: A.gerken
Geschrieben am: 09.01.2010 15:10:21

Danke habe es reingeschrieben und den Fehler bis jetzt noch nicht wiederentdeckt


Beiträge aus den Excel-Beispielen zum Thema "Userform Bild aktualisieren"