ich möchte eine Zelle so konfigurieren, dass beim daraufklicken eine Grafik eingefügt wird. (beim wiederholten klicken soll sie wieder entfernt werden).
Das ganze soll zum Ausfüllen eines Formulares dienen.
ich möchte eine Zelle so konfigurieren, dass beim daraufklicken eine Grafik eingefügt wird. (beim wiederholten klicken soll sie wieder entfernt werden).
Das ganze soll zum Ausfüllen eines Formulares dienen.
Damit kriegst du das Bild zumindest einmal auf dein Tabellenblatt
Ausserdem musst du auf deinem TAbellenblatt in der Zeile A einen Bezug schaffen, ----D:\Krimskrams\1722.gif so z. b.
Das hier alles in ein Modul einfügen und ab dafür
Sub auto_open()
Worksheets("Tabelle1").OnDoubleClick = "Einfuegen"
End Sub
Sub auto_close()
Worksheets("Tabelle1").OnDoubleClick = ""
End Sub
Sub Einfuegen()
Dim picAct As Picture
Set picAct = ActiveSheet.Pictures.Insert(Application.Caller.Value)
With picAct
.Left = Application.Caller.Offset(0, 1).Left
.Top = Application.Caller.Offset(0, 1).Top
End With
End Sub
Gruß Markus