Autor: Peter Haserodt --- Aus Excel VBA - Gruppe:
Häufige FragenDiagramm (3) In Userform im ImageControl
Autor: Peter Haserodt - Erstellt: -- - Letzte Revision: --Gruppenthema: 3 Folgen 1 2 3 Sie sind in Folge:3
Diagramm mittels Image in einer Userform anzeigen
Wenn ein Diagramm als Gif vorliegt, kann man es einfach in einem Image anzeigen.
Im folgendem Beispiel wird davon ausgegangen, dass die Mappe schon mal gespeichert war und im Mappenpfad ein GIF liegt, welches den Namen test.gif hat. (Wie in Diagrammexport beschrieben)
Erstellen Sie eine Userform mit einem Image und einem Commandbutton.
' **************************************************************
' Modul: UserForm1 Typ = Userform
' **************************************************************
Option Explicit
Private Sub CommandButton1_Click()
Dim sPfad As String
sPfad = ThisWorkbook.Path & "\Test.gif"
If Len(Dir(sPfad)) = 0 Then
MsgBox "Kein Gif da"
Else
Image1.Picture = LoadPicture(sPfad)
End If
End Sub
Weitere Artikel der Gruppe: Häufige Fragen Aus Excel VBA
Nach oben