Cum să inserați o imagine într-o celulă folosind VBA în Excel

Puteți insera cu ușurință imagini în foile de calcul Excel și le puteți edita cu un cod macro. Iată cum să inserați o imagine într-o celulă folosind VBA în Excel .

Cum să inserați o imagine într-o celulă folosind VBA în Excel

Visual Basic for Applications, abreviat ca VBA, este o formă de Visual Basic 6 integrată în programele Microsoft Office. Prin codificare, VBA vă permite să automatizați sarcini în aplicațiile Office, inclusiv Excel. În unele cazuri, puteți chiar să adăugați noi funcții la Excel folosind VBA.

Chiar dacă trebuie să lucrați cu cod pentru a utiliza VBA, asta nu înseamnă că VBA este plin de litere și numere. Cu VBA în Excel, puteți crea o macrocomandă care vă permite să inserați o imagine într-o celulă sau într-o serie de celule. Iată ce trebuie să știți despre inserarea imaginilor în celule în Excel folosind VBA.

Cum să inserați imagini în celule folosind VBA în Excel

Pentru a crea o macrocomandă care inserează o imagine într-o celulă Excel folosind VBA, chiar nu aveți nevoie de cunoștințe avansate de Visual Basic. Tot ce trebuie să faceți este să activați instrumentele pentru dezvoltatori, să creați o macrocomandă și să lipiți codul corespunzător. Desigur, puteți insera și imagini în Excel fără a utiliza VBA. Cu toate acestea, în acest articol, ne vom concentra pe VBA.

1. Activați Instrumentele pentru dezvoltatori

Pentru a utiliza VBA în Excel, trebuie să activați instrumentele pentru dezvoltatori. Această acțiune va activa fila Dezvoltator din panglică, care este dezactivată implicit.

  1. Deschideți Excel .
  2. Accesați meniul Fișier .
  3. Faceți clic pe Opțiuni în partea de jos a ecranului. Va apărea fereastra Opțiuni Excel .
  4. În Opțiuni Excel, accesați fila Personalizare panglică .
  5. În filele principale , bifați Dezvoltator .

Cum să inserați o imagine într-o celulă folosind VBA în Excel

Acum instrumentele pentru dezvoltatori, inclusiv accesul VBA, sunt activate. Nu trebuie să faceți acest lucru de fiecare dată când doriți să utilizați VBA în Excel. Instrumentele pentru dezvoltatori vor fi întotdeauna activate până când le dezactivați.

2. Creați macrocomenzi și introduceți codul

  1. În Excel, accesați fila Dezvoltator .
  2. În secțiunea Cod, selectați Macrocomenzi .
  3. În fereastra nouă, introduceți numele macrocomenzii în Numele macrocomenzii . Articolul va folosi insertPhotoMacro .
  4. Faceți clic pe Creare .

Cum să inserați o imagine într-o celulă folosind VBA în Excel

După ce faceți clic pe Creare, se va deschide fereastra VBA și va afișa codul pentru macrocomandă. În prezent, codul va consta din 2 linii: un Sub pentru a începe macro-ul și un End Sub pentru a o termina.

Cum să inserați o imagine într-o celulă folosind VBA în Excel

Adăugați un mic cod la această macrocomandă. Adăugați următoarea linie de cod între cele două linii:

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

Codul final va arăta astfel:

Cum să inserați o imagine într-o celulă folosind VBA în Excel

Nu trebuie să vă faceți griji cu privire la salvarea acestui proces. Orice modificări pe care le faceți în VBA sunt salvate imediat.

Acum este timpul să vedeți codul în acțiune:

  1. Închideți fereastra VBA.
  2. Accesați fila Dezvoltator din Excel.
  3. Selectați Macrocomenzi din secțiunea Cod.
  4. Evidențiați macrocomandă pe care tocmai ați creat-o.
  5. Faceți clic pe Executare .

Acum se va deschide un mesaj care vă va cere să localizați fișierul imagine pe care doriți să îl introduceți. Selectați fotografia, apoi faceți clic pe Deschidere. Acum veți vedea imaginea în celula A1.

Rețineți, Excel va micșora imaginea astfel încât să se potrivească în celula A1. Îl puteți schimba și modifica codul pentru a insera imagini în alte celule, chiar și într-o serie de celule. În secțiunea următoare, vom separa codul și vom explica parametrii.

