Kā ievietot attēlus programmā Excel, izmantojot makro

Makro programmā Excel var veikt tādas funkcijas kā attēlu ievietošana, datu kopēšana no vienas šūnas uz citu utt. Lai rakstītu efektīvu makro attēlu, lai ievietotu attēlus Excel, jums būs jāizmanto cilpa

Šis FAQ sniegs jums norādījumus, kā veikt šo makro jūsu izklājlapā, lai parādītu attēlus.

Izmantojiet makro, lai ievietotu attēlus programmā Excel

Lai izmantotu makro attēlu ievietošanai, jums jāsāk ar šādiem pieņēmumiem: attēlu nosaukumi ir atrodami B slejā, sākot no B2; vēlaties ielīmēt katru attēlu citā vietā; kur ielīmēt B kolonnā identificēto attēlu, atrodama C slejā, sākot ar C2.

Tagad ievadiet šādu kodu:

 Apakšizdevums ()
Dim picname Kā virkne
Dim pasteAt Kā Integer
Dim lThisRow As Long
lThisRow = 2
Dariet, kamēr (šūnas (lThisRow, 2) "")
'Diapazons ("A6"). Izvēlieties "Šis ir attēls, kurā tiks ievietots attēls
pasteAt = Šūnas (lThisRow, 3)
Šūnas (pasteAt, 1) .Izvēlieties 'Šī ir vieta, kur tiks ievietots attēls
“Dim picname kā virkne
'picname = Range ("B6")' Šis ir attēla nosaukums
picname = Šūnas (lThisRow, 2) 'Šis ir attēla nosaukums
ActiveSheet.Pictures.Insert ("C: lietotāji vbayat Mani dokumenti vidabatatu tirgus" & picname & ".jpg"). Izvēlieties "Ceļš uz vietu, kur attēli tiek saglabāti
'' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' ' '' '' '
'Tas maina attēla izmērus
'' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' ' '' '' '
Ar atlasi
'.Left = diapazons ("A6")
".Top = Range (" A6 ")
.Left = šūnas (pasteAt, 1)
.Top = šūnas (pasteAt, 1)
.ShapeRange.LockAspectRatio = msoFalse
.ShapeRange.Height = 100 #
.ShapeRange.Width = 80 #
.ShapeRange.Rotation = 0 #
Beigas ar
lThisRow = lThisRow + 1
Loop
Diapazons ("A10")
Application.ScreenUpdating = True
Iziet no Sub
ErrNoPhoto:
MsgBox "Nevar atrast fotoattēlu" Rāda ziņojumu lodziņu, ja attēls nav atrasts
Iziet no Sub
Diapazons ("B20")
Beigt Sub