Jak vložit obrázky v aplikaci Excel pomocí makra

Makra v aplikaci Excel mohou provádět funkce, jako je vkládání obrázků, kopírování dat z jedné buňky do druhé, atd. Aby bylo možné napsat účinné makro pro vložení obrázků do aplikace Excel, budete muset použít smyčku

Tyto FAQ vás provedou kroky k použití tohoto makra na tabulku, aby se obrázky zobrazily.

Vložit obrázky v aplikaci Excel pomocí makra

Chcete-li použít makro k vložení obrázků, musíte začít s následujícími předpoklady: názvy obrázků se nacházejí v sloupci B počínaje B2; chcete vložit každý obrázek na jiné místo; kde vložit obrázek identifikovaný ve sloupci B se nachází ve sloupci C začínajícím na C2.

Nyní zadejte následující kód:

 Podřízený obrázek ()
Dim picname As String
Dim pasteAt As Integer
Dim lThisRow As Long
lThisRow = 2
Dokud (buňky (lThisRow, 2) "")
'Range ("A6"). Vyberte "Toto je místo, kam bude snímek vložen
pasteAt = Buňky (lThisRow, 3)
Buňky (pasteAt, 1) .Vybrat 'Toto je místo, kde bude obraz vložen
'Dim picname jako String
'picname = Rozsah ("B6")' Toto je název obrázku
picname = Cells (lThisRow, 2) 'Toto je název obrázku
ActiveSheet.Pictures.Insert ("C: Uživatelé vbayat Moje dokumenty vidabayat re-market" & picname & ".jpg") Vyberte 'Cesta k místu, kde jsou obrázky uloženy
'' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' ' '' '' '
'To změní velikost obrázku
'' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' ' '' '' '
S výběrem
'.Left = Rozsah ("A6")
'.Top = Range ("A6")
.Left = Buňky (pasteAt, 1) .Left
.Top = Buňky (pasta, 1)
.ShapeRange.LockAspectRatio = msoFalse
.ShapeRange.Height = 100 #
.ShapeRange.Width = 80 #
.ShapeRange.Rotation = 0 #
Konec s
lThisRow = lThisRow + 1
Smyčka
Rozsah ("A10") Vyberte
Application.ScreenUpdating = True
Konec Sub
ErrNoPhoto:
MsgBox "Nelze najít fotografii" Zobrazí okno se zprávou, pokud obrázek nebyl nalezen
Konec Sub
Rozsah ("B20") Vyberte
End Sub