Tipp: Andere Sprachen sind Google-Übersetzungen. Sie können die English Version dieses Links.
Einloggen
x
or
x
x
Registrieren
x

or

Wie skalieren Sie Bilder, um Zellen in Excel anzupassen?

Normalerweise legen Bilder über Zellen hinweg, und die meiste Zeit deckt ein Bild viele Zellen ab. Wenn ein Arbeitsblatt eine große Anzahl von Bildern enthält, möchten Sie möglicherweise jedes Bild in einer einzelnen Zelle platzieren. Aber wie geht man damit um? Tatsächlich gibt es einige knifflige Wege, um uns zu helfen, Bilder so zu skalieren, dass sie schnell an die Größe von Zellen angepasst werden können.

Ändern Sie die Größe eines ausgewählten Bildes so, dass es mit VB Mac in eine einzelne Zelle passt

Ändern Sie die Größe der eingefügten Bilder so, dass sie mit Kutools für Excel in Zellen passen

Registerkarte "Office" Aktivieren Sie das Bearbeiten und Durchsuchen von Registerkarten in Office und vereinfachen Sie Ihre Arbeit erheblich ...
Kutools for Excel löst die meisten Ihrer Probleme und steigert Ihre Produktivität um 80%
  • Alles wiederverwenden: Fügen Sie die am häufigsten verwendeten oder komplexesten Formeln, Diagramme und andere Elemente zu Ihren Favoriten hinzu und verwenden Sie sie in Zukunft schnell wieder.
  • Mehr als 20-Textfunktionen: Extrahieren Sie die Nummer aus der Textzeichenfolge. Teile von Texten extrahieren oder entfernen; Zahlen und Währungen in englische Wörter umrechnen ...
  • Tools zusammenführen: Mehrere Arbeitsmappen und Blätter in einer; Mehrere Zellen / Zeilen / Spalten zusammenführen, ohne Daten zu verlieren; Doppelte Zeilen und Summe zusammenführen ...
  • Geteilte Werkzeuge: Aufteilen von Daten in mehrere Blätter basierend auf dem Wert; Eine Arbeitsmappe in mehrere Excel-, PDF- oder CSV-Dateien; Eine Spalte zu mehreren Spalten ...
  • Einfügen überspringen Versteckte / Gefilterte Zeilen; Zählung und Summe nach Hintergrundfarbe; Mailingliste erstellen und Senden Sie E-Mails nach dem Wert von Cell...
  • Super Filter: Erstellen Sie erweiterte Filterschemata und wenden Sie diese auf alle Blätter an. Art nach Woche, Tag, Häufigkeit und mehr; Filtern durch Fettdruck, Formeln, Kommentar ...
  • Mehr als 300 leistungsstarke Funktionen; Funktioniert mit Office 2007-2019 und 365; Unterstützt alle Sprachen; Einfache Bereitstellung in Ihrem Unternehmen oder Ihrer Organisation.

Pfeil blaue rechte Blase Ändern Sie die Größe eines ausgewählten Bildes so, dass es mit VB Mac in eine einzelne Zelle passt


Wir können VB-Makros anwenden, um die Größe eines ausgewählten Bildes so zu ändern, dass es in eine einzelne Zelle passt, aber die Größe und Breite eines Bildes nicht manuell anpassen. Sie können es mit folgenden Schritten tun:

Schritt 1: Fügen Sie die Bilder in ein Arbeitsblatt ein und wählen Sie ein Bild aus, dessen Größe Sie für eine einzelne Zelle anpassen möchten.

doc-resize-pictures-to-fit-Zellen1

Schritt 2: Halten Sie die Taste gedrückt ALT + F11 Schlüssel, und es öffnet die Microsoft Visual Basic für Applikationen Fenster.

Schritt 3: Klicken Sie auf Einsatz > Modul, und fügen Sie das folgende Makro in das Modulfenster ein.

VBA: Größe eines ausgewählten Bildes so ändern, dass es in eine Zelle passt.