3. Cod împărțit

Pentru ca codul VBA să funcționeze așa cum doriți, trebuie să îl înțelegeți. Când faceți acest lucru, puteți modifica codul pentru a insera imagini în orice celulă de orice dimensiune.

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

Când începe codul, instrucțiunea Dim este utilizată pentru a determina tipul de variabilă. Avem două tipuri de variabile: photoNameAndPath și photo . Mai întâi variabila și apoi imaginea.

De acolo, variabila photoNameAndPath rulează și va deschide o aplicație pentru a obține locația fișierului foto. Acest lucru se face prin Application.GetOpenFileName . Parametrul Titlu este opțional. Conținutul din interiorul acestuia este afișat ca nume de fereastră.

Folosind If photoNameAndPath = False Then Exit Sub , dacă este dată o adresă nevalidă sau goală, procesul se va încheia. Totuși, dacă este furnizat un fișier adecvat, Set photo = ActiveSheet.Pictures.Insert(photoNameAndPath) indică faptul că imaginea trebuie setată ca variabilă așa cum a fost definită inițial. Acesta va fi inserat în foaia de lucru activă.

În cele din urmă, utilizați Cu fotografie și cele 5 linii de după aceasta pentru a determina locația fotografiei. .Stânga și .Sus se referă la poziția de pornire, în timp ce .Lățimea și .Înălțimea se referă la poziția finală. Dacă intenționați să inserați imagini într-o altă celulă sau într-un interval, acestea sunt liniile pe care ar trebui să le modificați.

.Plasarea indică faptul că imaginea trebuie redimensionată pentru a se potrivi cu celula sau inserată în formă liberă. Setarea la 1 o va redimensiona în funcție de celulă.

În cele din urmă, codul de mai sus folosește End With , apoi End Sub pentru a închide macrocomanda. Acum puteți schimba variabilele photoNameAndPath și photo cu orice alt nume doriți. Nu uitați să păstrați numele consecvente în tot codul.

Mai sus este cum să utilizați VBA pentru a insera imagini în celule în Excel . Sper că articolul vă este de folos.

Sign up and earn $1000 a day ⋙

Cum să găsești cine nu te-a urmărit pe Instagram

Cum să găsești cine nu te-a urmărit pe Instagram

Chiar dacă Instagram te anunță de fiecare dată când te urmărește un alt utilizator, nu vei ști dacă cineva te-a anulat, decât dacă îți verifici profilul. In timp ce

Cum să contactați serviciul clienți Amazon

Cum să contactați serviciul clienți Amazon

Aveți nevoie de ajutor cu o problemă legată de Amazon și nu știți pe cine să contactați? Aflați toate modalitățile de a contacta Asistența Clienți Amazon.

Cum să adăugați un utilizator nou în HubSpot

Cum să adăugați un utilizator nou în HubSpot

Dacă începeți sau dezvoltați o afacere, aveți nevoie de o modalitate eficientă de a gestiona diferite echipe și departamente, de a partaja informații, de a gestiona fluxul de lucru și

Cum să afli când cineva a fost văzut ultima dată pe Snapchat

Cum să afli când cineva a fost văzut ultima dată pe Snapchat

Snapchat se mândrește că este cea mai onesta platformă de socializare de acolo. Oferă funcții și informații pe care majoritatea aplicațiilor sociale nu le oferă, cum ar fi cine

Cum să găsești prieteni șterși în Snapchat

Cum să găsești prieteni șterși în Snapchat

Dacă cineva te deranjează pe Snapchat sau îți găsești instantaneele neinteresante, o opțiune pe care o ai pe lângă blocarea lor este să le elimini din

Snapchat: Cum să vezi cine te-a blocat

Snapchat: Cum să vezi cine te-a blocat

Dacă folosești mult Snapchat, este posibil să fi întâlnit un utilizator care a făcut ceva care să te enerveze sau să te supere. Din păcate, aceasta este o întâmplare comună pe rețelele de socializare. Dar

Cum să dezactivezi îmbătrânirea în Sims 4

Cum să dezactivezi îmbătrânirea în Sims 4

