Come estrarre immagini dai commenti in Excel?
In Excel, puoi inserire un'immagine in un commento facilmente, 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 immagini dai commenti in una cartella con la funzione Salva con nome
Estrai immagini dai commenti nelle celle con il codice VBA
Estrai e salva 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 nel seguente modo:
1. Copia il foglio che contiene i commenti con le immagini che desideri salvare in una nuova cartella di lavoro vuota.
2. Quindi fai clic su File > Salva con nome per salvare questa nuova cartella di lavoro in formato Pagina Web in una cartella specifica, vedi screenshot:
3. Quindi fai clic sul pulsante Salva per salvare il file, poi vai alla cartella specifica per visualizzare le immagini salvate; nella cartella sono stati generati due file, uno è il file html e l'altro è una cartella che contiene tutte le immagini e altri file, vedi screenshot:
Sblocca la Magia di Excel con Kutools AI
- Esecuzione Intelligente: Esegui operazioni sulle celle, analizza i dati e crea grafici — tutto guidato da semplici comandi.
- Formule Personalizzate: Genera formule su misura per ottimizzare i tuoi flussi di lavoro.
- Codifica VBA: Scrivi e implementa codice VBA senza sforzo.
- Interpretazione delle Formule: Comprendi facilmente formule complesse.
- Traduzione del Testo: Superare le barriere linguistiche all'interno dei tuoi fogli di calcolo.
Estrai immagini dai commenti nelle celle con il codice VBA
Se desideri estrarre le immagini dai commenti nelle celle come mostrato nello screenshot seguente, posso creare un codice VBA per te, procedi nel seguente modo:
1. Tieni premuti i tasti ALT + F11 per aprire la finestra di Microsoft Visual Basic for Applications.
2. Fai clic su Inserisci > Modulo e incolla il seguente codice nella finestra del Modulo.
Codice VBA: Estrai 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 premi il tasto F5 per eseguire questo codice, e tutte le immagini dei commenti nel foglio di lavoro corrente verranno estratte nelle celle della colonna successiva, vedi screenshot:
I migliori strumenti per la produttività in Office
Potenzia le tue competenze in Excel con Kutools per Excel e sperimenta un'efficienza mai vista prima. Kutools per Excel offre oltre300 funzionalità avanzate per aumentare la produttività e farti risparmiare tempo. Clicca qui per ottenere la funzione di cui hai più bisogno...
Office Tab porta le schede su Office e rende il tuo lavoro molto più semplice
- Abilita la modifica e lettura a schede in Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Apri e crea più documenti in nuove schede della stessa finestra invece che in nuove finestre.
- Aumenta la produttività del50% e riduce centinaia di clic del mouse ogni giorno!
Tutti gli add-in Kutools. Un solo programma di installazione
La suite Kutools for Office include add-in per Excel, Word, Outlook & PowerPoint più Office Tab Pro, ideale per i team che lavorano su più app di Office.
- Suite tutto-in-uno — Add-in per Excel, Word, Outlook & PowerPoint + Office Tab Pro
- Un solo programma di installazione, una sola licenza — configurazione in pochi minuti (pronto per MSI)
- Funzionano meglio insieme — produttività ottimizzata su tutte le app Office
- Prova completa30 giorni — nessuna registrazione, nessuna carta di credito
- Massimo risparmio — costa meno rispetto all’acquisto singolo degli add-in