Visual Basic for Application jeb saīsināti VBA ir Microsoft Office programmās integrēts Visual Basic 6 veids. Izmantojot kodēšanu, VBA ļauj automatizēt uzdevumus Office programmās, tostarp programmā Excel. Dažos gadījumos jūs pat varat pievienot jaunas funkcijas programmai Excel, izmantojot VBA.

Lai gan, lai izmantotu VBA, jums ir jāstrādā ar kodu, tas nenozīmē, ka VBA ir tikai burti un cipari. Izmantojot VBA programmā Excel, varat izveidot makro, kas ļauj ievietot attēlus šūnā vai šūnu diapazonā. Lasiet tālāk, lai uzzinātu par to visu!

Kā ievietot attēlu šūnā, izmantojot VBA programmā Excel

Lai izveidotu makro attēlu ievietošanai Excel šūnās, izmantojot VBA, jums faktiski nav vajadzīgas papildu Visual Basic zināšanas. Viss, kas jums jādara, ir jāiespējo izstrādātāja rīki, jāizveido makro un jāielīmē pareizais kods.

Tomēr, ja jūs interesē apgūt VBA un kādreiz uzrakstīt savu kodu, mēs esam sadalījuši VBA kodu trešajā sadaļā. Protams, jūs arī varat ievietot attēlus programmā Excel, neizmantojot VBA. Bet šis raksts ir par to, kā to paveikt, izmantojot VBA. Ķeramies pie lietas!

instagram viewer

Lai programmā Excel izmantotu VBA, programmā Excel ir jāiespējo izstrādātāja rīki. Tādējādi lentē tiks iespējota cilne Izstrādātājs, kas pēc noklusējuma ir atspējota.

  1. Atveriet programmu Excel.
  2. Dodieties uz Fails izvēlne.
  3. Klikšķiniet uz Iespējas ekrāna apakšā. Tiks atvērts Excel opciju logs.
  4. Programmā Excel opcijas dodieties uz Pielāgot lenti cilne.
  5. Zem Galvenās cilnes, pārbaudiet Izstrādātājs.

Tagad jums ir iespējoti izstrādātāju rīki, tostarp piekļuve VBA. Jums tas nav jādara katru reizi, kad programmā Excel vēlaties izmantot VBA. Izstrādātāju rīki paliks iespējoti, līdz tos atspējosit.

2. Makro izveide un koda ievietošana

Tagad ir pienācis laiks ķerties pie makro izveides. Alternatīvi, jūs varētu arī izveidot pogu, izmantojot VBA šim uzdevumam, bet mēs paliksim pie makro.

  1. Programmā Excel dodieties uz Izstrādātājs cilne.
  2. Iekš Kods sadaļu, atlasiet Makro.
  3. Jaunajā logā sadaļā ievadiet sava makro nosaukumu Makro nosaukums. Mēs izmantosim ievietot PhotoMacro.
  4. Klikšķis Izveidot.

Kad noklikšķināsit uz Izveidot, tiks atvērts VBA logs un tiks parādīts jūsu makro kods. Šobrīd kods sastāvēs no divām rindām: A Apakš lai sāktu makro, un Beigt apakš lai to izbeigtu.

Pievienosim šim makro kodu. Pievienojiet šādu kodu starp divām rindām:

Blāvs fotoattēlsNosaukumsUnCeļš Kā Variants
Blāvs fotoattēls Kā Bilde
photoNameAndPath = Lietojumprogramma. GetOpenFilename (Title:="Izvēlieties Fotoattēls uzIevietot")
Ja photoNameUnPath = Nepatiesi Tad Izeja Apakš
Iestatīt foto = ActiveSheet. Bildes. Ievietot (photoNameAndPath)
Ar foto
 .Left = ActiveSheet. Diapazons("A1").Pa kreisi
 .Top = ActiveSheet. Diapazons("A1").Tops
 .Width = ActiveSheet. Diapazons("A1").Platums
 .Height = ActiveSheet. Diapazons("A1").Augums
 .Izvietojums = 1
BeigasAr

Jūsu gala kodam ir jābūt apmēram šādam:

Jums nav jāuztraucas par progresa saglabāšanu. Visas VBA veiktās izmaiņas tiek uzreiz saglabātas.

Tagad ir pienācis laiks redzēt kodu darbā.

  1. Aizveriet VBA logu.
  2. Dodieties uz Izstrādātājs cilne programmā Excel.
  3. Izvēlieties Makro no Kods sadaļā.
  4. Iezīmējiet tikko izveidoto makro.
  5. Klikšķis Skrien.

Tagad tiks atvērta uzvedne ar lūgumu atrast attēla failu, kuru vēlaties ievietot. Izvēlieties savu attēlu un pēc tam noklikšķiniet uz Atvērt. Tagad jums vajadzētu redzēt savu fotoattēlu A1 šūnā!

Ievērojiet, ka ievietotais attēls ir sarukts, lai tas ietilptu šūnā A1. Varat to mainīt, kā arī mainīt kodu, lai ievietotu attēlu citās šūnās vai pat šūnu diapazonā. Nākamajā sadaļā mēs sadalīsim kodu un izskaidrosim darba parametrus.

3. Koda sadalīšana

Lai šis VBA kods darbotos tā, kā vēlaties, jums tas ir jāsaprot. Kad tas ir izdarīts, varat mainīt kodu, lai ievietotu fotoattēlus jebkurā jebkura izmēra šūnā. Mēs pamazām izskatīsim kodu, lai to būtu vieglāk saprast.

Sub insert PhotoMacro()
Blāvs fotoattēlsNosaukumsUnCeļš Kā Variants
Blāvs fotoattēls Kā Bilde
photoNameAndPath = Lietojumprogramma. GetOpenFilename (Title:="Izvēlieties Fotoattēls uzIevietot")
Ja photoNameUnPath = Nepatiesi Tad Izeja Apakš
Iestatīt foto = ActiveSheet. Bildes. Ievietot (photoNameAndPath)
Ar foto
.Left = ActiveSheet. Diapazons("A1").Pa kreisi
.Top = ActiveSheet. Diapazons("A1").Tops
.Width = ActiveSheet. Diapazons("A1").Platums
.Height = ActiveSheet. Diapazons("A1").Augums
.Izvietojums = 1
BeigasAr
Beigas Apakš

Kad kods sākas, mēs izmantojam Aptumšot paziņojumu, lai noteiktu mainīgā veidu. Šeit mums ir divi mainīgie: fotoVārdsUnCeļš un foto pati par sevi. Mēs esam noteikuši pirmo kā a Variants un pēdējais kā a Fotoattēls.

No turienes tiek palaists mainīgais photoNameAndPath un tiek atvērta lietojumprogramma, lai uzzinātu attēla faila atrašanās vietu. Tas tiek darīts cauri Pieteikums. GetOpenFileName. The Nosaukums parametrs nav obligāts, un tajā esošais saturs tiek parādīts kā loga nosaukums.

Izmantojot Ja photoNameAndPath = False, izejiet no Sub, mēs norādām, ka, ja ir norādīta nederīga vai tukša adrese, process ir jāpārtrauc. Tomēr, ja tiek padots pareizs fails, tad Iestatīt fotoattēlu = ActiveSheet. Bildes. Ievietot (photoNameAndPath) norāda, ka attēls ir jāiestata kā fotoattēla mainīgais, kuru mēs definējām iepriekš, un tas ir jāievieto aktīvajā izklājlapā.

Beidzot izmanto Ar fotogrāfiju un piecas rindas, kas tai seko, mēs precizējam attēla novietojumu. .Pa kreisi un .Tops norāda sākuma vietas, kamēr .Platums un .Augstums norādiet gala vietas. Ja vēlaties ievietot attēlu citās šūnās vai diapazonā, šīs ir līnijas, kuras jums vajadzētu mainīt.

.Izvietojums norāda, vai attēla izmēram jābūt ar šūnām vai jāievieto brīvā formā. Iestatot to uz 1 izmēros to ar šūnām.

Galu galā mēs izmantojam Beigt ar un tad Beigt apakš lai aizvērtu makro. Ņemiet vērā, ka varat mainīt fotoVārdsUnCeļš un foto mainīgos uz jebkuru citu nosaukumu, kas jums patīk. Vienkārši neaizmirstiet, lai nosaukumi būtu konsekventi visā kodā.

Paveiciet vairāk programmā Excel, izmantojot VBA

Programma Excel patiešām ir lielisks rīks datu organizēšanai un analīzei, taču tas nenozīmē, ka programma Excel ir nepiemērota grafikas jomā. Lai gan fotoattēli un bitkartes nav Excel spēcīgākais uzvalks, programma Excel joprojām lieliski spēj tos apstrādāt.

Lai gan varat ievietot attēlus programmā Excel, izmantojot saskarni tāpat kā citās Office programmās, varat to izdarīt arī, izmantojot VBA. Izmantojot VBA, varat automatizēt šo uzdevumu un pat savienot to ar citiem uzdevumiem, lai tie tiktu izpildīti vienlaikus. VBA iespējas programmā Excel ir bezgalīgas.