Slik legger du inn bilder i Excel ved hjelp av en makro

Makroer i Excel kan utføre funksjoner som å sette inn bilder, kopiere data fra en celle til en annen, etc. For å skrive en effektiv makro for å sette inn bilder i Excel, må du bruke en loop

Denne FAQ-språket går deg gjennom trinnene for å bruke denne makroen til regnearket ditt for å få bilder til å vises.

Bruk en makro til å sette inn bilder i Excel

For å kunne bruke en makro for å sette inn bilder, må du begynne med følgende forutsetninger: Bildenavn finnes i kol B som starter ved B2; du vil lime inn hvert bilde på et annet sted hvor å lime inn bildet identifisert i kol B finnes i kol C starter ved C2.

Skriv inn følgende kode:

 Underbilde ()
Dim picname As String
Dim pasteAt As Integer
Dim lThisRow så lenge
lThisRow = 2
Gjør mens (celler (lThisRow, 2) "")
'Range ("A6"). Velg' Dette er hvor bildet skal settes inn
pasteAt = celler (lThisRow, 3)
Celler (pasteAt, 1) .Velg 'Dette er hvor bildet skal settes inn
'Dim picname As String
'picname = Range ("B6")' Dette er bildet navn
picname = Cells (lThisRow, 2) 'Dette er bildet navn
ActiveSheet.Pictures.Insert ("C: \ Users \ vbayat \ Mine dokumenter \ vidabayat \ re-market \" & picname & ".jpg"). Velg "Sti til hvor bildene lagres
'' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '''
'Dette endrer bildet
'' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '''
Med valg
'.Left = Range ("A6"). Venstre
'.Top = Range ("A6"). Topp
.Left = Cells (pasteAt, 1) .Left
.Top = celler (pasteAt, 1) .Top
.ShapeRange.LockAspectRatio = msoFalse
.ShapeRange.Height = 100 #
.ShapeRange.Width = 80 #
.ShapeRange.Rotation = 0 #
Slutt med
lThisRow = lThisRow + 1
Loop
Range ( "A10"). Velg
Application.ScreenUpdating = True
Avslutt Sub
ErrNoPhoto:
MsgBox "Kan ikke finne bilde" 'Viser meldingsboks hvis bildet ikke ble funnet
Avslutt Sub
Range ( "B20"). Velg
Slutt Sub