Fotos per VBA öffnen in Excel 2016
Schritt-für-Schritt-Anleitung
Um Fotos unter Windows 10 per VBA in Excel 2016 zu öffnen, kannst du die folgende Schritt-für-Schritt-Anleitung verwenden:
-
Öffne Excel und gehe zu den Entwicklertools. Falls die Entwicklertools nicht sichtbar sind, aktiviere sie über die Excel-Optionen.
-
Erstelle ein neues Modul:
- Klicke auf "Einfügen" und wähle "Modul".
-
Füge den folgenden VBA-Code ein:
Private Sub FotosÖffnen()
Dim FotoOrdner As String
Dim Anwendung As String
Dim Ergebnis As String
FotoOrdner = "C:\Foto Ordner" ' Passe den Pfad zu deinem Fotoordner an
Anwendung = "C:\Program Files\Microsoft Office\Office14\OIS.EXE" ' Pfad zur OIS.EXE
Anwendung = Chr(34) & Anwendung & Chr(34) & " " & Chr(34) & FotoOrdner & Chr(34)
Ergebnis = Shell(Anwendung, vbNormalFocus)
End Sub
-
Passe den Pfad zur OIS.EXE und zu deinem Fotoordner an, falls notwendig.
-
Führe das Makro aus, um die Fotos zu öffnen.
Häufige Fehler und Lösungen
Alternative Methoden
Falls du die OIS.EXE nicht verwenden möchtest, kannst du auch die Shell.Application-Methode verwenden, um Fotos zu öffnen. Hier ist ein Beispiel:
CreateObject("Shell.Application").Open "C:\Foto Ordner\deinBild.jpg" ' Pfad zum Bild anpassen
Diese Methode ist besonders nützlich, wenn du direkt ein spezifisches Bild öffnen möchtest.
Praktische Beispiele
Hier sind einige praktische Beispiele, wie du Fotos mit VBA öffnen kannst:
-
Öffnen eines spezifischen Bildes:
Sub BildÖffnen()
CreateObject("Shell.Application").Open "C:\Foto Ordner\deinBild.jpg"
End Sub
-
Öffnen aller Bilder in einem Ordner:
Sub AlleBilderÖffnen()
Dim FotoOrdner As String
FotoOrdner = "C:\Foto Ordner"
CreateObject("Shell.Application").Open FotoOrdner
End Sub
Tipps für Profis
-
Verwende die Windows-Fotoanzeige: Um sicherzustellen, dass die Fotos in der gewünschten Anwendung geöffnet werden, kannst du die Standardanwendung für Bilddateien in Windows 10 anpassen.
-
Fehlerbehandlung einfügen: Füge On Error Resume Next in deinen Code ein, um unerwartete Fehler abzufangen und zu vermeiden, dass das Makro abstürzt.
FAQ: Häufige Fragen
1. Wie kann ich sicherstellen, dass das Makro funktioniert?
Stelle sicher, dass du die richtigen Pfade verwendest und dass die erforderlichen Anwendungen installiert sind.
2. Funktioniert dieser Code auch in anderen Excel-Versionen?
Ja, der Code sollte auch in Excel 2010 und 2013 funktionieren, jedoch könnte der Pfad zur OIS.EXE abweichen.
3. Was mache ich, wenn die Fotos nicht geöffnet werden?
Überprüfe die Pfade und stelle sicher, dass die Windows-Fotoanzeige oder die gewünschte Anwendung installiert ist und korrekt konfiguriert wurde.