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 Sie Bilder aus Kommentaren in Zellen mit VBA-Code
Extrahieren 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.
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:
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:
Extrahieren 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:
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):
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.
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!
