Bilder komprimieren in Excel
Schritt-für-Schritt-Anleitung
Um Bilder in Excel zu komprimieren, insbesondere wenn sie in einem Ordner gespeichert sind, kannst Du den folgenden VBA-Code verwenden. Dieser Code verringert die Bildauflösung und speichert die komprimierten Bilder in einem anderen Ordner.
- Öffne Excel und drücke
ALT + F11, um den VBA-Editor zu öffnen.
- Klicke auf
Einfügen > Modul, um ein neues Modul zu erstellen.
- Füge den folgenden Code in das Modul ein:
Option Explicit
Public Sub KomprimiereBilder()
Const INPUT_FOLDER As String = "D:\Original\" ' Anpassen
Const OUTPUT_FOLDER As String = "D:\Kompromiert\" ' Anpassen
Dim objImageFile As Object, objImageProcess As Object
Dim strFilename As String
Set objImageFile = CreateObject(Class:="WIA.ImageFile")
Set objImageProcess = CreateObject(Class:="WIA.ImageProcess")
With objImageProcess
Call .Filters.Add(FilterID:=.FilterInfos("Convert").FilterID)
.Filters.Item(1).Properties("FormatID") = "{B96B3CAE-0728-11D3-9D7B-0000F81EF32E}"
.Filters.Item(1).Properties("Quality") = 10 ' Anpassen
End With
strFilename = Dir$(INPUT_FOLDER & "*.jpg")
Do Until strFilename = vbNullString
Call objImageFile.LoadFile(Filename:=INPUT_FOLDER & strFilename)
Set objImageFile = objImageProcess.Apply(Source:=objImageFile)
Call objImageFile.SaveFile(Filename:=OUTPUT_FOLDER & "Komprimiert_" & strFilename)
strFilename = Dir$
Loop
Set objImageProcess = Nothing
Set objImageFile = Nothing
End Sub
- Passe die Pfade
INPUT_FOLDER und OUTPUT_FOLDER entsprechend an.
- Schließe den VBA-Editor und führe das Makro aus.
Häufige Fehler und Lösungen
Alternative Methoden
Wenn Du keine VBA-Lösungen verwenden möchtest, kannst Du auch Software wie IrfanView nutzen. Dieses kostenlose Tool kann mehrere Bilder komprimieren und die Auflösung verringern, ohne dass Du Excel öffnen musst.
- Lade IrfanView herunter und installiere es.
- Öffne IrfanView und gehe zu
Datei > Batch-Konvertierung.
- Wähle den Ausgangsordner und die gewünschten Bildformate aus.
- Setze die Komprimierungsoptionen, um die Bildgröße zu verringern.
Praktische Beispiele
Beispiel 1: Komprimieren von Bildern in einem Ordner
Verwende den oben genannten VBA-Code, um alle .jpg-Dateien im Ordner D:\Original\ zu komprimieren und im Ordner D:\Kompromiert\ zu speichern.
Beispiel 2: Komprimieren von Bildern in Word
In Microsoft Word kannst Du Bilder ebenfalls komprimieren. Gehe zu Bildtools > Format > Bilder komprimieren, um die Qualität und die Auflösung der Bilder zu ändern.
Tipps für Profis
- Qualität anpassen: Experimentiere mit dem
Quality-Parameter im VBA-Code, um die perfekte Balance zwischen Bildqualität und Dateigröße zu finden.
- Batch-Prozesse: Du kannst den VBA-Code erweitern, um auch andere Bildformate wie
.png oder .bmp zu unterstützen.
- Regelmäßige Sicherung: Erstelle regelmäßig Sicherungen Deiner Originalbilder, bevor Du sie komprimierst, um Datenverlust zu vermeiden.
FAQ: Häufige Fragen
1. Kann ich auch andere Bildformate komprimieren?
Ja, Du kannst den VBA-Code anpassen, um andere Formate wie .png oder .bmp zu unterstützen.
2. Wie kann ich die Bildgröße komprimieren, ohne die Auflösung zu verringern?
Verwende Software wie 7-Zip, um die Dateigröße ohne Qualitätsverlust zu reduzieren. Die Komprimierung von .jpg-Dateien kann jedoch zu einem geringen Speichervorteil führen.
3. Gibt es eine einfache Möglichkeit, Bilder in Excel zu komprimieren?
Ja, Du kannst die Funktion "Bilder komprimieren" in Excel verwenden, die jedoch nur für Bilder gilt, die in Excel-Dokumente eingefügt sind.