Image
25.06.2004 12:23:26
Ralph
ich habe die folgende Frage.
In ein Tabellenblatt habe ich ein Image (Image1) und mehrere CommandButtons eingefügt. Nun möchte ich per VBA beim Klick auf einen CommandButton dem Image eine Bilddatei zuweisen und diese soll dann angezeigt werden.
So hab ich's versucht aber kein Erfolg. Weiss jemand wie das geht (Office 2000)
Sub cmdbtn1_BeiKlick()
Dim p$, fn$, n%, test
p = "R:\SV\Chassis\88_Vorlagen\Word\Bilder_Angebot\"
fn = "Binzel_Brenner_VTS.gif"
n = ActiveSheet.Index
ActiveSheet.OLEObjects("Image1").Visible = True
Worksheets(n).OLEObjects("Image1") = LoadPicture(Trim(p) & Trim(fn))
Sheets("Schweißbrenner").Image1 = LoadPicture(Trim(p) & Trim(fn))
End Sub
Danke und Gruß
Ralph