Visual Basic for Application, lyhyesti VBA, on Visual Basic 6:n muoto, joka on integroitu Microsoft Office -ohjelmiin. Koodauksen avulla VBA mahdollistaa Office-ohjelmien, kuten Excelin, tehtävien automatisoinnin. Joissakin tapauksissa voit jopa lisätä uusia ominaisuuksia Exceliin VBA: n avulla.

Vaikka sinun on työskenneltävä koodin kanssa käyttääksesi VBA: ta, se ei tarkoita, että VBA on vain kirjaimia ja numeroita. Excelin VBA: n avulla voit luoda makron, jonka avulla voit lisätä kuvia soluun tai solualueeseen. Lue lisää saadaksesi tietää kaikesta!

Kuvan lisääminen soluun VBA: n avulla Excelissä

Jotta voit luoda makron kuvien lisäämiseksi Excelin soluihin VBA: n avulla, et tarvitse edistyneitä Visual Basic -tietoja. Sinun tarvitsee vain ottaa kehittäjätyökalut käyttöön, luoda makro ja liittää oikea koodi.

Jos olet kuitenkin kiinnostunut VBA: n oppimisesta ja oman koodin kirjoittamisesta jonain päivänä, olemme eritelleet VBA-koodin kolmannessa osiossa. Tietysti voit myös Lisää kuvia Exceliin ilman VBA: ta

. Mutta tämä artikkeli käsittelee sen suorittamista VBA: n kautta. Ryhdytään hommiin!

Jotta voit käyttää VBA: ta Excelissä, sinun on otettava kehittäjätyökalut käyttöön Excelissä. Tämä ottaa Kehittäjä-välilehden käyttöön nauhassa, joka on oletuksena pois käytöstä.

  1. Avaa Excel.
  2. Siirry kohtaan Tiedosto valikosta.
  3. Klikkaa Vaihtoehdot näytön alareunassa. Tämä avaa Excelin asetukset -ikkunan.
  4. Siirry Excel-asetuksissa kohtaan Mukauta nauhaa -välilehti.
  5. Alla Päävälilehdet, tarkistaa Kehittäjä.

Nyt kehittäjätyökalut, mukaan lukien pääsy VBA: han, ovat käytössäsi. Sinun ei tarvitse tehdä tätä joka kerta, kun haluat käyttää VBA: ta Excelissä. Kehittäjätyökalut pysyvät käytössä, kunnes poistat ne käytöstä.

2. Makron luominen ja koodin lisääminen

Nyt on aika ryhtyä makron luomiseen. Vaihtoehtoisesti voit myös Luo painike VBA: lla tähän tehtävään, mutta aiomme pysyä makroissa.

  1. Siirry Excelissä kohtaan Kehittäjä -välilehti.
  2. Vuonna Koodi osio, valitse Makrot.
  3. Kirjoita uudessa ikkunassa makrollesi nimi alle Makron nimi. Aiomme käyttää insertPhotoMacro.
  4. Klikkaus Luoda.

Kun napsautat Luo, VBA-ikkuna avautuu ja näyttää makrosi koodin. Tällä hetkellä koodi koostuu kahdesta rivistä: A Sub käynnistääksesi makron ja an Lopeta ala lopettamaan sen.

Lisätään tähän makroon koodia. Lisää seuraava koodi kahden rivin väliin:

Himmeä valokuvaNimiJaPolku Kuten Variantti
Hämärä kuva Kuten Kuva
photoNameAndPath = Sovellus. GetOpenFilename (Title:="Valitse Kuva toLisää")
Jos photoNameAndPath = Väärä Sitten Poistu Sub
Aseta valokuva = ActiveSheet. Kuvia. Lisää (PhotoNameAndPath)
Kanssa kuva
 .Left = ActiveSheet. Range("A1").Vasen
 .Top = ActiveSheet. Range("A1").Ylös
 .Width = ActiveSheet. Range("A1").Leveys
 .Height = ActiveSheet. Range("A1").Korkeus
 .Sijainti = 1
LoppuKanssa

Lopullisen koodisi pitäisi olla jotain alla olevan kaltaista:

Sinun ei tarvitse huolehtia edistymisen tallentamisesta. Jokainen VBA: ssa tekemäsi muutos tallennetaan välittömästi.

Nyt on aika nähdä koodi toiminnassa.

  1. Sulje VBA-ikkuna.
  2. Siirry kohtaan Kehittäjä välilehti Excelissä.
  3. Valitse Makrot alkaen Koodi osio.
  4. Korosta juuri luomasi makro.
  5. Klikkaus Juosta.

