Hvernig á að setja mynd inn í reit með VBA í Excel

Þú getur auðveldlega sett myndir inn í Excel töflureikna og breytt þeim með makrókóða. Hér er hvernig á að setja mynd inn í reit með VBA í Excel .

Visual Basic for Applications, skammstafað sem VBA, er mynd af Visual Basic 6 sem er samþætt í Microsoft Office forritum. Með kóðun gerir VBA þér kleift að gera sjálfvirk verkefni í Office forritum, þar á meðal Excel. Í sumum tilfellum geturðu jafnvel bætt nýjum eiginleikum við Excel með því að nota VBA.

Þó að þú þurfir að vinna með kóða til að nota VBA þýðir það ekki að VBA sé fullt af bókstöfum og tölustöfum. Með VBA í Excel geturðu búið til fjölvi sem gerir þér kleift að setja mynd inn í reit eða svið af hólfum. Hér er það sem þú þarft að vita um að setja myndir inn í frumur í Excel með VBA.

Hvernig á að setja myndir inn í frumur með VBA í Excel

• 1. Kveiktu á þróunartólum
• 2. Búðu til fjölvi og settu inn kóða
• 3. Skiptu kóða

Til að búa til fjölvi sem setur mynd inn í Excel frumu með VBA þarftu í raun enga háþróaða Visual Basic þekkingu. Allt sem þú þarft að gera er að kveikja á þróunartólum, búa til fjölvi og líma viðeigandi kóða. Auðvitað er líka hægt að setja myndir inn í Excel án þess að nota VBA. Hins vegar, í þessari grein, munum við einbeita okkur að VBA.

1. Kveiktu á þróunartólum

Til að nota VBA í Excel þarftu að virkja þróunartól. Þessi aðgerð mun virkja Developer flipann á borðinu, sem er sjálfgefið óvirkt.

1. Opnaðu Excel .
2. Farðu í File valmyndina .
3. Smelltu á Valkostir neðst á skjánum. Excel Options glugginn mun birtast.
4. Í Excel Options, farðu í Customize Ribbon flipann .
5. Í Aðalflipa skaltu athuga þróunaraðila .

Nú eru þróunartól, þar á meðal VBA aðgangur, virkjuð. Þú þarft ekki að gera þetta í hvert skipti sem þú vilt nota VBA í Excel. Verkfæri þróunaraðila verða alltaf virkjuð þar til þú gerir þau óvirk.

2. Búðu til fjölvi og settu inn kóða

1. Í Excel, farðu í Developer flipann .
2. Í kóðahlutanum skaltu velja Fjölvi .
3. Í nýja glugganum, sláðu inn macro nafnið þitt í Macro name . Greinin mun nota insertPhotoMacro .
4. Smelltu á Búa til .

Eftir að hafa smellt á Búa til opnast VBA glugginn og birtir kóðann fyrir fjölvi þinn. Eins og er mun kóðinn samanstanda af 2 línum: Sub til að hefja fjölvi og End Sub til að enda það.

Bættu smá kóða við þetta fjölvi. Bættu eftirfarandi kóðalínu á milli línanna tveggja:

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

Lokakóðinn mun líta svona út:

Þú þarft ekki að hafa áhyggjur af því að vista þetta ferli. Allar breytingar sem þú gerir í VBA eru vistaðar strax.

Nú er kominn tími til að sjá kóðann í aðgerð:

1. Lokaðu VBA glugganum.
2. Farðu í Developer flipann í Excel.
3. Veldu Fjölvi úr kóðahlutanum.
4. Auðkenndu makróið sem þú bjóst til.
5. Smelltu á Run .

Nú opnast skilaboð sem biðja þig um að finna myndskrána sem þú vilt setja inn. Veldu myndina og smelltu síðan á Opna. Þú munt nú sjá myndina í reit A1.

Athugið að Excel mun minnka myndina svo hún passi í reit A1. Þú getur breytt því og breytt kóðanum til að setja myndir inn í aðrar hólf, jafnvel fjölda hólfa. Í næsta kafla munum við aðgreina kóðann og útskýra færibreyturnar.

3. Skiptu kóða

Til að VBA kóða virki eins og þú vilt þarftu að skilja hann. Þegar þú gerir þetta geturðu breytt kóðanum til að setja myndir inn í hvaða reit sem er af hvaða stærð sem er.

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

Þegar kóðinn byrjar er Dim setningin notuð til að ákvarða breytugerðina. Við höfum tvær breytilegar gerðir: photoNameAndPath og photo . Fyrst breytan og síðan myndin.

Þaðan keyrir photoNameAndPath breytan og hún mun opna forrit til að fá staðsetningu myndskrárinnar. Þetta er gert í gegnum Application.GetOpenFileName . Titill færibreytan er valfrjáls. Innihaldið í henni birtist sem gluggaheiti.

Að nota If photoNameAndPath = False Then Exit Sub , ef ógilt eða autt heimilisfang er gefið upp lýkur ferlinu. Hins vegar, ef viðeigandi skrá er veitt, gefur Set photo = ActiveSheet.Pictures.Insert(photoNameAndPath) til kynna að myndin ætti að vera stillt sem breytu eins og upphaflega var skilgreint. Það verður sett inn í virka vinnublaðið.

Notaðu að lokum Með mynd og 5 línurnar á eftir henni til að ákvarða staðsetningu myndarinnar. .Left og .Top vísa til upphafsstöðu, en .Breidd og .Hæð vísa til lokastöðu. Ef þú ætlar að setja myndir inn í annan reit eða svið eru þetta línurnar sem þú ættir að breyta.

.Staðsetning gefur til kynna að myndin ætti að breyta stærð til að passa við hólfið eða innsetta fríformi. Ef það er stillt á 1 breytist stærð þess í samræmi við reitinn.

Að lokum notar ofangreindur kóði End With , síðan End Sub til að loka fjölvi. Nú geturðu breytt breytunum photoNameAndPath og mynd í hvaða annað nafn sem þú vilt. Mundu bara að hafa nöfnin samræmd í gegnum kóðann.

Hér að ofan er hvernig á að nota VBA til að setja myndir inn í frumur í Excel . Vona að greinin nýtist þér.