Wie zentriert man ein Bild in einer Excel-Zelle?

Dieser Artikel zeigt Ihnen eine Methode, um Bilder in die Mitte von Zellen in einem Excel-Arbeitsblatt zu verschieben, wie im folgenden Screenshot dargestellt.

Bild mit VBA-Code in die Mitte der Zelle verschieben

Bild mit VBA-Code in die Mitte der Zelle verschieben.

Bitte gehen Sie wie folgt vor, um Bilder in die Mitte von Zellen in einem Arbeitsblatt in Excel zu verschieben.

1. Öffnen Sie das Arbeitsblatt, das die Bilder enthält, die Sie in den Zellen zentrieren möchten, und drücken Sie dann die Tasten Alt + F11, um das Fenster Microsoft Visual Basic for Applications zu öffnen.

2. Klicken Sie im Fenster Microsoft Visual Basic for Applications auf Einfügen > Modul. Kopieren Sie dann den VBA-Code und fügen Sie ihn in das Codefenster ein.

VBA-Code: Verschiebe Bilder in die Mitte der Zellen im Arbeitsblatt

Sub CenterPictures()
With ActiveSheet.Shapes("Picture 2")
.Top = Range("A1").Top + (Range("A1").Height - .Height) / 2
.Left = Range("A1").Left + (Range("A1").Width - .Width) / 2
End With
With ActiveSheet.Shapes("Picture 4")
.Top = Range("A2").Top + (Range("A2").Height - .Height) / 2
.Left = Range("A2").Left + (Range("A2").Width - .Width) / 2
End With
With ActiveSheet.Shapes("Picture 6")
.Top = Range("A3").Top + (Range("A3").Height - .Height) / 2
.Left = Range("A3").Left + (Range("A3").Width - .Width) / 2
End With
End Sub

Hinweise:

With ActiveSheet.Shapes("Picture name")
.Top = Range("Cell Address").Top + (Range("Cell Address").Height - .Height) / 2
.Left = Range("Cell Address").Left + (Range("Cell Address").Width - .Width) / 2
End With

3. Drücken Sie die Taste F5, um den Code auszuführen.

Dann werden alle angegebenen Bilder sofort in die Mitte bestimmter Zellen verschoben, wie im folgenden Screenshot dargestellt.

Entfesseln Sie die Magie von Excel mit Kutools AI

• Intelligente Ausführung: Führen Sie Zellenoperationen durch, analysieren Sie Daten und erstellen Sie Diagramme – alles angetrieben durch einfache Befehle.
• Benutzerdefinierte Formeln: Erstellen Sie maßgeschneiderte Formeln, um Ihre Arbeitsabläufe zu optimieren.
• VBA-Codierung: Schreiben und implementieren Sie VBA-Code mühelos.
• Formelinterpretation: Verstehen Sie komplexe Formeln mit Leichtigkeit.
• Textübersetzung: Überwinden Sie Sprachbarrieren in Ihren Tabellen.

Erweitern Sie Ihre Excel-Fähigkeiten mit KI-gestützten Tools. Laden Sie jetzt herunter und erleben Sie eine Effizienz wie nie zuvor!

Verwandte Artikel:

• Wie kann man automatisch alle Bilder so ändern, dass sie sich mit den Zellen in Excel bewegen und in der Größe anpassen?
• Wie überprüft man, ob eine Zelle in Excel ein Bild enthält?
• Wie fügt man dynamisch ein Bild oder eine Grafik in eine Zelle basierend auf dem Zellenwert in Excel ein?
• Wie vergrößert man ein Bild, wenn man darauf klickt, in Excel?