Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
224to228
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
224to228
224to228
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Newbie - Grafik nach Klick in eine Zelle einfügen

Newbie - Grafik nach Klick in eine Zelle einfügen
27.02.2003 13:32:59
SvenR
Hallo,

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.

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Newbie - Grafik nach Klick in eine Zelle einfügen
01.03.2003 00:10:37
Markus

Probier das einmal

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


Anzeige

304 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige