Ich möchte in meine USERFORM var. Bilder einladen die in einem anderen Excel Tabellenblatt (als Bild eingefügt) abgelegt sind.
Geht das?
Ich möchte in meine USERFORM var. Bilder einladen die in einem anderen Excel Tabellenblatt (als Bild eingefügt) abgelegt sind.
Geht das?
Mit einem kleinen Trick können Diagramme auch in Userforms
dargestellt werden.
Benötigt wird lediglich eine PictureBox.
Das entsprechende Diagramm wird als GIF-Datei exportiert
und schließlich in der PictureBox angezeigt.
Dim Dateiname
' Um die Userform anzuzeigen
Private Sub CommandButton1_Click()
UserForm1.Show
End Sub
' Um die Userform zu schließen
Private Sub cmdOK_Click()
Kill Dateiname
Unload Me
End Sub
' Wenn UserForm angezeigt wird
Private Sub UserForm_Activate()
Set Diagramm = Sheets("Tabelle1").ChartObjects(1).Chart
Diagramm.Parent.Width = Image1.Width
Diagramm.Parent.Height = Image1.Height
Dateiname = ThisWorkbook.Path & Application.PathSeparator & _
"diagramm.gif"
Diagramm.Export Filename:=Dateiname, FilterName:="GIF"
Image1.Picture = LoadPicture(Dateiname)
End Sub