Ca și în lumea reală, creațiile tale din Sims 4 vor îmbătrâni și vor muri în cele din urmă. Sims îmbătrânesc în mod natural prin șapte etape de viață: bebeluș, copil mic, copil, adolescent,

Cum să adăugați o pagină în Notability

Cum să adăugați o pagină în Notability

Dacă sunteți utilizator Notability, este posibil să nu vă pierdeți confortul de a lua note și de a vă organiza gândurile. Și în timp ce notele de bază sunt utile

Formulare Google: Cum să primiți notificări prin e-mail

Formulare Google: Cum să primiți notificări prin e-mail

Formulare Google oferă o metodă convenabilă de a colecta informații și opinii prin efectuarea de sondaje, înregistrarea evenimentelor și formulare de feedback. Acest

Microsoft Edge: Cum să configurați și să utilizați spațiile de lucru

Microsoft Edge: Cum să configurați și să utilizați spațiile de lucru

Microsoft Edge Workspaces este o caracteristică axată pe colaborare disponibilă pe Windows și macOS. Puteți crea un spațiu de lucru și puteți deschide toate cele necesare

Cum să vizualizați când a fost creat un cont de Instagram - al dvs. sau al altcuiva

Cum să vizualizați când a fost creat un cont de Instagram - al dvs. sau al altcuiva

Platforma de socializare, Instagram, a parcurs un drum lung de la începutul ei în 2010 și de la achiziția Facebook în 2012, iar unii oameni au fost activi

Cum să programați un mesaj text trimis în IMessage

Cum să programați un mesaj text trimis în IMessage

Te-ai trezit vreodată în miezul nopții și ți-ai amintit că trebuie să trimiți un mesaj cuiva dimineața? Se întâmplă tuturor. În timp ce majoritatea

Minecraft Java: Cum se instalează modulul „Din ceață”.

Minecraft Java: Cum se instalează modulul „Din ceață”.

Dacă te-ai săturat să stăpânești lumea vaniliei Minecraft: Java Edition, poți aduce o nouă viață jocului adăugând moduri și pachete de date, inclusiv

Cum să remediați Discord care afișează ecranul negru în timpul redării în flux

Cum să remediați Discord care afișează ecranul negru în timpul redării în flux

Descoperiți cum să remediați defecțiunea ecranului negru la transmiterea în flux pe Discord cu aceste sfaturi de depanare pentru a reveni la partajarea conținutului.

Cum să remediați eroarea Nu se pot trimite mesaje pe Telegram

Cum să remediați eroarea Nu se pot trimite mesaje pe Telegram

Aflați de ce nu puteți trimite mesaje pe Telegram și aflați soluții simple pentru problemă, asigurându-vă că puteți rămâne în contact cu persoanele de contact.

Cum să dezinstalezi și să reinstalezi Chrome

Cum să dezinstalezi și să reinstalezi Chrome

https://www.youtube.com/watch?v=g4e-Vxt3Cr0 Google Chrome este unul dintre cele mai populare browsere web din motive întemeiate. Este disponibil pe fiecare mobil și

Cum să îmbinați filele în Foi de calcul Google

Cum să îmbinați filele în Foi de calcul Google

Foile de calcul pot conține informații valoroase, cum ar fi înregistrările vânzărilor, datele contabile, informațiile de contact etc. Cu toate acestea, aceste date sunt adesea răspândite în

Instrucțiuni pentru crearea tendinței fazei lunii

Instrucțiuni pentru crearea tendinței fazei lunii

Instrucțiuni pentru crearea unui trend în faza Lunii Tendința Lunii este extrem de populară pe TikTok, creând o febră fără precedent. Prin faza Lunii vă va ajuta să știți data

Cum să editați videoclipuri postate pe YouTube fără a pierde vizionări

Cum să editați videoclipuri postate pe YouTube fără a pierde vizionări

Cum să editați videoclipuri postate pe YouTube fără a pierde vizionări, Ați uitat să estompați conținutul sensibil în videoclipurile postate pe YouTube. Nu vă faceți griji, iată cum să o reglați

Cum să activați modul întunecat pe TikTok

Cum să activați modul întunecat pe TikTok

Cum să activați modul întunecat pe TikTok, Cum să activați modul întunecat pe TikTok nu este dificil. Articolul vă va ghida în detaliu cum să schimbați interfața TikTok în negru pe Samsung