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

Galite lengvai įterpti vaizdus į „Excel“ skaičiuokles ir redaguoti juos naudodami makrokomandos kodą. Štai kaip įterpti paveikslėlį į langelį naudojant VBA programoje Excel .

„Visual Basic for Applications“, sutrumpintai vadinama 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 pilna raidžių ir skaičių. Naudodami VBA programoje Excel galite sukurti makrokomandą, leidžiančią įterpti paveikslėlį į langelį arba langelių diapazoną. Štai ką reikia žinoti apie paveikslėlių įterpimą į Excel langelius naudojant VBA.

Kaip įterpti paveikslėlius į langelius naudojant VBA programoje „Excel“.

• 1. Įjunkite kūrėjo įrankius
• 2. Sukurkite makrokomandas ir įterpkite kodą
• 3. Padalintas kodas

Norint sukurti makrokomandą, kuri įterpia paveikslėlį į Excel langelį naudojant VBA, jums tikrai nereikia jokių pažangių Visual Basic žinių. Viskas, ką jums reikia padaryti, tai įjungti kūrėjo įrankius, sukurti makrokomandą ir įklijuoti atitinkamą kodą. Žinoma, vaizdus į Excel galite įterpti ir nenaudodami VBA. Tačiau šiame straipsnyje mes sutelksime dėmesį į VBA.

1. Įjunkite kūrėjo įrankius

Norėdami naudoti VBA programoje „Excel“, turite įgalinti kūrėjo įrankius. Šis veiksmas juostelėje įgalins skirtuką Kūrėjas, kuris pagal numatytuosius nustatymus yra išjungtas.

1. Atidarykite Excel .
2. Eikite į meniu Failas .
3. Ekrano apačioje spustelėkite Parinktys . Pasirodys „Excel“ parinkčių langas .
4. Programoje „Excel“ parinktys eikite į skirtuką Tinkinti juostelę .
5. Pagrindiniuose skirtukuose pažymėkite Kūrėjas .

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

2. Sukurkite makrokomandas ir įterpkite kodą

1. Programoje „Excel“ eikite į skirtuką Kūrėjas .
2. Skiltyje Kodas pasirinkite Makrokomandos .
3. Naujame lange įveskite makrokomandos pavadinimą lauke Makrokomandos pavadinimas . Straipsnyje bus naudojama insertPhotoMacro .
4. Spustelėkite Sukurti .

Spustelėjus Sukurti, atsidarys VBA langas, kuriame bus rodomas jūsų makrokomandos kodas. Šiuo metu kodą sudarys 2 eilutės: „ Sub“ , kad pradėtumėte makrokomandą, ir „ End Sub“ , kad ją užbaigtumėte.

Pridėkite šiek tiek kodo prie šios makrokomandos. Tarp dviejų eilučių pridėkite šią kodo eilutę:

Dim photoNameAndPath As Variant
Dim photo As Picture
photoNameAndPath = Application.GetOpenFilename(Title:="Select Photo to Insert")
If photoNameAndPath = False Then Exit Sub
Set photo = ActiveSheet.Pictures.Insert(photoNameAndPath)
With photo
.Left = ActiveSheet.Range("A1").Left
.Top = ActiveSheet.Range("A1").Top
.Width = ActiveSheet.Range("A1").Width
.Height = ActiveSheet.Range("A1").Height
.Placement = 1
End With

Galutinis kodas atrodys taip:

Jums nereikia jaudintis dėl šio proceso išsaugojimo. Visi VBA atlikti pakeitimai išsaugomi nedelsiant.

Dabar laikas pamatyti veikiantį kodą:

1. Uždarykite VBA langą.
2. Eikite į „Excel“ skirtuką Kūrėjas .
3. Skiltyje Kodas pasirinkite makrokomandas .
4. Pažymėkite ką tik sukurtą makrokomandą.
5. Spustelėkite Vykdyti .

Dabar bus atidarytas pranešimas, kuriame bus prašoma rasti vaizdo failą, kurį norite įterpti. Pasirinkite nuotrauką, tada spustelėkite Atidaryti. Dabar pamatysite vaizdą langelyje A1.

Atminkite, kad „Excel“ sumažins vaizdą, kad jis tilptų į A1 langelį. Galite jį pakeisti ir pakeisti kodą, kad įterptumėte vaizdus į kitus langelius, net į daugybę langelių. Kitame skyriuje atskirsime kodą ir paaiškinsime parametrus.

3. Padalintas kodas

Kad VBA kodas veiktų taip, kaip norite, turite jį suprasti. Tai darydami galite pakeisti kodą, kad įterptumėte vaizdus į bet kurį bet kokio dydžio langelį.

Sub insertPhotoMacro()
Dim photoNameAndPath As Variant
Dim photo As Picture
photoNameAndPath = Application.GetOpenFilename(Title:="Select Photo to Insert")
If photoNameAndPath = False Then Exit Sub
Set photo = ActiveSheet.Pictures.Insert(photoNameAndPath)
With photo
.Left = ActiveSheet.Range("A1").Left
.Top = ActiveSheet.Range("A1").Top
.Width = ActiveSheet.Range("A1").Width
.Height = ActiveSheet.Range("A1").Height
.Placement = 1
End With
End Sub

Kai kodas prasideda, Dim sakinys naudojamas kintamojo tipui nustatyti. Turime dviejų tipų kintamuosius: photoNameAndPath ir nuotrauka . Pirmiausia kintamasis, o tada vaizdas.

Iš ten paleidžiamas kintamasis „PhotoNameAndPath“ ir jis atidarys programą, kad gautų nuotraukos failo vietą. Tai atliekama naudojant Application.GetOpenFileName . Pavadinimo parametras yra neprivalomas. Jo viduje esantis turinys rodomas kaip lango pavadinimas.

Naudojant If photoNameAndPath = False Tada išeikite iš sub , jei pateikiamas neteisingas arba tuščias adresas, procesas bus baigtas. Tačiau, jei pateikiamas tinkamas failas, Set photo = ActiveSheet.Pictures.Insert(photoNameAndPath) nurodo, kad paveikslėlis turi būti nustatytas kaip kintamasis, kaip iš pradžių apibrėžta. Jis bus įterptas į aktyvų darbalapį.

Galiausiai naudokite Su nuotrauka ir 5 eilutes po jos, kad nustatytumėte nuotraukos vietą. .Kairėje ir .Viršuje nurodoma pradinė padėtis, o .Plotis ir .Aukštis – pabaigos padėtis. Jei ketinate įterpti vaizdus į kitą langelį arba diapazoną, šias eilutes turėtumėte pakeisti.

.Paskirties vieta rodo, kad nuotraukos dydis turi būti pakeistas, kad tilptų langelyje arba įterptas laisvos formos. Nustačius jį į 1 , jo dydis bus pakeistas pagal langelį.

Galiausiai, aukščiau pateiktame kode naudojama „End With“ , tada „End Sub“ , kad uždarytumėte makrokomandą. Dabar galite pakeisti kintamuosius photoNameAndPath ir nuotrauką į bet kurį kitą jums patinkantį pavadinimą. Tiesiog nepamirškite, kad vardai būtų vienodi visame kode.

Aukščiau aprašyta, kaip naudoti VBA vaizdams įterpti į Excel langelius . Tikimės, kad straipsnis jums bus naudingas.