JEPG - Bilder in UserForm
01.06.2006 11:12:01
Emilia
Hier unten dargestellt, kann ich Ecxeldatein in UserForm öffnen.
Nun meine Frage, kann man die auch mit Bilder die alle in einem Ordner sind machen. Ich habe mir überlegt das ich mit einem CommandButten eine Userform öffne wo alle Bilddatein angezeigt werden, wenn ich dann ein Bild auswähle und mit Ok bestätige soll eine zweite Userform geöffnet werden wo das Bild angezeit wird.
Private Sub CommandButton2_Click()
Dim Importdatei
Importdatei = Application.GetOpenFilename("Exceldateien (*.xls), *.xls")
If Importdatei = False Then Exit Sub
Unload Me
Workbooks.Open Filename:=Importdatei
End Sub
Private Sub CommandButton3_Click()
'UserForm schließen'
Unload Me
End Sub
Private Sub UserForm_Initialize()
Me.ListBox1.AddItem "Test1.xls"
Me.ListBox1.AddItem "Test2.xls"
Me.ListBox1.AddItem "andere Firmen 2006.xls"
End Sub
Ist dies machbar, wenn ja kann mir einer den VBA schreiben bzw. dann auch schreiben wie ich dann alles einsetzen muß.
Währe super, wenn mir eine Helfen könnte.
Gruß Emi
Anzeige