Wie zentriere ich ein Bild in einer Excel-Zelle?
Dieser Artikel zeigt Ihnen eine Methode zum Verschieben von Bildern in die Mitte von Zellen in einem Excel-Arbeitsblatt (siehe Abbildung unten).
Verschieben Sie das Bild mit dem VBA-Code in die Mitte der Zelle
Verschieben Sie das Bild mit dem VBA-Code in die Mitte der Zelle.
Gehen Sie wie folgt vor, um Bilder in einem Arbeitsblatt in Excel in die Mitte der Zellen zu verschieben.
1. Öffnen Sie das Arbeitsblatt mit den Bildern, die Sie in Zellen zentrieren müssen, und drücken Sie dann die Taste Andere + F11 Schlüssel zum Öffnen der Microsoft Visual Basic für Applikationen Fenster.
2. In dem Microsoft Visual Basic für Applikationen Fenster, bitte klicken Insert > Modul. Kopieren Sie dann den VBA-Code und fügen Sie ihn in das Codefenster ein.
VBA-Code: Verschieben Sie 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
Notizen:
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 Schlüssel zum Ausführen des Codes.
Anschließend werden alle angegebenen Bilder sofort in die Mitte bestimmter Zellen verschoben (siehe Abbildung unten).
Weitere Artikel:
- Wie ändere ich automatisch alle Bilder, um sie mit Zellen in Excel zu verschieben und in der Größe zu ändern?
- Wie überprüfe ich, ob eine Zelle ein Bild in Excel enthält?
- Wie füge ich ein Bild oder Bild dynamisch in eine Zelle ein, basierend auf dem Zellenwert in Excel?
- Wie kann ich ein Bild vergrößern, wenn ich in Excel darauf klicke?
Beste Office-Produktivitätstools
Verbessern Sie Ihre Excel-Kenntnisse mit Kutools für Excel und erleben Sie Effizienz wie nie zuvor. Kutools für Excel bietet über 300 erweiterte Funktionen, um die Produktivität zu steigern und Zeit zu sparen. Klicken Sie hier, um die Funktion zu erhalten, die Sie am meisten benötigen ...
Office Tab Bringt die Oberfläche mit Registerkarten in Office und erleichtert Ihnen die Arbeit erheblich
- Aktivieren Sie das Bearbeiten und Lesen von Registerkarten in Word, Excel und PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters und nicht in neuen Fenstern.
- Steigert Ihre Produktivität um 50 % und reduziert jeden Tag Hunderte von Mausklicks für Sie!