Come estrarre immagini dai commenti in Excel?
In Excel, puoi inserire un'immagine nel commento il più facilmente possibile, ma hai mai considerato di estrarre le immagini dalle caselle dei commenti nelle celle o in una cartella specifica? In questo articolo parlerò di come estrarre le immagini dai commenti.
Estrai e salva le immagini dai commenti in una cartella con la funzione Salva con nome
Estrai le immagini dai commenti nelle celle con il codice VBA
Estrai e salva le immagini dai commenti in una cartella con la funzione Salva con nome
Se desideri estrarre e salvare le immagini dai commenti in una cartella, procedi come segue:
1. Copia il foglio che contiene i commenti con le immagini che desideri salvare in una nuova cartella di lavoro vuota.
2. E poi clicca Compila il > Salva con nome per salvare questa nuova cartella di lavoro come Pagina Web formato in una cartella specifica, vedi screenshot:
3. Quindi fare clic Risparmi pulsante per salvare il file, quindi vai alla cartella specifica per visualizzare le immagini salvate, vengono generati due file nella cartella, uno è il file html e un altro è una cartella che contiene tutte le immagini e altri file, vedi screenshot:
Estrai le immagini dai commenti nelle celle con il codice VBA
Se vuoi estrarre le immagini dai commenti nelle celle come mostrato nella seguente schermata, qui, posso creare un codice VBA per te, per favore fai come segue:
1. Tieni premuto il ALT + F11 chiavi per aprire il Microsoft Visual Basic, Applications Edition finestra.
2. Clic inserire > Modulie incolla il codice seguente nella finestra del modulo.
Codice VBA: estrai le immagini dai commenti nelle celle:
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. Quindi premere F5 chiave per eseguire questo codice e tutte le immagini dei commenti nel foglio di lavoro corrente sono state estratte nelle celle della colonna successiva, vedi screenshot:
I migliori strumenti per la produttività in ufficio
Potenzia le tue competenze di Excel con Kutools per Excel e sperimenta l'efficienza come mai prima d'ora. Kutools per Excel offre oltre 300 funzionalità avanzate per aumentare la produttività e risparmiare tempo. Fai clic qui per ottenere la funzionalità di cui hai più bisogno...
Office Tab porta l'interfaccia a schede in Office e semplifica notevolmente il tuo lavoro
- Abilita la modifica e la lettura a schede in Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Apri e crea più documenti in nuove schede della stessa finestra, piuttosto che in nuove finestre.
- Aumenta la produttività del 50% e riduce ogni giorno centinaia di clic del mouse!