Thema: Grafikprogramm aufrufen und Bild laden

ClassModule: Tabelle2

Private Sub Worksheet_BeforeDoubleClick( _
   ByVal Target As Range, Cancel As Boolean)
   Dim sFile As String
   Cancel = True
   If Target.Address <> "$B$1" Then Exit Sub
   sFile = Target.Value
   If Dir(sFile) = "" Then
      Beep
      MsgBox "Grafikdatei wurde nicht gefunden!"
   Else
      On Error GoTo ERRORHANDLER
      Shell "pbrush.exe " & Target.Value, 1
   End If
   Exit Sub
ERRORHANDLER:
   MsgBox "PBrush ist nicht installiert!"
End Sub

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