Thema: Bild einfügen

Hallo,
ich würde gerne mit commandbutton1 ein Bild in Image1 einfügen und es mit commandbutton zwei wechseln
hab schon verzweifelt rumprobiert aber ich bekomm es nicht hin
rausgekommen ist dabei dies hier

Private Sub CommandButton1_Click()
Sheets("Tabelle2").Activate
ActiveSheet.Pictures.Insert( _
"C:\Dokumente und Einstellungen\Sebastian\Eigene Dateien\Eigene Bilder\Neuer Ordner\salzi.JPG" _
).Select
Image1.RowSource = ("a1")
End Sub

Private Sub CommandButton2_Click()
Sheets("Tabelle2").Activate
ActiveSheet.Pictures.Insert( _
"C:\Dokumente und Einstellungen\Sebastian\Eigene Dateien\Eigene Bilder\Neuer Ordner\bwzk0.JPG" _
).Select
Image1.RowSource = ("a1")
End Sub

und das geht gar nicht
Gruß Basti

Hi,
Sieh dir mal die Eigenschaft Picture an, damit kannst du das Bild direkt in das
Image laden.
Image1.Picture = LoadPicture("c:\....)
mfg Lars

Danke funktioniert prima
Gruß Basti

Hallo,
ich würde gerne mit commandbutton1 ein Bild in Image1 einfügen und es mit commandbutton zwei wechseln
hab schon verzweifelt rumprobiert aber ich bekomm es nicht hin
rausgekommen ist dabei dies hier

Private Sub CommandButton1_Click()
Sheets("Tabelle2").Activate
ActiveSheet.Pictures.Insert( _
"C:\Dokumente und Einstellungen\Sebastian\Eigene Dateien\Eigene Bilder\Neuer Ordner\salzi.JPG" _
).Select
Image1.RowSource = ("a1")
End Sub

Private Sub CommandButton2_Click()
Sheets("Tabelle2").Activate
ActiveSheet.Pictures.Insert( _
"C:\Dokumente und Einstellungen\Sebastian\Eigene Dateien\Eigene Bilder\Neuer Ordner\bwzk0.JPG" _
).Select
Image1.RowSource = ("a1")
End Sub

und das geht gar nicht
Gruß Basti

Hi,
Sieh dir mal die Eigenschaft Picture an, damit kannst du das Bild direkt in das
Image laden.
Image1.Picture = LoadPicture("c:\....)
mfg Lars

Danke funktioniert prima
Gruß Basti