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

Varat viegli ievietot attēlus Excel izklājlapās un rediģēt tos, izmantojot makro kodu. Lūk, kā ievietot attēlu šūnā, izmantojot VBA programmā Excel .

Visual Basic for Applications, saīsināti kā VBA, ir Microsoft Office programmās integrēts Visual Basic 6 veids. Izmantojot kodēšanu, VBA ļauj automatizēt uzdevumus Office lietojumprogrammā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 pilns ar burtiem un cipariem. Izmantojot VBA programmā Excel, varat izveidot makro, kas ļauj ievietot attēlu šūnā vai šūnu diapazonā. Lūk, kas jums jāzina par attēlu ievietošanu šūnās programmā Excel, izmantojot VBA.

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

• 1. Ieslēdziet izstrādātāja rīkus
• 2. Izveidojiet makro un ievietojiet kodu
• 3. Sadalīts kods

Lai izveidotu makro, kas ievieto attēlu Excel šūnā, izmantojot VBA, jums tiešām nav vajadzīgas papildu Visual Basic zināšanas. Viss, kas jums jādara, ir jāieslēdz izstrādātāja rīki, jāizveido makro un jāielīmē atbilstošs kods. Protams, varat arī ievietot attēlus programmā Excel, neizmantojot VBA. Tomēr šajā rakstā mēs koncentrēsimies uz VBA.

1. Ieslēdziet izstrādātāja rīkus

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

1. Atveriet programmu Excel .
2. Dodieties uz izvēlni Fails .
3. Ekrāna apakšdaļā noklikšķiniet uz Opcijas . Parādīsies Excel opciju logs .
4. Programmā Excel opcijas atveriet cilni Pielāgot lenti .
5. Sadaļā Galvenās cilnes atzīmējiet vienumu Izstrādātājs .

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

2. Izveidojiet makro un ievietojiet kodu

1. Programmā Excel atveriet cilni Izstrādātājs .
2. Sadaļā Kods atlasiet Makro .
3. Jaunajā logā laukā Makro nosaukums ievadiet savu makro nosaukumu . Rakstā tiks izmantots insertPhotoMacro .
4. Noklikšķiniet uz Izveidot .

Pēc noklikšķināšanas uz Izveidot, tiks atvērts VBA logs un tiks parādīts jūsu makro kods. Pašlaik kods sastāvēs no 2 rindiņām: apakšrindas , lai sāktu makro, un beigu apakšrindas , lai to beigtu.

Pievienojiet šim makro nedaudz kodu. Pievienojiet šādu koda rindiņu starp abām rindām:

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

Galīgais kods izskatīsies šādi:

Jums nav jāuztraucas par šī procesa saglabāšanu. Visas VBA veiktās izmaiņas tiek nekavējoties saglabātas.

Tagad ir pienācis laiks redzēt kodu darbībā:

1. Aizveriet VBA logu.
2. Programmā Excel atveriet cilni Izstrādātājs .
3. Sadaļā Kods atlasiet Makro .
4. Iezīmējiet tikko izveidoto makro.
5. Noklikšķiniet uz Palaist .

Tagad tiks atvērts ziņojums, kurā jums tiks lūgts atrast attēla failu, kuru vēlaties ievietot. Atlasiet fotoattēlu un pēc tam noklikšķiniet uz Atvērt. Tagad jūs redzēsit attēlu šūnā A1.

Ņemiet vērā, ka programma Excel samazinās attēlu, lai tas ietilptu šūnā A1. Varat to mainīt un mainīt kodu, lai ievietotu attēlus citās šūnās, pat šūnu diapazonā. Nākamajā sadaļā mēs atdalīsim kodu un paskaidrosim parametrus.

3. Sadalīts kods

Lai VBA kods darbotos tā, kā vēlaties, jums tas ir jāsaprot. To darot, varat mainīt kodu, lai ievietotu attēlus jebkurā jebkura izmēra šūnā.

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

Kad kods sākas, mainīgā veida noteikšanai tiek izmantots paziņojums Dim. Mums ir divu veidu mainīgie: photoNameAndPath un foto . Vispirms mainīgais un pēc tam attēls.

No turienes tiek palaists mainīgais photoNameAndPath , un tas atvērs lietojumprogrammu, lai iegūtu fotoattēla faila atrašanās vietu. Tas tiek darīts, izmantojot Application.GetOpenFileName . Parametrs Title nav obligāts. Tajā esošais saturs tiek parādīts kā loga nosaukums.

Izmantojot Ja photoNameAndPath = False, izejiet no Sub , ja ir norādīta nederīga vai tukša adrese, process tiks pabeigts. Tomēr, ja tiek nodrošināts piemērots fails, Set photo = ActiveSheet.Pictures.Insert(photoNameAndPath) norāda, ka attēls ir jāiestata kā mainīgais, kā sākotnēji definēts. Tas tiks ievietots aktīvajā darblapā.

Visbeidzot, izmantojiet Ar fotoattēlu un 5 rindas aiz tā, lai noteiktu fotoattēla atrašanās vietu. .Kreisais un .Augšējais attiecas uz sākuma pozīciju, savukārt .Platums un .Augstums attiecas uz beigu pozīciju. Ja vēlaties ievietot attēlus citā šūnā vai diapazonā, šīs ir līnijas, kas jums jāmaina.

.Placement norāda, ka attēla izmērs ir jāmaina, lai tas atbilstu šūnai, vai jāievieto brīvā formā. Iestatot to uz 1 , tā izmērs tiks mainīts atbilstoši šūnai.

Visbeidzot, iepriekš minētais kods izmanto Beigt ar , pēc tam End Sub, lai aizvērtu makro. Tagad varat mainīt mainīgos photoNameAndPath un fotoattēlu uz jebkuru citu nosaukumu, kas jums patīk. Vienkārši neaizmirstiet, lai nosaukumi būtu konsekventi visā kodā.

Iepriekš ir norādīts, kā izmantot VBA, lai programmā Excel šūnās ievietotu attēlus . Cerams, ka raksts jums ir noderīgs.