Sådan indsættes billeder i Excel ved hjælp af en makro

Makroer i Excel kan udføre funktioner som indsættelse af billeder, kopiering af data fra en celle til en anden osv. For at skrive en effektiv makro til at indsætte billeder i Excel, skal du bruge en loop

Denne FAQ vil følge dig gennem trinene til at anvende denne makro til dit regneark for at få billeder vist.

Brug en makro til at indsætte billeder i Excel

For at bruge en makro til at indsætte billeder, skal du begynde med følgende antagelser: Billednavne findes i kol B, der starter ved B2; du vil indsætte hvert billede på forskellige steder hvor man skal indsætte det billede, der er identificeret i kol B, findes i col C startende ved C2.

Indtast nu følgende kode:

 Underbillede ()
Dim picname As String
Dim pasteAt As Integer
Dim lThisRow så lang
lThisRow = 2
Gør mens (celler (lThisRow, 2) "")
'Range ("A6"). Vælg' Dette er her, hvor billedet indsættes
pasteAt = celler (lThisRow, 3)
Celler (pasteAt, 1) .Vælg 'Dette er her, hvor billedet indsættes
'Dim picname As String
'picname = Range ("B6")' Dette er billednavnet
picname = Cells (lThisRow, 2) 'Dette er billednavnet
ActiveSheet.Pictures.Insert ("C: \ Users \ vbayat \ Mine dokumenter \ vidabayat \ re-market \" & picname & ".jpg"). Vælg 'Sti til hvor billederne gemmes
'' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '''
'Dette ændrer billedet
'' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '''
Med udvælgelse
'.Left = Range ("A6"). Venstre
'.Top = Range ("A6"). Top
.Left = celler (pasteAt, 1) .Left
.Top = celler (pasteAt, 1) .Top
.ShapeRange.LockAspectRatio = msoFalse
.ShapeRange.Height = 100 #
.ShapeRange.Width = 80 #
.ShapeRange.Rotation = 0 #
Slut med
lThisRow = lThisRow + 1
Loop
Range ( "A10"). Vælg
Application.ScreenUpdating = True
Exit Sub
ErrNoPhoto:
MsgBox "Kunne ikke finde billede" 'Viser meddelelsesboks, hvis billedet ikke blev fundet
Exit Sub
Range ( "B20"). Vælg
Slutdel