Public Sub FitPic()
On Error GoTo NOT_SHAPE
Dim PicWtoHRatio As Single
Dim CellWtoHRatio As Single
With Selection
PicWtoHRatio = .Width / .Height
End With
With Selection.TopLeftCell
CellWtoHRatio = .Width / .RowHeight
End With
Select Case PicWtoHRatio / CellWtoHRatio
Case Is > 1
With Selection
.Width = .TopLeftCell.Width
.Height = .Width / PicWtoHRatio
End With
Case Else
With Selection
.Height = .TopLeftCell.RowHeight
.Width = .Height * PicWtoHRatio
End With
End Select
With Selection
.Top = .TopLeftCell.Top
.Left = .TopLeftCell.Left
End With
Exit Sub
NOT_SHAPE:
MsgBox "Select a picture before running this macro."
End Sub

Schritt 4: Drücken Sie die Taste F5 Schlüssel zum Ausführen dieses Makros.

Schritt 5: Wiederholen Sie die obigen Schritte, um die Größe anderer Bilder an die Größe einer einzelnen Zelle anzupassen.

Jetzt werden alle eingefügten Bilder verkleinert und passen in Zellen. Siehe folgenden Screenshot:

doc-resize-pictures-to-fit-Zellen2

Text: Sie können nur einmal ein Bild in der Größe ändern. Wenn Sie mehr als ein Bild einmal auswählen, wird ein Warndialogfeld angezeigt.


Pfeil blaue rechte Blase Ändern Sie die Größe der eingefügten Bilder so, dass sie mit Kutools für Excel in Zellen passen

Wenn Sie Kutools for Excel installiert, können Sie es anwenden Bilder importieren Werkzeug, um beim Einfügen von Bildern alle Bilder an die Größe der Zellen anzupassen oder die Höhe zu ändern.

Kutools for Excel enthält mehr als 300 praktische Excel-Tools. Kostenlos zu testen, ohne Einschränkung in 30 Tagen. Get it Now.

Schritt 1: Wählen Sie die Bereichszellen aus, in die Bilder eingefügt werden sollen, und klicken Sie auf Unternehmen >Import / Export > Bilder importieren. Siehe folgenden Screenshot:

doc-resize-Bild-zu-Zelle-anpassen-1

Schritt 2: In der Bilder importieren Wählen Sie in der Dropdown-Liste die Einfügereihenfolge aus und klicken Sie auf Add Klicken Sie auf, um Bilder, die Sie benötigen, aus einer Datei oder einem Ordner hinzuzufügen Größe Taste. Siehe Screenshot:

doc-resize-Bild-zu-Zelle-anpassen-2

Schritt 3: Überprüfen Passende Zellgröße Möglichkeit. Dann klick Ok > Import um Dialoge zu schließen. Siehe Screenshot:

doc-resize-Bild-zu-Zelle-anpassen-3

Jetzt können Sie sehen, dass die Bilder passend zu den Zellen eingefügt werden.

doc-resize-Bild-zu-Zelle-anpassen-4

Text: Sie können auch die Höhe und Breite der Zelle in Schritt 3 angeben, um die Größe der Bilder zu ändern.

Wenn Sie mehr darüber wissen wollen Bild importieren Funktion, besuchen Sie bitte hier.


Verwandter Artikel:

Wie skalieren Sie mehrere Zellen, um Bilder über ihnen schnell in Excel anzupassen?


Kutools for Excel löst die meisten Ihrer Probleme und steigert Ihre Produktivität um 80%

  • Wiederverwendung: Schnell einlegen komplexe Formeln, Diagramme und alles, was du vorher benutzt hast; Zellen verschlüsseln mit Passwort; Mailingliste erstellen und E-Mails senden ...
  • Super Formula Bar (Bearbeiten Sie mühelos mehrere Textzeilen und Formeln); Layout lesen (Leichtes Lesen und Bearbeiten einer großen Anzahl von Zellen); In gefilterten Bereich einfügen...
  • Zellen / Zeilen / Spalten zusammenführen ohne Daten zu verlieren; Inhalt der Zellen teilen; Kombinieren Sie doppelte Zeilen / Spalten... Doppelte Zellen verhindern; Bereiche vergleichen...
  • Wählen Sie "Duplizieren" oder "Eindeutig" Reihen; Wählen Sie Leere Zeilen (alle Zellen sind leer); Super Find und Fuzzy Find in vielen Arbeitsmappen; Zufallsauswahl ...
  • Exakte Kopie Mehrere Zellen ohne Änderung der Formelreferenz; Referenzen automatisch erstellen auf mehrere Blätter; Bullets einfügen, Kontrollkästchen und mehr ...
  • Extract Text, Text hinzufügen, Nach Position entfernen, Leerzeichen entfernen; Erstellen und Drucken von Paging-Zwischensummen; Zwischen Zelleninhalt und Kommentaren konvertieren...
  • Superfilter (Speichere und wende Filterschemata auf andere Blätter an); Erweiterte Sortierung nach Monat / Woche / Tag, Häufigkeit und mehr; Spezialfilter fett, kursiv ...
  • Arbeitsmappen und Arbeitsblätter kombinieren; Zusammenführen von Tabellen basierend auf Schlüsselspalten; Daten in mehrere Blätter aufteilen; Stapelkonvertierung von xls, xlsx und PDF...
  • Mehr als 300 leistungsstarke Funktionen. Unterstützt Office / Excel 2007-2019 und 365. Unterstützt alle Sprachen. Einfache Bereitstellung in Ihrem Unternehmen oder Ihrer Organisation. Kostenlose 30-Testversion für alle Funktionen.
