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
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen