Grafikposition in Excel unabhängig von Zellposition und -größe gestalten
Schritt-für-Schritt-Anleitung
Um die Zellposition einer Grafik in Excel unabhängig von der Zellgröße zu gestalten, kannst Du den folgenden VBA-Code verwenden. Dieser Code stellt sicher, dass die Grafik nicht nur von der Zellposition, sondern auch von der Zellgröße unabhängig ist.
- Öffne Excel und drücke
ALT + F11, um den VBA-Editor zu öffnen.
- Klicke auf
Einfügen und wähle Modul aus.
- Füge den folgenden Code in das Modul-Fenster ein:
Sub test()
If hochformat = True Then
If TypeName(Selection) = "Picture" Or TypeName(Selection) = "Grafik" Then
With Selection.ShapeRange
.LockAspectRatio = True
.Top = rngLocation.Top
.Left = rngLocation.Left + 30
.Height = Application.CentimetersToPoints(9)
.Width = Application.CentimetersToPoints(7.25)
.Placement = xlMove
End With
End If
End If
End Sub
- Stelle sicher, dass
rngLocation vorher definiert wurde. Es sollte ein Range-Objekt sein, welches die Position angibt.
- Führe den Code aus, während die gewünschte Grafik ausgewählt ist.
Häufige Fehler und Lösungen
For Each shp In Selection.ShapeRange
With shp
.Top = rngLocation.Top
.Left = rngLocation.Left + 30
.Height = Application.CentimetersToPoints(9)
.Width = Application.CentimetersToPoints(7.25)
.Placement = xlMove
End With
Next shp
Alternative Methoden
Wenn Du keine VBA-Programmierung verwenden möchtest, kannst Du die Grafik manuell anpassen:
- Klicke mit der rechten Maustaste auf die Grafik.
- Wähle
Größe und Eigenschaften.
- Im Tab
Eigenschaften kannst Du die Option Von Zellposition und -größe unabhängig auswählen.
Diese Methode ist einfacher, aber weniger flexibel, insbesondere bei vielen Grafiken.
Praktische Beispiele
-
Beispiel 1: Eine Grafik soll immer in der Mitte des Arbeitsblatts bleiben, unabhängig von der Zellgröße. Verwende den oben genannten VBA-Code und passe rngLocation entsprechend an.
-
Beispiel 2: Du möchtest eine Grafik in einer bestimmten Größe, unabhängig von der Größe der Zellen, in die sie eingefügt wird. Nutze die .Height und .Width Eigenschaften im VBA-Code, um dies zu erreichen.
Tipps für Profis
- Nutze das
With-Statement effizient, um den Code übersichtlicher zu gestalten.
- Experimentiere mit den Werten für
.Top und .Left, um die optimale Position für Deine Grafiken zu finden.
- Verwende die
xlFreeFloating-Option, wenn Du sicherstellen möchtest, dass die Grafik niemals mit Zellen verbunden ist.
FAQ: Häufige Fragen
1. Wie kann ich sicherstellen, dass die Grafik immer sichtbar bleibt?
Stelle die Grafik in einen Bereich, der nicht von anderen Zellen überdeckt wird. Nutze die .Top und .Left Eigenschaften, um die Position zu optimieren.
2. Kann ich den Code für mehrere Grafiken gleichzeitig verwenden?
Ja, indem Du eine Schleife über die ShapeRange implementierst, kannst Du mehrere Grafiken auf einmal anpassen.
3. Funktioniert dieser Code in Excel 2016?
Ja, der bereitgestellte VBA-Code ist mit Excel-Versionen ab Excel 2007 bis hin zu Excel 365 kompatibel.