jpg Dateien öffnen
05.01.2008 15:02:00
Gerhard
Ich möchte aus Excel heraus mit einem Button eine jpg Datei öffnen. Im Forum hab ich nachstehenden Code gefunden. Diesen hab ich in (Button, rechter Mausklick, Code anzeigen, es öffnet sich das Visual Basic Fenster) die Tabelle 1 (aktuelle Tabelle) kopiert.
Private Sub CommandButton1_Click()
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hWnd As _
Long, _
ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal _
lpDirectory As String, _
ByVal lpnShowCmd As Long) As Long
'dann die Datei öffnen
ShellExecute 0, "open", ("C:\Dokumente und Einstellungen\Gerá\Eigene Dateien\Eigene _
Bilder\Lydia und Baby"), "", "", 3
End Sub
Im Forum hat dieser Code offensichtlich bei allen funktioniert. Bei mir erscheint die Meldung:
Fehler beim Kompilieren: Nach End Sub
, End Function
oder End Property können nur Kommentare stehen
Im Visual Basic Fenster ist der Text:
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hWnd As Long, _
ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, _
ByVal lpnShowCmd As Long) As Long
blau hinterlegt.
Könnt Ihr mir das als VBA Anfänger erklären?
Anzeige
