Wie kann ich die Größe mehrerer Zellen ändern, um Bilder schnell in Excel anzupassen?
Wie wir wissen, unterstützt Microsoft Excel die automatische Anpassung der Zeilenhöhe und Spaltenbreite einer Zelle an gefüllten Inhalt, z. B. eine lange Textzeichenfolge. Der Befehl AutoFit-Zeilenhöhe und der Befehl AutoFit-Spaltenbreite gelten jedoch nicht für Bilder, da sich ein eingefügtes Bild nicht in einer bestimmten Zelle befindet.
Ändern Sie die Größe der Zellen, um Bilder mit VBA anzupassen
Ändern Sie die Größe von Bildern, um sie an Zellen mit Kutools for Excel anzupassen
Ändern Sie die Größe der Zellen, um Bilder mit VBA anzupassen
Angenommen, ein Arbeitsblatt enthält zwei große Bilder, siehe folgenden Screenshot. Möglicherweise möchte jemand die Größe einer Zelle ändern, damit sie in ein Bild über der Zelle passt. Aber wie kann man das realisieren?
Natürlich können Sie die Größe jeder Zelle automatisch ändern, um Bilder darüber anzupassen. Es kann jedoch für eine Reihe von Bildern mühsam und zeitaufwändig sein. Tatsächlich können wir ein VB-Makro anwenden, um die Größe aller Zellen so zu ändern, dass Bilder darüber passen. Sie können dies mit den folgenden Schritten tun:
Schritt 1: Halten Sie die Taste gedrückt ALT + F11 Tasten, und es öffnet die Microsoft Visual Basic für Applikationen Fenster.
Schritt 2: Klicken Sie auf Insert > Modulund fügen Sie das folgende Makro in das Modulfenster ein.
VBA: Ändern Sie die Größe mehrerer Zellen, um sie an ihre Bilder anzupassen.
Sub ResizePictureCells()
For Each Picture In ActiveSheet.DrawingObjects
PictureTop = Picture.Top
PictureLeft = Picture.Left
PictureHeight = Picture.Height
PictureWidth = Picture.Width
For N = 2 To 256
If Columns(N).Left > PictureLeft Then
PictureColumn = N - 1
Exit For
End If
Next N
For N = 2 To 65536
If Rows(N).Top > PictureTop Then
PictureRow = N - 1
Exit For
End If
Next N
Rows(PictureRow).RowHeight = PictureHeight
Columns(PictureColumn).ColumnWidth = PictureWidth * (54.29 / 288)
Picture.Top = Cells(PictureRow, PictureColumn).Top
Picture.Left = Cells(PictureRow, PictureColumn).Left
Next Picture
End Sub
Schritt 3: Drücken Sie die Taste F5 Schlüssel zum Ausführen dieses Makros.
Wenn im aktuellen Arbeitsblatt Bilder vorhanden sind, wird die Größe der Zelle unter einem Bild so angepasst, dass sie zum Bild darüber passt. Siehe folgenden Screenshot:
Ändern Sie die Größe von Bildern, um sie an Zellen mit Kutools for Excel anzupassen
Wenn Sie die Größe der Zellen wie im folgenden Screenshot gezeigt angepasst haben und dann die Bilder importieren und ihre Größe ändern möchten, um sie an die Zellengrößen anzupassen, wie können Sie dies schnell erledigen? In diesem Fall, Kutools for Excel's Pictrues importieren Das Dienstprogramm kann Ihnen dabei helfen, diesen Job einfach zu erledigen.
Kutools for Excel, mit mehr als 120 praktische Funktionen, erleichtert Ihre Arbeit. | ||
Nach der Installation Kutools für Excel, bitte gehen Sie wie folgt vor :(Kostenloser Download von Kutools für Excel jetzt!)
1 Klicken Unternehmen > Import / Export > Bilder importieren. Siehe Screenshot:
2. Im Knallen Bilder importieren Im Dialogfeld können Sie zuerst die Importreihenfolge angeben Importauftrag Abschnitt, und klicken Sie dann Speichern Klicken Sie auf die Schaltfläche, um Bilder aus einem Ordner oder als Dateien nacheinander hinzuzufügen. Anschließend können Sie sehen, dass die Bilder in der Liste aufgeführt sind Bild Sektion. Siehe Screenshot:
3. Dann klick Import Schaltfläche zum Anzeigen Bildgröße importieren Dialog, dann überprüfen Passende Zellengröße Möglichkeit. Siehe Screenshot:
4 Klicken OK > Import um ein Dialogfeld zur Auswahl der Zellen anzuzeigen, in die Sie Bilder importieren möchten. Siehe Screenshot:
5 Klicken OKund jetzt werden alle pirtcures in die Zellen importiert und ihre Größe an passende Zellen angepasst.
Bilder importieren, die der Zellengröße entsprechen
Verwandter Artikel:
Wie füge ich mehrere Bilder in eine Zelle in Excel ein?
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!