Userform+Bilder

Forumthread: Userform+Bilder
2 Beiträge zu diesem Forumthread
Anzeige

Forumthread: Userform+Bilder

Userform+Bilder

26.11.2002 09:57:29

Alex

Hallo Forum

Ich möchte in meine USERFORM var. Bilder einladen die in einem anderen Excel Tabellenblatt (als Bild eingefügt) abgelegt sind.
Geht das?

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Re: Userform+Bilder

26.11.2002 10:30:32

Ralf Sögel
Re: Userform+Bilder

26.11.2002 12:12:37

Felix

Re: Userform+Bilder

26.11.2002 10:30:32

Ralf Sögel

LoadPicture funktioniert nur, wenn die Bilder als Datei vorliegen.

Re: Userform+Bilder

26.11.2002 12:12:37

Felix

Hallo Alex,
vielleicht hilft Dir das weiter, mußt Du wohl noch auf Dein Bild umbauen. Habe ich noch nicht ausprobiert, habe ich selber irgendwo mal gefunden.

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