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

Voit helposti lisätä kuvia Excel-laskentataulukoihin ja muokata niitä makrokoodilla. Näin voit lisätä kuvan soluun VBA:n avulla Excelissä .

Visual Basic for Applications, lyhennettynä VBA, on Visual Basic 6:n muoto, joka on integroitu Microsoft Office -ohjelmiin. Koodauksen avulla VBA antaa sinun automatisoida tehtäviä Office-sovelluksissa, mukaan lukien Excel. 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 täynnä kirjaimia ja numeroita. Excelin VBA:n avulla voit luoda makron, jonka avulla voit lisätä kuvan soluun tai solualueeseen. Tässä on mitä sinun tulee tietää kuvien lisäämisestä soluihin Excelissä VBA:n avulla.

Kuvien lisääminen soluihin VBA:n avulla Excelissä

• 1. Ota Kehittäjätyökalut käyttöön
• 2. Luo makroja ja lisää koodi
• 3. Jaa koodi

Jos haluat luoda makron, joka lisää kuvan Excelin soluun VBA:n avulla, et todellakaan tarvitse edistyneitä Visual Basic -tietoja. Sinun tarvitsee vain ottaa kehittäjätyökalut käyttöön, luoda makro ja liittää sopiva koodi. Voit tietysti myös lisätä kuvia Exceliin ilman VBA:ta. Tässä artikkelissa keskitymme kuitenkin VBA:han.

1. Ota Kehittäjätyökalut käyttöön

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

1. Avaa Excel .
2. Siirry Tiedosto-valikkoon .
3. Napsauta Asetukset näytön alareunassa. Excelin asetukset -ikkuna tulee näkyviin.
4. Siirry Excel-asetuksissa Mukauta nauhaa -välilehteen .
5. Valitse Päävälilehdistä Kehittäjä . _

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

2. Luo makroja ja lisää koodi

1. Siirry Excelissä Kehittäjä- välilehteen .
2. Valitse Koodi-osiossa Makrot .
3. Kirjoita uudessa ikkunassa makrosi nimi kohtaan Makro nimi . Artikkelissa käytetään insertPhotoMacroa .
4. Napsauta Luo .

Kun napsautat Luo, VBA-ikkuna avautuu ja näyttää makrosi koodin. Tällä hetkellä koodi koostuu kahdesta rivistä: Sub - rivista makron aloittamiseksi ja End Sub- rivistä sen lopettamiseksi.

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

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

Lopullinen koodi näyttää tältä:

Sinun ei tarvitse huolehtia tämän prosessin tallentamisesta. Kaikki VBA:ssa tekemäsi muutokset tallennetaan välittömästi.

Nyt on aika nähdä koodi toiminnassa:

1. Sulje VBA-ikkuna.
2. Siirry Excelin Kehittäjä- välilehdelle .
3. Valitse Koodi-osiosta makrot .
4. Korosta juuri luomasi makro.
5. Napsauta Suorita .

Nyt avautuu viesti, jossa sinua pyydetään paikantamaan kuvatiedosto, jonka haluat lisätä. Valitse valokuva ja napsauta sitten Avaa. Näet nyt kuvan solussa A1.

Huomaa, että Excel kutistaa kuvaa niin, että se mahtuu soluun A1. Voit muuttaa sitä ja muuttaa koodia lisätäksesi kuvia muihin soluihin, jopa solualueisiin. Seuraavassa osiossa erotamme koodin ja selitämme parametrit.

3. Jaa koodi

Jotta VBA-koodi toimisi haluamallasi tavalla, sinun on ymmärrettävä se. Kun teet tämän, voit muuttaa koodia ja lisätä kuvia mihin tahansa soluun minkä kokoisena tahansa.

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

Kun koodi alkaa, Dim-käskyä käytetään muuttujan tyypin määrittämiseen. Meillä on kaksi muuttujatyyppiä: photoNameAndPath ja photo . Ensin muuttuja ja sitten kuva.

Sieltä muuttuja photoNameAndPath käynnistyy ja se avaa sovelluksen saadakseen valokuvatiedoston sijainnin. Tämä tehdään Application.GetOpenFileName -sovelluksen kautta . Otsikko- parametri on valinnainen. Sen sisällä oleva sisältö näytetään ikkunan nimenä.

Jos photoNameAndPath = False, Exit Sub , jos annetaan virheellinen tai tyhjä osoite, prosessi päättyy. Jos kuitenkin tarjotaan sopiva tiedosto, Set photo = ActiveSheet.Pictures.Insert(photoNameAndPath) osoittaa, että kuva tulee asettaa muuttujaksi alun perin määritetyllä tavalla. Se lisätään aktiiviseen laskentataulukkoon.

Määritä valokuvan sijainti lopuksi käyttämällä Valokuvan kanssa ja sen jälkeen olevia 5 riviä. .Vasen ja .Top viittaavat aloitusasentoon, kun taas .Leveys ja .Korkeus viittaavat loppuasentoon. Jos aiot lisätä kuvia toiseen soluun tai alueeseen, sinun tulee muuttaa näitä rivejä.

.Placement tarkoittaa, että kuvan kokoa tulee muuttaa sopimaan soluun tai lisättävä vapaamuotoisesti. Jos asetat sen arvoon 1, sen koko muutetaan solun mukaan.

Lopuksi yllä oleva koodi sulkee makron käyttämällä End With , sitten End Sub -toimintoa. Nyt voit muuttaa muuttujat photoNameAndPath ja valokuva mihin tahansa muuhun haluamaasi nimeen. Muista vain pitää nimet yhtenäisinä koko koodin ajan.

Yllä kerrotaan, kuinka VBA:ta käytetään kuvien lisäämiseen Excelin soluihin . Toivottavasti artikkeli on hyödyllinen sinulle.