Registerkarte Tab 201905

Registerkarte "Office" Bringt die Benutzeroberfläche mit Registerkarten in Office und vereinfacht Ihre 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 täglich Hunderte von Mausklicks für Sie!
officetab unten
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Syed Waqas Gillani · 7 months ago
    Hi..
    perfact solution. But i want that function to work with command button. i need to make a command button to insert and auto resize to cell size. please help.
  • To post as a guest, your comment is unpublished.
    Shripad Lale · 2 years ago
    Brilliant! Works great! Just what I was looking for! Thank you!
  • To post as a guest, your comment is unpublished.
    claus · 2 years ago
    it works if the cells are not merged. unfortunately, I merged some cells and it fits only in the upper left cell which makes the photo very tiny.
  • To post as a guest, your comment is unpublished.
    Harry · 3 years ago
    Hi, I really love this macro that makes images fit cells, it really helped me with some work stuff. But does anyone know how to write this code for applescript? I have to use macs and the apple version of excel, Numbers, only uses applescript.
    Help!
    Many thanks,
    Harry
  • To post as a guest, your comment is unpublished.
    Carol · 3 years ago
    Thanks it did work but I have about 500 pictures so I don't want to do them one at a time - how do I do them all at the same time please?
  • To post as a guest, your comment is unpublished.
    Marcelo · 4 years ago
    Works!!
    But i have one question, i want to fit a img in a range of cells merged, how can i do it?
    • To post as a guest, your comment is unpublished.
      Nick · 2 years ago
      Public Sub FitPic()
      'https://www.extendoffice.com/documents/excel/1060-excel-resize-picture-to-fit-cell.html
      'Slight modification to resize into merged cells
      On Error GoTo NOT_SHAPE
      Dim PicWtoHRatio As Single
      Dim CellWtoHRatio As Single
      With Selection
      PicWtoHRatio = .Width / .Height
      End With
      With Selection.TopLeftCell
      CellWtoHRatio = .MergeArea.Width / .MergeArea.Height
      End With
      Select Case PicWtoHRatio / CellWtoHRatio
      Case Is > 1
      With Selection
      .Width = .TopLeftCell.MergeArea.Width
      .Height = .Width / PicWtoHRatio
      End With
      Case Else
      With Selection
      .Height = .TopLeftCell.MergeArea.Height
      .Width = .Height * PicWtoHRatio
      End With
      End Select
      With Selection
      .Top = .TopLeftCell.MergeArea.Top
      .Left = .TopLeftCell.MergeArea.Left
      .Placement = xlMoveAndSize
      End With
      Exit Sub
      NOT_SHAPE:
      MsgBox "Select a picture before running this macro."
      End Sub
    • To post as a guest, your comment is unpublished.
      Christina · 3 years ago
      [quote name="Marcelo"]Works!!
      But i have one question, i want to fit a img in a range of cells merged, how can i do it?[/quote]

      Marcelo did you get the updated marco for the merged cell? I am trying to do the same thing.

      thanks
  • To post as a guest, your comment is unpublished.
    Monika · 5 years ago
    Thank you this was perfect!!
  • To post as a guest, your comment is unpublished.
    lucy · 5 years ago
    Instructions for Excel
  • To post as a guest, your comment is unpublished.
    Jim Abramczyk · 5 years ago
    FitPic macro noted above is Sweeeeeet!
    I took a bunch of pictures of garage sale items that eventually went to Salvation Army. I documented pictures and values in Excel tax purposes. This macro worked first time! :lol: