Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Grafik nach Doppelklick laden

Gruppe

Grafikimport

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