„Visual Basic for Application“, trumpiau VBA, yra „Visual Basic 6“ forma, integruota į „Microsoft Office“ programas. Naudodama kodavimą, VBA leidžia automatizuoti užduotis „Office“ programose, įskaitant „Excel“. Kai kuriais atvejais netgi galite pridėti naujų „Excel“ funkcijų naudodami VBA.

Nors norint naudoti VBA reikia dirbti su kodu, tai nereiškia, kad VBA yra tik raidės ir skaičiai. Naudodami VBA programoje Excel galite sukurti makrokomandą, leidžiančią įterpti paveikslėlius į langelį arba langelių diapazoną. Skaitykite toliau, kad sužinotumėte viską apie tai!

Kaip įterpti paveikslėlį į langelį naudojant VBA programoje „Excel“.

Norint sukurti makrokomandą, skirtą paveikslėliams įterpti į „Excel“ langelius naudojant VBA, jums nereikia jokių pažangių „Visual Basic“ žinių. Viskas, ką jums reikia padaryti, tai įjungti kūrėjo įrankius, sukurti makrokomandą ir įklijuoti tinkamą kodą.

Tačiau jei jus domina išmokti VBA ir kada nors parašyti savo kodą, mes suskirstėme VBA kodą trečioje dalyje. Žinoma, jūs taip pat galite

instagram viewer
įterpkite paveikslėlius į „Excel“ nenaudodami VBA. Tačiau šis straipsnis yra apie tai, kaip tai padaryti naudojant VBA. Eikime prie reikalo!

Norėdami naudoti VBA programoje „Excel“, programoje „Excel“ turite įgalinti kūrėjo įrankius. Taip juostelėje bus įjungtas skirtukas Kūrėjas, kuris pagal numatytuosius nustatymus yra išjungtas.

  1. Atidarykite Excel.
  2. Eikite į Failas Meniu.
  3. Spustelėkite Galimybės ekrano apačioje. Bus atidarytas „Excel“ parinkčių langas.
  4. „Excel“ parinktyse eikite į Tinkinti juostelę skirtuką.
  5. Pagal Pagrindiniai skirtukai, patikrinti Programuotojas.

Dabar jums įgalinti kūrėjo įrankiai, įskaitant prieigą prie VBA. Jums nereikia to daryti kiekvieną kartą, kai norite naudoti VBA programoje „Excel“. Kūrėjų įrankiai liks įjungti, kol juos išjungsite.

2. Makrokomandos sukūrimas ir kodo įvedimas

Dabar laikas pradėti kurti makrokomandą. Arba taip pat galėtumėte sukurkite mygtuką naudodami VBA šiai užduočiai, bet mes pasiliksime prie makrokomandų.

  1. Programoje „Excel“ eikite į Programuotojas skirtuką.
  2. Viduje Kodas skyrių, pasirinkite Makrokomandos.
  3. Naujame lange įveskite makrokomandos pavadinimą Makrokomandos pavadinimas. Mes ketiname naudoti įterptiPhotoMacro.
  4. Spustelėkite Sukurti.

Kai spustelėsite Sukurti, atsidarys VBA langas ir parodys makrokomandos kodą. Šiuo metu kodą sudarys dvi eilutės: A Sub Norėdami pradėti makrokomandą, ir an Pabaigos sub kad tai baigtųsi.

Prie šios makrokomandos pridėkime šiek tiek kodo. Tarp dviejų eilučių pridėkite šį kodą:

Neryškus nuotraukosVardasIrKelias Kaip Variantas
Neryški nuotrauka Kaip Paveikslėlis
photoNameAndPath = Programa. GetOpenFilename (Pavadinimas:="Pasirinkite Nuotrauka įĮdėti")
Jeigu photoNameAndPath = Netiesa Tada Išeiti Sub
Nustatyti nuotrauka = ​​ActiveSheet. Paveikslėliai. Įterpti (photoNameAndPath)
Su nuotrauka
 .Left = ActiveSheet. Diapazonas("A1").Kairėje
 .Top = ActiveSheet. Diapazonas("A1").Viršus
 .Width = ActiveSheet. Diapazonas("A1").Plotis
 .Aukštis = ActiveSheet. Diapazonas("A1").Ūgis
 .Paskirties vieta = 1
GalasSu

Jūsų galutinis kodas turėtų būti maždaug toks:

Jums nereikia jaudintis dėl pažangos išsaugojimo. Kiekvienas VBA atliktas pakeitimas išsaugomas akimirksniu.

Dabar atėjo laikas pamatyti kodą darbe.

  1. Uždarykite VBA langą.
  2. Eikite į Programuotojas skirtuką Excel.
  3. Pasirinkite Makrokomandos nuo Kodas skyrius.
  4. Pažymėkite ką tik sukurtą makrokomandą.
  5. Spustelėkite Bėk.

