Come inserire immagini in Excel utilizzando una macro

I macro in Excel possono eseguire funzioni come l' inserimento di immagini, la copia di dati da una cella all'altra, ecc. Per scrivere una macro efficace per l'inserimento di immagini in Excel, è necessario utilizzare un ciclo

Questa FAQ ti guiderà attraverso i passaggi per applicare questa macro al tuo foglio di calcolo per far apparire le immagini.

Utilizzare una macro per inserire immagini in Excel

Per utilizzare una macro per inserire immagini, è necessario iniziare con le seguenti ipotesi: i nomi delle immagini si trovano in col B a partire da B2; vuoi incollare ogni immagine in una posizione diversa; dove incollare l'immagine identificata in col B si trova in col C a partire da C2.

Ora, inserisci il seguente codice:

 Immagine secondaria ()
Dim picname As String
Dim pastaAt As Integer
Dim lThisRow As Long
lThisRow = 2
Do While (Cells (lThisRow, 2) "")
'Range ("A6"). Seleziona' Qui è dove verrà inserita l'immagine
pasteAt = Cells (lThisRow, 3)
Celle (pasteAt, 1). Seleziona 'Qui è dove verrà inserita l'immagine
'Dim picname As String
'picname = Range ("B6")' Questo è il nome dell'immagine
picname = Cells (lThisRow, 2) 'Questo è il nome dell'immagine
ActiveSheet.Pictures.Insert ("C: \ Users \ vbayat \ Documenti \ vidabayat \ re-market \" & picname & ".jpg"). Seleziona "Percorso in cui sono memorizzate le immagini
'' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '''
'Questo ridimensiona l'immagine
'' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '''
Con la selezione
'.Left = Range ("A6"). Sinistra
'.Top = Range ("A6"). Superiore
.Left = Cells (pasteAt, 1) .Left
.Top = Cells (pasteAt, 1) .Top
.ShapeRange.LockAspectRatio = msoFalse
.ShapeRange.Height = 100 #
.ShapeRange.Width = 80 #
.ShapeRange.Rotation = 0 #
Fine con
lThisRow = lThisRow + 1
Ciclo continuo
Range ( "A10"). Selezionare
Application.ScreenUpdating = True
Esci sott
ErrNoPhoto:
MsgBox "Impossibile trovare foto" 'Mostra la finestra di messaggio se l'immagine non viene trovata
Esci sott
Range ( "B20"). Selezionare
End Sub