Wie ändere ich automatisch alle Bilder, um sie mit Zellen in Excel zu verschieben und in der Größe zu ändern?
Normalerweise wurde ein Bild mit den Standardeigenschaften Verschieben in das Arbeitsblatt eingefügt und nicht mit Zellen dimensioniert. Sie müssen die Eigenschaften manuell in Verschieben und Größe mit Zellen in Ihrem Arbeitsblatt nach Bedarf ändern. Tatsächlich können Sie das Bild schnell ändern, um es mit Zellen automatisch zu verschieben und die Größe zu ändern. Und dieser Artikel zeigt Ihnen die Methode, um dies zu erreichen.
Ändern Sie automatisch alle Bilder, um sie mit Zellen mit VBA-Code zu verschieben und in der Größe zu ändern
Mit dem folgenden VBA-Code können Sie die Eigenschaften aller Bilder schnell ändern, um sie mit Zellen in einem Arbeitsblatt zu verschieben und ihre Größe zu ändern. Bitte gehen Sie wie folgt vor.
1. Öffnen Sie das Arbeitsblatt mit den Bildern, die Sie ändern möchten, indem Sie Zellen verschieben und ihre Größe ändern. Öffnen Sie dann das Microsoft Visual Basic für Applikationen Fenster durch Drücken der Andere + F11 Schlüssel.
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: Ändern Sie alle Bilder, um sie mit Zellen zu verschieben und zu dimensionieren
Sub MoveAndSizeWithCells()
Dim xPic As Picture
On Error Resume Next
Application.ScreenUpdating = False
For Each xPic In ActiveSheet.Pictures
xPic.Placement = xlMoveAndSize
Next
Application.ScreenUpdating = True
End Sub
3. Drücken Sie die Taste F5 Geben Sie die Taste ein oder klicken Sie auf die Schaltfläche Ausführen, um den Code auszuführen.
Dann werden alle Bilder im aktiven Blatt automatisch in „Verschieben und Größe mit Zellen“ geändert.
Weitere Artikel:
- Wie zentriere ich ein Bild in einer Excel-Zelle?
- 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!