Dabar atsidarys raginimas, kuriame bus prašoma rasti vaizdo failą, kurį norite įterpti. Pasirinkite savo paveikslėlį ir spustelėkite Atviras. Dabar turėtumėte matyti savo nuotrauką A1 langelyje!

Atkreipkite dėmesį, kad įterptas paveikslėlis susitraukė, kad tilptų į langelį A1. Galite tai pakeisti, taip pat pakeisti kodą, kad įterptumėte paveikslėlį į kitus langelius ar net langelių diapazoną. Kitame skyriuje mes išskaidysime kodą ir paaiškinsime darbo parametrus.

3. Kodo suskaidymas

Kad šis VBA kodas veiktų taip, kaip norite, turite jį suprasti. Kai tai padarysite, galite pakeisti kodą ir įterpti nuotraukas į bet kurį bet kokio dydžio langelį. Po truputį peržiūrėsime kodą, kad būtų lengviau jį suprasti.

Sub insertPhotoMacro()
Neryškus nuotraukosVardasIrKelias Kaip Variantas
Neryški nuotrauka Kaip Paveikslėlis
photoNameAndPath = Programa. GetOpenFilename (Pavadinimas:="Pasirinkite Nuotrauka įĮdėti")
Jeigu photoNameAndPath = Netiesa Tada Išeiti Sub
Nustatyti nuotrauka = ​​ActiveSheet. Paveikslėliai. Įterpti (photoNameAndPath)
Su nuotrauka
.Left = ActiveSheet. Diapazonas("A1").Kairėje
.Top = ActiveSheet. Diapazonas("A1").Viršus
.Width = ActiveSheet. Diapazonas("A1").Plotis
.Aukštis = ActiveSheet. Diapazonas("A1").Ūgis
.Paskirties vieta = 1
GalasSu
Galas Sub

Kai kodas prasideda, mes naudojame Pritemdyti teiginį, kad nustatytų kintamojo tipą. Čia turime du kintamuosius: nuotraukosPavadinimasIrKelias ir nuotrauka pats. Pirmąjį nustatėme kaip a Variantas o pastarasis kaip a Nuotrauka.

Iš ten paleidžiamas kintamasis „PhotoNameAndPath“ ir atidaroma programa, skirta vaizdo failo buvimo vietai gauti. Tai daroma per Taikymas. Gaukite OpenFileName. The Pavadinimas parametras yra neprivalomas, o jame esantis turinys rodomas kaip lango pavadinimas.

Naudojant Jei photoNameAndPath = False, tada išeikite iš Sub, nurodome, kad jei pateikiamas neteisingas arba tuščias adresas, procesas turi būti nutrauktas. Tačiau jei paduodamas tinkamas failas, tada Nustatyti nuotrauką = ActiveSheet. Paveikslėliai. Įterpti (photoNameAndPath) rodo, kad paveikslėlis turėtų būti nustatytas kaip nuotraukos kintamasis, kurį apibrėžėme anksčiau, ir jis turėtų būti įterptas į aktyvią skaičiuoklę.

Galiausiai naudojant Su nuotrauka ir penkiose po jo esančiose eilutėse išsamiau paaiškiname vaizdo padėtį. .Kairėje ir .Viršus nurodykite pradžios vietas, o .Plotis ir .Ūgis nurodykite pabaigos vietas. Jei norite įterpti vaizdą į kitus langelius arba diapazoną, tai yra eilutės, kurias turėtumėte pakeisti.

.Paskirties vieta nurodo, ar paveikslėlio dydis turi būti su langeliais, ar įterptas laisva forma. Nustatant jį į 1 bus dydis jį su ląstelėmis.

Galų gale mes naudojame Baigti su ir tada Pabaigos sub norėdami uždaryti makrokomandą. Atminkite, kad galite pakeisti nuotraukosPavadinimasIrKelias ir nuotrauka kintamuosius į bet kokį kitą jums patinkantį pavadinimą. Tiesiog nepamirškite, kad vardai būtų vienodi visame kode.

Nuveikite daugiau naudodami „Excel“ naudodami VBA

„Excel“ iš tiesų yra puikus įrankis duomenims tvarkyti ir analizuoti, tačiau tai nereiškia, kad „Excel“ netinkama grafikos srityje. Nors nuotraukos ir bitmaps nėra geriausias „Excel“ pranašumas, „Excel“ vis tiek puikiai su jais susidoroja.

Nors galite įterpti paveikslėlius į „Excel“ naudodami sąsają, kaip ir kitose „Office“ programose, taip pat galite tai padaryti naudodami VBA. Naudodami VBA galite automatizuoti šią užduotį ir netgi susieti ją su kitomis užduotimis, kad jos būtų vykdomos vienu metu. VBA programoje Excel galimybės yra begalinės.