Grafiken in Excel auf gleiche Größe anpassen
Schritt-für-Schritt-Anleitung
Um alle Bilder in Excel auf die gleiche Größe zu bringen, kannst Du ein einfaches Makro verwenden. Hier ist eine Schritt-für-Schritt-Anleitung:
-
Öffne Excel und gehe zu der Tabelle, in der sich die Bilder befinden.
-
Drücke ALT + F11 um den VBA-Editor zu öffnen.
-
Füge ein neues Modul hinzu: Klicke auf Einfügen > Modul.
-
Kopiere den folgenden Code in das Modul:
Sub GleicheGroesse()
Dim sh As Shape
For Each sh In Worksheets("Tabelle1").Shapes
sh.Height = 50 ' Höhe in Punkten
sh.Width = 50 ' Breite in Punkten
Next sh
End Sub
-
Schließe den VBA-Editor und kehre zu Excel zurück.
-
Führe das Makro aus: Drücke ALT + F8, wähle GleicheGroesse aus und klicke auf Ausführen.
Damit werden alle Bilder in "Tabelle1" auf eine Größe von 50 Punkt (ca. 0,5 cm) für Höhe und Breite angepasst. Du kannst die Werte nach Bedarf ändern.
Häufige Fehler und Lösungen
Alternative Methoden
Falls Du die Größe der Bilder manuell anpassen möchtest, gehe wie folgt vor:
- Wähle ein Bild aus.
- Klicke mit der rechten Maustaste und wähle
Größe und Eigenschaften.
- Stelle die Höhe und Breite in den Eigenschaften auf die gewünschten Werte ein.
Diese Methode ist zwar nicht so effizient wie ein Makro, kann aber nützlich sein, wenn Du nur einige Bilder anpassen möchtest.
Praktische Beispiele
- Um alle Bilder in einer Tabelle gleich groß zu machen, kannst Du das oben genannte Makro verwenden, um die Excel Bilder auf die gleiche Größe zu bringen.
-
Wenn Du nur die Höhe anpassen möchtest, kannst Du den Code entsprechend ändern:
Sub NurHoheGleich()
Dim sh As Shape
For Each sh In Worksheets("Tabelle1").Shapes
sh.Height = 50 ' Höhe in Punkten
Next sh
End Sub
Tipps für Profis
- Du kannst den Code erweitern, um nur Bilder mit bestimmten Namen oder Typen auszuwählen.
-
Nutze Application.CentimetersToPoints für eine genauere Umrechnung, wenn Du mit cm arbeiten möchtest:
sh.Height = Application.CentimetersToPoints(0.5)
FAQ: Häufige Fragen
1. Wie kann ich die Größe der Bilder in cm angeben?
Um die Größe in cm anzugeben, kannst Du die Funktion Application.CentimetersToPoints verwenden, um die Werte in Punkte umzuwandeln.
2. Funktioniert das auch in älteren Excel-Versionen?
Ja, der VBA-Code sollte in den meisten Excel-Versionen funktionieren, die VBA unterstützen, z.B. Excel 2007 und neuer.