Thema: Grafik nach Doppelklick laden

Home

Gruppe

Grafik

Problem

Wie kann ich veranlassen, dass nach einem Doppelklick auf eine Zelle die Grafik, deren Name und Pfad in der Zelle stehen, geladen und in die nebenstehende Zelle eingefügt wird?

Lösung

Geben Sie den Ereigniscode in das Klassenmodul des Arbeitsblattes ein.

ClassModule: Tabelle2

Private Sub Worksheet_BeforeDoubleClick( _
   ByVal Target As Range, Cancel As Boolean)
   Dim pic As Picture
   If Target.Column <> 1 Then Exit Sub
   If IsEmpty(Target) Then Exit Sub
   Cancel = True
   If Dir(Target.Value) = "" Then
      Beep
      MsgBox "Grafikdatei wurde nicht gefunden!"
   Else
      Set pic = ActiveSheet.Pictures.Insert(Target.Value)
      With pic
         .Left = Target.Offset(0, 1).Left
         .Top = Target.Offset(0, 1).Top
      End With
   End If
End Sub

Beiträge aus dem Excel-Forum zu den Themen Grafik und Grafikimport

Jahresgrafik	Grafik - Linie nach unten, Kriterien links
Grafik auf Position bringen	Viele Grafiken mit gleicher Größe einfügen
Excel Grafiken nur schwarz/weiss	Grafik drucken
Grafik nach Change in Exceltabelle laden	Bereich als Grafik speichern
Grafiken kopieren	Text und Grafik in Fusszeile
Grafik in der Kopfzeile - OHNE PFADANGABE	Grafik, Datenbeschriftung
Linie in einer Grafik ansprechen	Grafik positionieren
Linien-Säulen auf zwei Achsen - Grafik	Grafik in Zelle einfügen, wie?
mehrere Grafiken aus derselben Pivot	Grafik anzeigen - evtl. Reihenfolge ändern?
Grafikobjekt nach Zelleingabe anpassen	Grafik in Zellen - Sparklines
Grafik Option Explicit zusweisen	Grafik bei Nullen nicht weiterführen
Makro bei Rechtsklick auf Grafik	Kontextmenü Grafik
Grafikgröße nach Hyperlink festlegen	Grafik Drehmoment Leistung
Grafiken mit Säuledarstellung	Dynamische Grafik/Diagramm
Beschriftung bei Bubble-Grafik	gestapelte Säulengrafik
Dynamischer Datenbereich bei Grafiken	Grafik
Schwellenwert in Excel-Grafik einfügen?	wechselnde grafiken abhängig von wert einblenden
Grafik-Spezial	Vorschaugrafik
Grafikformat	Grafik in Tabelle, abhängig von Zellinhalt
Grafikprogramm über Excel legen	Grafik in XLS-Kopfzeile im PPT darstellen
Grafiken aus derselben Pivot	Grafik mit selektierten Daten
veränderbare Grafik je nach Datenmenge	Formatier. einer Pivot Grafik wird immer Rückges.
Grafik immer aktualisieren	mehrere Grafiken aus einer Pivot
verzogene Grafik mit VBA zurücksetzen	bestimmte Grafik in Zelle nach löschen
3D-Grafik X-Achsenbeschriftung	Grafik beim Öffnen einer Datei