Note: The other languages of the website are Google-translated. Back to English

Wie extrahiere ich Bilder aus Kommentaren in Excel?

In Excel können Sie Bilder so einfach wie möglich in den Kommentar einfügen. Haben Sie jemals darüber nachgedacht, die Bilder aus Kommentarfeldern in Zellen oder in einen bestimmten Ordner zu extrahieren? In diesem Artikel werde ich darüber sprechen, wie man die Bilder aus Kommentaren extrahiert.

Extrahieren und speichern Sie Bilder aus Kommentaren in einem Ordner mit der Funktion Speichern unter

Extrahieren Sie Bilder aus Kommentaren in Zellen mit VBA-Code


Pfeil blau rechte BlaseExtrahieren und speichern Sie Bilder aus Kommentaren in einem Ordner mit der Funktion Speichern unter

Wenn Sie die Bilder aus Kommentaren extrahieren und in einem Ordner speichern möchten, gehen Sie wie folgt vor:

1. Kopieren Sie das Blatt mit den Kommentaren mit Bildern, die Sie speichern möchten, in eine neue leere Arbeitsmappe.

doc Bild aus Kommentar 1 extrahieren

2. Und dann klick Reichen Sie das > Speichern unter um diese neue Arbeitsmappe als zu speichern Web-Seite Format in einem bestimmten Ordner, siehe Screenshot:

doc Bild aus Kommentar 2 extrahieren

3. Dann klick Sie sparen Klicken Sie auf die Schaltfläche, um die Datei zu speichern, und gehen Sie dann zu dem bestimmten Ordner, um die gespeicherten Bilder anzuzeigen. Im Ordner werden zwei Dateien generiert, eine ist die HTML-Datei und eine andere ist ein Ordner, der alle Bilder und andere Dateien enthält. Siehe Screenshot:

doc Bild aus Kommentar 3 extrahieren


Pfeil blau rechte BlaseExtrahieren Sie Bilder aus Kommentaren in Zellen mit VBA-Code

Wenn Sie die Bilder aus Kommentaren in Zellen extrahieren möchten, wie im folgenden Screenshot gezeigt, kann ich hier einen VBA-Code für Sie erstellen. Gehen Sie dazu folgendermaßen vor:

doc Bild aus Kommentar 4 extrahieren

1. Halten Sie die Taste gedrückt ALT + F11 Schlüssel zum Öffnen der Microsoft Visual Basic für Applikationen Fenster.

2. Klicken Sie Insert > Modulund fügen Sie den folgenden Code in das Modulfenster ein.

VBA-Code: Bilder aus Kommentaren in Zellen extrahieren:

Sub CommentPictures()
'Updateby Extendoffcie
    Dim cmt As Comment
    Dim xRg As Range
    Dim visBool As Boolean
    Dim cmtTxt As String
    Dim jpgPath As String
    Dim shpHeight As Integer, shpWidth As Integer
    Application.ScreenUpdating = False
    For Each cmt In ActiveSheet.Comments
        With cmt
            cmtTxt = .Text
            shpHeight = .Shape.Height
            shpWidth = .Shape.Width
            .Text Text:="" & Chr(10) & ""
            visBool = .Visible
            .Visible = True
            On Error Resume Next
            Set xRg = .Parent.Offset(0, 1)
            .Shape.CopyPicture _
              Appearance:=xlScreen, Format:=xlPicture
            xRg.PasteSpecial
            Selection.ShapeRange.LockAspectRatio = msoFalse
            Selection.Width = xRg.Width
            Selection.Height = xRg.Height
            .Visible = visBool
            .Text Text:=cmtTxt
        End With
    Next cmt
    Application.ScreenUpdating = True
End Sub

3. Dann drücken F5 Der Schlüssel zum Ausführen dieses Codes und alle Bilder der Kommentare im aktuellen Arbeitsblatt wurden in die nächsten Spaltenzellen extrahiert (siehe Abbildung):

doc Bild aus Kommentar 4 extrahieren


Die besten Tools für die Office-Produktivität

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

  • Wiederverwendung: Schnell einfügen komplexe Formeln, Diagramme und alles, was du vorher benutzt hast; Zellen verschlüsseln mit Passwort; Mailingliste erstellen und E-Mails senden ...
  • Super Formelriegel (leicht mehrere Textzeilen und Formeln bearbeiten); 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 geteilter Zellen; 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; Zufällige Auswahl ...
  • Exakte Kopie Mehrere Zellen ohne Änderung der Formelreferenz; Referenzen automatisch erstellen zu mehreren Blättern; Aufzählungszeichen einfügen, Kontrollkästchen und mehr ...
  • Text extrahieren, Text hinzufügen, Nach Position entfernen, Leerzeichen entfernen;; Paging-Zwischensummen erstellen und drucken; Inhalt und Kommentare zwischen Zellen konvertieren...
  • Superfilter (Speichern und Anwenden von Filterschemata auf andere Blätter); Erweiterte Sortierung nach Monat / Woche / Tag, Häufigkeit und mehr; Spezialfilter fett, kursiv ...
  • Kombinieren Sie Arbeitsmappen und Arbeitsblätter;; Tabellen basierend auf Schlüsselspalten zusammenführen; Daten in mehrere Blätter aufteilen; Batch-Konvertierung von xls, xlsx und PDF...
  • Mehr als 300 leistungsstarke Funktionen. Unterstützt Office / Excel 2007-2021 und 365. Unterstützt alle Sprachen. Einfache Bereitstellung in Ihrem Unternehmen oder Ihrer Organisation. 30-tägige kostenlose Testversion mit allen Funktionen. 60 Tage Geld-zurück-Garantie.
kte tab 201905

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!
officetab unten
Kommentare (3)
Noch keine Bewertungen. Bewerten Sie als Erster!
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Danke!! Ich hatte zuvor Bilder in Kommentare für ein Dokument eingefügt und die Bilder dann gelöscht, nur damit mich jemand um Kopien nur der Bilder bat. Das war sehr einfach und hat mich gerettet. Danke noch einmal!
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Hallo,
Sehr interessanter Beitrag. Vielen Dank.

Aber ich sehe nicht, wie ich es verwenden soll, um das Bild für eine Schaltfläche meiner CommandBar zu verwenden. Lassen Sie mich erklären.

Ich möchte meine Excel-Tabellen teilen, ohne separate Bilder für Schaltflächen als JPG-Dateien zu senden (.Picture = LoadPicture(ImageFile).

Also möchte ich die Bilder in einigen versteckten Zellen oder in einigen Kommentaren verstecken.
Kein Problem, die Bilder zu verstecken.
Aber es gelingt mir nicht, sie danach dazu zu bringen, meine Schaltflächen zu initialisieren.

Irgendeine Idee dazu?


Vielen Dank für Ihre Zeit.
Brian.
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Hallo! Muchisimas gracias por el aporte. Tengo un problema, a veces funciona ya veces no extrae las fotos .Por que puede ser si es la misma macro?
Es sind noch keine Kommentare vorhanden
Hinterlassen Sie Ihre Kommentare
Als Gast posten
×
Bewerte diese Nachricht:
0   Figuren
Vorgeschlagene Standorte

Folgen Sie uns

Copyright © 2009 - www.extendoffice.com. | Alle Rechte vorbehalten. Unterstützt von ExtendOffice. | Sitemap
Microsoft und das Office-Logo sind Marken oder eingetragene Marken der Microsoft Corporation in den USA und / oder anderen Ländern.
Geschützt durch Sectigo SSL