Så här sätter du in bilder i Excel med en Macro

Makroner i Excel kan utföra funktioner som att infoga bilder, kopiera data från en cell till en annan, etc. För att skriva ett effektivt makro för att infoga bilder i excel måste du använda en slinga

Denna FAQ kommer att gå igenom stegen för att tillämpa detta makro i kalkylbladet för att bilder ska visas.

Använd en Macro för att infoga bilder i Excel

För att använda ett makro för att infoga bilder måste du börja med följande antaganden: Bildnamn finns i kol B som börjar vid B2; du vill klistra in varje bild på olika platser var att klistra in bilden identifierad i kol B finns i kol C börjar vid C2.

Ange nu följande kod:

 Underbild ()
Dim bildnamn som sträng
Dim pasteAt As Integer
Mått lThisRow så länge
lThisRow = 2
Gör medan (celler (lThisRow, 2) "")
"Range" ("A6"). Välj "Här kommer bilden att sättas in
pasteAt = celler (lThisRow, 3)
Celler (pasteAt, 1) .Välj "Här kommer bilden att infogas
'Dim picname As String
'picname = Range ("B6")' Detta är bildnamnet
picname = Celler (lThisRow, 2) 'Detta är bildnamnet
ActiveSheet.Pictures.Insert ("C: \ Users \ vbayat \ Mina dokument \ vidabayat \ re-market \" & picname & ".jpg"). Välj "Vägen till var bilder lagras
'' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '''
'Detta ändrar bilden
'' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '''
Med urval
'.Left = Range ("A6"). Vänster
'.Top = Range ("A6"). Överst
.Left = celler (pasteAt, 1) .Left
.Top = celler (pasteAt, 1) .Top
.ShapeRange.LockAspectRatio = msoFalse
.ShapeRange.Height = 100 #
.ShapeRange.Width = 80 #
.ShapeRange.Rotation = 0 #
Sluta med
lThisRow = lThisRow + 1
Slinga
Range ( "A10"). Välj
Application.ScreenUpdating = True
Exit Sub
ErrNoPhoto:
MsgBox "Kan inte hitta foto" 'Visar meddelandebox om bilden inte hittades
Exit Sub
Range ( "B20"). Välj
Slutdel