Viele Grüße
Bernd
MVP für Microsoft Excel
Excel-Tipps, VBA-Publikationen mit Leseproben(PDF) unter: http://held-office.de
Viele Grüße
Bernd
MVP für Microsoft Excel
Excel-Tipps, VBA-Publikationen mit Leseproben(PDF) unter: http://held-office.de
Viele Grüße
Bernd
MVP für Microsoft Excel
Excel-Tipps, VBA-Publikationen mit Leseproben(PDF) unter: http://held-office.de
ein möglicher Lösungsansatz wäre eine Ereignisprozedur:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
If Target.Address <> "$A$1" Then
ActiveSheet.Shapes(1).Delete
Exit Sub
End If
ActiveSheet.Pictures.Insert ("C:\baum1.jpg")
End Sub
Die Prozedur fügt ein Bild ein, wenn auf die Zelle A1 geklickt wird.
Bei Klick auf eine andere Zelle verschwindet das Bild wieder.
Es liebs Grüessli
Monika