Hallo Tabellenspezies,
Ich bin auf der Suche nach einer Möglichkeit, an eine Zelle ein Foto oder ähnliches anzubinden, welches dann wie ein Kommentar oder ähnliches zu nutzen ist.
Für Tipps bin ich euch jetzt schon dankbar
Gruß, Jens
Ich bin auf der Suche nach einer Möglichkeit, an eine Zelle
ein Foto oder ähnliches anzubinden, welches dann wie ein
Kommentar oder ähnliches zu nutzen ist.
Hi Jens,
im Beispiel erscheint automatisch das jeweilige Bild immer neben D7 und E9 wenn du die Felder betrittst.
Alt+F11, Einfügen–Modul, Code reinkopieren
Option Explicit
Sub NurEinmal()
Dim n, Pfad As String
For Each n In ActiveSheet.Shapes
If n.Name Like "MeinBild\*" Then n.Delete
Next n
Pfad = "C:\Dokumente und Einstellungen\All Users\Dokumente\Eigene Bilder\Beispielbilder\"
ActiveSheet.Pictures.Insert(Pfad & "Sonnenuntergang.jpg").Name = "MeinBildD7"
ActiveSheet.Pictures.Insert(Pfad & "Blaue Berge.jpg").Name = "MeinBildE9"
With ActiveSheet.Pictures("MeinBildD7")
.Top = Range("D7").Top
.Left = Range("e7").Left
.Height = 100
.Width = 100
.Visible = False
End With
With ActiveSheet.Pictures("MeinBildE9")
.Top = Range("E9").Top
.Left = Range("F9").Left
.Height = 100
.Width = 100
.Visible = False
End With
End Sub
Links Doppelklick auf den Blattnamen, folgenden Code einfügen
Option Explicit
Private Sub Worksheet\_SelectionChange(ByVal Target As Range)
Dim n, Pfad As String
For Each n In ActiveSheet.Shapes
If n.Name Like "MeinBild\*" Then n.Visible = False
Next n
If Target.Address(0, 0) "D7" And Target.Address(0, 0) "E9" Then Exit Sub
ActiveSheet.Pictures("MeinBild" & Target.Address(0, 0)).Visible = True
End Sub
Editor schliessen. Das Makro „Nureinmal“ über Extras–makro–Makros-- ausführen.
Gruß
Reinhard
ist ja vielleicht n bisschen spät, aber :
Danke, Reinhard
danach habe ich gesucht
gruß, jens
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]