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

externen Bild per VBA öffnen...

Forumthread: externen Bild per VBA öffnen...

externen Bild per VBA öffnen...
KLE
Hallo,
habe ein Dateipfad zu einem Bild. Wie kann ich es per VBA in Excel zum öffnen bewegen in einem anderen Programm (das, welches auf dem jeweiligen Rechner für diesen Dateityp zugeordnetem Programm).
Gruß
Kay
Anzeige

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

Betreff
Benutzer
Anzeige
Datei per SHELL-Objekt starten
26.11.2010 18:11:13
NoNet
Hallo Kay,
probiere es mit diesem Code (Pfad und Name des Bildes bitte anpassen ;-) :
Sub DateiPerShellObjectStarten()
Dim appSh As Object
Set appSh = CreateObject("Shell.Application")
appSh.Open "C:\Temp\KLE.jpg"
Set appSh = Nothing
End Sub
Gruß, NoNet
Anzeige
Klappt perfekt - Danke !!!
26.11.2010 19:48:09
KLE
Hi...
vielen Dank - Klappt super ;O)
Gruß
Kay
;
Anzeige
Anzeige

Infobox / Tutorial

Externes Bild in Excel per VBA öffnen


Schritt-für-Schritt-Anleitung

Um ein externes Bild über VBA in Excel zu öffnen, kannst du den folgenden Code verwenden. Dieser Code nutzt das Shell-Objekt, um das Bild im standardmäßig zugeordneten Programm zu öffnen.

  1. Öffne Excel und gehe zum VBA-Editor, indem du ALT + F11 drückst.
  2. Füge ein neues Modul hinzu, indem du im Menü auf Einfügen > Modul klickst.
  3. Kopiere den folgenden Code in das Modul:
Sub DateiPerShellObjectStarten()
    Dim appSh As Object
    Set appSh = CreateObject("Shell.Application")
    appSh.Open "C:\Temp\KLE.jpg" 'Passe hier den Pfad zu deinem Bild an
    Set appSh = Nothing
End Sub
  1. Ersetze den Dateipfad mit dem Pfad zu deinem Bild.
  2. Führe das Makro aus, indem du F5 drückst oder das Makro über das Menü startest.

Damit solltest du in der Lage sein, ein Bild aus einem Pfad anzuzeigen und es in dem entsprechenden Programm zu öffnen.


Häufige Fehler und Lösungen

  • Fehler: "Datei nicht gefunden"
    Stelle sicher, dass der angegebene Pfad korrekt ist und das Bild tatsächlich an diesem Ort gespeichert ist.

  • Fehler: Programm nicht zugeordnet
    Wenn kein Programm für den Bildtyp zugeordnet ist, kann das Bild nicht geöffnet werden. Überprüfe die Standardanwendungen in den Einstellungen deines Betriebssystems.


Alternative Methoden

Falls du das Bild direkt in Excel anzeigen möchtest, kannst du das auch mit VBA tun. Hier ist ein Beispiel, wie du ein Bild in ein Arbeitsblatt einfügen kannst:

Sub BildEinfügen()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("Tabelle1") 'Passe den Tabellennamen an
    ws.Pictures.Insert("C:\Temp\KLE.jpg").Select
End Sub

Diese Methode ermöglicht es dir, das Bild direkt innerhalb von Excel anzuzeigen, ohne ein externes Programm zu öffnen.


Praktische Beispiele

  1. Öffnen eines PNG-Bildes: Wenn du ein PNG-Bild öffnen möchtest, ändere einfach den Dateipfad entsprechend:
appSh.Open "C:\Temp\KLE.png"
  1. Excel VBA Logo anzeigen: Um das Excel VBA Logo in einem Arbeitsblatt anzuzeigen, kannst du den folgenden Code verwenden:
Sub LogoEinfügen()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("Tabelle1")
    ws.Pictures.Insert("C:\Temp\excel_vba_logo.png").Select
End Sub

Tipps für Profis

  • Datei-Dialog verwenden: Verwende den Application.GetOpenFilename Dialog, um den Benutzer zu ermöglichen, eine Datei auszuwählen. Dies verbessert die Benutzerfreundlichkeit.

  • Fehlerbehandlung: Implementiere Error-Handling in deinen VBA-Skripten, um unerwartete Fehler abzufangen und sinnvoll zu reagieren.

  • Verwende Variablen für Pfade: Speichere häufig verwendete Pfade in Variablen, um den Code übersichtlicher und wartungsfreundlicher zu gestalten.


FAQ: Häufige Fragen

1. Wie kann ich ein Bild aus einem anderen Ordner öffnen?
Ändere einfach den Pfad im Code zu dem Ordner, in dem sich dein Bild befindet.

2. Kann ich mehrere Bilder gleichzeitig öffnen?
Ja, du kannst eine Schleife verwenden, um mehrere Bilder nacheinander zu öffnen. Achte darauf, den Pfad entsprechend zu ändern.

3. Funktioniert dieser Code auch in Excel für Mac?
Der Code ist für Windows optimiert. Für Mac kann eine andere Methode nötig sein, da der Zugriff auf das Shell-Objekt unterschiedlich ist.

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