Nyt näkyviin tulee kehote, jossa sinua pyydetään paikantamaan lisättävä kuvatiedosto. Valitse kuvasi ja napsauta sitten Avata. Sinun pitäisi nyt nähdä valokuvasi A1-solussa!

Huomaa, että lisätty kuva on kutistettu sopimaan soluun A1. Voit muuttaa tätä ja myös muuttaa koodia lisätäksesi kuvan muihin soluihin tai jopa solualueeseen. Seuraavassa osiossa aiomme hajottaa koodin ja selittää parametrit työssä.

3. Koodin rikkominen

Jotta tämä VBA-koodi toimisi sinulle haluamallasi tavalla, sinun on ymmärrettävä se. Kun olet tehnyt niin, voit muuttaa koodia ja lisätä kuvia mihin tahansa soluun minkä kokoisena tahansa. Käymme koodin läpi vähän kerrallaan, jotta se olisi helpompi ymmärtää.

Sub insertPhotoMacro()
Himmeä valokuvaNimiJaPolku Kuten Variantti
Hämärä kuva Kuten Kuva
photoNameAndPath = Sovellus. GetOpenFilename (Title:="Valitse Kuva toLisää")
Jos photoNameAndPath = Väärä Sitten Poistu Sub
Aseta valokuva = ActiveSheet. Kuvia. Lisää (PhotoNameAndPath)
Kanssa kuva
.Left = ActiveSheet. Range("A1").Vasen
.Top = ActiveSheet. Range("A1").Ylös
.Width = ActiveSheet. Range("A1").Leveys
.Height = ActiveSheet. Range("A1").Korkeus
.Sijainti = 1
LoppuKanssa
Loppu Sub

Kun koodi alkaa, käytämme Himmeä lauseke muuttujan tyypin määrittämiseksi. Meillä on tässä kaksi muuttujaa: photoNameAnPath ja kuva itse. Olemme määrittäneet entisen a Variantti ja jälkimmäinen a Kuva.

Sieltä muuttuja photoNameAndPath käynnistyy ja se avaa sovelluksen, joka selvittää kuvatiedoston olinpaikan. Tämä tehdään läpi Sovellus. Hanki OpenFileName. The Otsikko parametri on valinnainen, ja sen sisältö näytetään ikkunan nimenä.

Käyttämällä Jos photoNameAndPath = False, sulje Sub, määritämme, että jos annetaan virheellinen tai tyhjä osoite, prosessi tulee lopettaa. Jos kuitenkin syötetään oikea tiedosto, niin Aseta valokuva = ActiveSheet. Kuvia. Lisää (PhotoNameAndPath) ilmaisee, että kuva tulee asettaa aiemmin määrittämämme valokuvamuuttujaksi ja se tulee lisätä aktiiviseen laskentataulukkoon.

Lopuksi käytössä Valokuvan kanssa ja sitä seuraavat viisi riviä tarkennamme kuvan sijoittelua. .Vasen ja .Ylös osoittavat aloituspaikat, kun taas .Leveys ja .Korkeus ilmoittaa loppupaikat. Jos haluat lisätä kuvan muihin soluihin tai alueeseen, sinun tulee muuttaa näitä rivejä.

.Sijoitus ilmaisee, onko kuvan koko oltava solujen kanssa vai lisättävä vapaassa muodossa. Sen asettaminen 1 kokoaa sen solujen kanssa.

Loppujen lopuksi käytämme Lopeta kanssa ja sitten Lopeta ala makron sulkemiseksi. Huomaa, että voit muuttaa photoNameAnPath ja kuva muuttujat mihin tahansa toiseen nimeen, josta haluat. Muista vain pitää nimet yhtenäisinä koko koodin ajan.

Saat enemmän aikaan Excelissä VBA: n avulla

Excel on todellakin loistava työkalu tietojen järjestämiseen ja analysointiin, mutta se ei tarkoita, että Excel olisi osaamaton grafiikan suhteen. Vaikka valokuvat ja bittikartat eivät ole Excelin vahvin puku, Excel pystyy silti käsittelemään niitä täydellisesti.

Vaikka voit lisätä kuvia Exceliin käyttöliittymän avulla kuten muissa Office-sovelluksissa, voit tehdä sen myös VBA: lla. VBA: n avulla voit automatisoida tämän tehtävän ja jopa yhdistää sen muiden tehtävien kanssa suoritettavaksi samanaikaisesti. VBA: n mahdollisuudet Excelissä ovat loputtomat.