Autor: Peter Haserodt  --- Aus Excel VBA - Gruppe: Häufige Fragen

Diagramm (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


Dieses Thema hat weitere Beiträge

Diagramm (1) Datenquelle ändern
Diagramm (2) Als Gif Exportieren
Diagramm (3) In Userform im ImageControl

Weitere Artikel der Gruppe: Häufige Fragen Aus Excel VBA
Nach oben