Kaip įterpti nuotraukas į „Excel“ naudojant makrokomandą

„Excel“ makrokomandos gali atlikti funkcijas, pvz., Įterpti nuotraukas, kopijuoti duomenis iš vieno langelio į kitą ir tt Norėdami parašyti veiksmingą makrokomandą, kad galėtumėte įterpti vaizdus į Excel, jums reikės naudoti kilpą

Šis DUK jums padės atlikti veiksmus, kaip taikyti šią makrokomandą, kad būtų rodomos nuotraukos.

Naudokite makrokomandą „Įterpti nuotraukas“ į „Excel“

Norėdami naudoti makrokomandas, kad galėtumėte įterpti nuotraukas, turite pradėti su šiomis prielaidomis: nuotraukų pavadinimai rasti B skiltyje, pradedant nuo B2; norite įklijuoti kiekvieną nuotrauką skirtingoje vietoje; kur įklijuoti paveikslėlį, nustatytą B skiltyje, galima rasti C skiltyje, pradedant nuo C2.

Dabar įveskite šį kodą:

 Sub paveikslėlis ()
Dim picname kaip eilutė
Dim pasteAt As Integer
Dim lThisRow As Long
lThisRow = 2
Atlikite (ląstelės (lThisRow, 2) "")
„Diapazonas („ A6 “). Pasirinkite„ Tai, kur bus įterptas vaizdas
pasteAt = Ląstelės (lThisRow, 3)
Ląstelės (pasteAt, 1) .Pasirinkite 'Tai yra vieta, kur bus įterptas vaizdas
„Dim picname kaip eilutė
'picname = Diapazonas ("B6")' Tai vaizdo pavadinimas
picname = Ląstelės (lThisRow, 2) „Tai vaizdo pavadinimas
„ActiveSheet.Pictures.Insert“ („C: vartotojai vayayat mano dokumentai vidabato rinkodara“ & picname & „.jpg“).
'' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' ' '' '' '
„Tai keičia vaizdo dydį
'' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' ' '' '' '
Su pasirinkimu
„.Left = Range („ A6 “)
„.Top = Range („ A6 “)
.Left = ląstelės (pasteAt, 1)
.Top = ląstelės (pasteAt, 1)
.ShapeRange.LockAspectRatio = msoFalse
.ShapeRange.Height = 100 #
.ShapeRange.Width = 80 #
.ShapeRange.Rotation = 0 #
Baigti su
lThisRow = lThisRow + 1
Loop
Diapazonas („A10“)
Application.ScreenUpdating = True
Išeiti iš Sub
„ErrNoPhoto“:
„MsgBox“ „Nepavyko rasti nuotraukų“ „Rodo pranešimo laukelį, jei nuotrauka nerasta
Išeiti iš Sub
Diapazonas („B20“)
Pabaiga