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 Speichern 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):
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!