Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Bei Klick in Zelle --> Bild anzeigen

Bei Klick in Zelle --> Bild anzeigen
02.09.2004 08:28:35
Torsten
Hallo,
wenn ich in eine Zelle klicke, möchte ich dass kurz ein Bild erscheint. Ich stelle mir das so vor dass da ein fenster aufgeht, ähnlich wie ein Kommentarfenster. In der zelle selbst steht z.B. der Grafikname. Die Grafiken sind unter C:\Daten\.
Gibt es eine Möglichkeit das kurz ein Bild aufklappt und dieses nach einigen Sekunden wieder entladen wird?
Danke im voraus,
Torsten
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Bild in Kommentar einfügen
Beate
Hallo Torsten,
vielleicht wäre eine passende Möglichkeit für dich, ein Bild in einen Kommentar einzufügen. Beschreibung wie es geht, hier:
https://www.herber.de/bbs/user/10428.doc
Gruß,
Beate
Danke, klappt prima!!
03.09.2004 07:48:42
Torsten
Danke, klappt prima!!
Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige
Anzeige

Infobox / Tutorial

Bild in Excel anzeigen bei Klick auf eine Zelle


Schritt-für-Schritt-Anleitung

Um ein Bild anzuzeigen, wenn Du in eine Zelle klickst, kannst Du dies mit Hilfe von VBA (Visual Basic for Applications) umsetzen. Hier ist eine einfache Anleitung:

  1. Öffne Excel und drücke ALT + F11, um den VBA-Editor zu öffnen.

  2. Füge ein neues Modul hinzu:

    • Klicke im Menü auf Einfügen und wähle Modul.
  3. Füge folgenden Code ein:

    Private Sub Worksheet_SelectionChange(ByVal Target As Range)
       Dim pic As Object
    
       ' Stelle sicher, dass Du das Bild in C:\Daten\ gespeichert hast
       On Error Resume Next
       Set pic = ActiveSheet.Pictures("MeinBild") ' Ersetze "MeinBild" mit dem Namen Deines Bildes
       On Error GoTo 0
    
       If Not pic Is Nothing Then
           pic.Delete
       End If
    
       If Not Intersect(Target, Range("A1")) Is Nothing Then ' Ersetze A1 mit der gewünschten Zelle
           Set pic = ActiveSheet.Pictures.Insert("C:\Daten\MeinBild.jpg") ' Pfad zum Bild
           With pic
               .Left = Target.Left
               .Top = Target.Top
               .Width = 100 ' Breite des Bildes
               .Height = 100 ' Höhe des Bildes
               .Placement = xlMoveAndSize
           End With
           Application.Wait (Now + TimeValue("0:00:02")) ' Bild für 2 Sekunden anzeigen
           pic.Delete
       End If
    End Sub
  4. Schließe den VBA-Editor und gehe zurück zu Excel.

  5. Teste das Skript, indem Du auf die Zelle klickst, auf die Du den Code angewendet hast.


Häufige Fehler und Lösungen

  • Bild wird nicht angezeigt: Überprüfe den Dateipfad und den Bildnamen im Code. Stelle sicher, dass das Bild im angegebenen Verzeichnis existiert.
  • VBA-Code läuft nicht: Stelle sicher, dass Makros in Excel aktiviert sind. Gehe zu Datei > Optionen > Sicherheitscenter und aktiviere die Makros.
  • Bild bleibt nicht für die gewünschte Zeit sichtbar: Überprüfe die Zeit im Application.Wait-Befehl und passe sie nach Bedarf an.

Alternative Methoden

Eine einfache Möglichkeit, ein Bild in Excel anzuzeigen, besteht darin, es in einen Kommentar einzufügen. So gehst Du vor:

  1. Rechtsklicke auf die Zelle, in der Du das Bild einfügen möchtest.
  2. Wähle Kommentar einfügen.
  3. Klicke mit der rechten Maustaste auf den Kommentar und wähle Kommentar formatieren.
  4. Gehe zum Tab Farben und Linien, wähle Bild oder Textur füllen und wähle dann das Bild aus, das Du anzeigen möchtest.

So wird das Bild angezeigt, wenn Du mit der Maus über die Zelle fährst.


Praktische Beispiele

Wenn Du beispielsweise eine Excel-Tabelle zur Verwaltung von Produkten hast und für jedes Produkt ein Bild anzeigen möchtest, kannst Du den obigen VBA-Code anpassen. Stelle sicher, dass Du die Zellen entsprechend anpasst, um das richtige Bild anzuzeigen, wenn Du auf die jeweilige Zelle klickst.


Tipps für Profis

  • Wenn Du mehrere Bilder anzeigen möchtest, kannst Du eine Select Case-Anweisung verwenden, um verschiedene Bilder je nach Zelle anzuzeigen.
  • Achte darauf, dass die Bildnamen eindeutig sind, um Verwechslungen zu vermeiden.
  • Überlege, die Bilder auf ein Netzwerkverzeichnis zu speichern, wenn Du mit mehreren Benutzern arbeitest.

FAQ: Häufige Fragen

1. Frage
Kann ich das Bild auch in einer anderen Zelle anzeigen lassen?
Ja, ändere einfach die Zelle in der Intersect-Funktion im VBA-Code.

2. Frage
Wie kann ich mehrere Bilder in Kommentaren einfügen?
Du kannst für jede Zelle einen eigenen Kommentar erstellen und das jeweilige Bild dort einfügen.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige