Hoe u een afbeelding in een cel kunt invoegen met VBA in Excel

U kunt eenvoudig afbeeldingen in Excel-spreadsheets invoegen en deze bewerken met macrocode. U kunt als volgt een afbeelding in een cel invoegen met VBA in Excel .

Hoe u een afbeelding in een cel kunt invoegen met VBA in Excel

Visual Basic for Applications, afgekort als VBA, is een vorm van Visual Basic 6 geïntegreerd in Microsoft Office-programma's. Door middel van codering kunt u met VBA taken in Office-toepassingen, waaronder Excel, automatiseren. In sommige gevallen kunt u met VBA zelfs nieuwe functies aan Excel toevoegen.

Ook al moet je met code werken om VBA te gebruiken, dat betekent niet dat VBA vol letters en cijfers zit. Met VBA in Excel kunt u een macro maken waarmee u een afbeelding in een cel of celbereik kunt invoegen. Dit is wat u moet weten over het invoegen van afbeeldingen in cellen in Excel met behulp van VBA.

Hoe afbeeldingen in cellen in te voegen met VBA in Excel

Om een ​​macro te maken die een afbeelding in een Excel-cel invoegt met behulp van VBA, heb je echt geen geavanceerde Visual Basic-kennis nodig. Het enige dat u hoeft te doen, is de ontwikkelaarstools inschakelen, een macro maken en de juiste code plakken. Uiteraard kunt u ook zonder VBA afbeeldingen in Excel invoegen. In dit artikel zullen we ons echter concentreren op VBA.

1. Schakel ontwikkelaarstools in

Om VBA in Excel te gebruiken, moet u ontwikkelaarstools inschakelen. Met deze actie wordt het tabblad Ontwikkelaars op het lint ingeschakeld, dat standaard is uitgeschakeld.

  1. Excel openen .
  2. Ga naar het menu Bestand .
  3. Klik op Opties onder aan het scherm. Het venster Excel-opties verschijnt.
  4. Ga in Excel-opties naar het tabblad Lint aanpassen .
  5. Vink Ontwikkelaar aan in de hoofdtabbladen .

Hoe u een afbeelding in een cel kunt invoegen met VBA in Excel

Nu zijn ontwikkelaarstools, inclusief VBA-toegang, ingeschakeld. U hoeft dit niet elke keer te doen als u VBA in Excel wilt gebruiken. Ontwikkelaarstools zijn altijd ingeschakeld totdat u ze uitschakelt.

2. Maak macro's en voeg code in

  1. Ga in Excel naar het tabblad Ontwikkelaars .
  2. Selecteer Macro's in het gedeelte Code .
  3. Voer in het nieuwe venster uw macronaam in Macronaam in . Het artikel gebruikt insertPhotoMacro .
  4. Klik op Maken .

Hoe u een afbeelding in een cel kunt invoegen met VBA in Excel

Nadat u op Maken hebt geklikt, wordt het VBA-venster geopend en wordt de code voor uw macro weergegeven. Momenteel bestaat de code uit 2 regels: een Sub om de macro te starten en een End Sub om deze te beëindigen.

Hoe u een afbeelding in een cel kunt invoegen met VBA in Excel

Voeg een beetje code toe aan deze macro. Voeg de volgende regel code toe tussen de twee regels:

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

De uiteindelijke code ziet er als volgt uit:

Hoe u een afbeelding in een cel kunt invoegen met VBA in Excel

U hoeft zich geen zorgen te maken over het opslaan van dit proces. Alle wijzigingen die u in VBA aanbrengt, worden onmiddellijk opgeslagen.

Nu is het tijd om de code in actie te zien:

  1. Sluit het VBA-venster.
  2. Ga naar het tabblad Ontwikkelaars in Excel.
  3. Selecteer Macro's in het gedeelte Code.
  4. Markeer de macro die u zojuist hebt gemaakt.
  5. Klik op Uitvoeren .

Er wordt nu een bericht geopend waarin u wordt gevraagd het afbeeldingsbestand te lokaliseren dat u wilt invoegen. Selecteer de foto en klik vervolgens op Openen. Je ziet nu de afbeelding in cel A1.

Let op: Excel verkleint de afbeelding zodat deze in cel A1 past. U kunt het wijzigen en de code wijzigen om afbeeldingen in andere cellen in te voegen, zelfs in een celbereik. In de volgende sectie zullen we de code scheiden en de parameters uitleggen.

3. Splitscode

Om VBA-code te laten werken zoals jij dat wilt, moet je het begrijpen. Wanneer u dit doet, kunt u de code wijzigen om afbeeldingen in elke cel van elke grootte in te voegen.

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

Wanneer de code begint, wordt de Dim-instructie gebruikt om het variabeletype te bepalen. We hebben twee typen variabelen: photoNameAndPath en photo . Eerst de variabele en dan de afbeelding.

Van daaruit wordt de variabele photoNameAndPath uitgevoerd en wordt een toepassing geopend om de locatie van het fotobestand op te halen. Dit gebeurt via Application.GetOpenFileName . De parameter Titel is optioneel. De inhoud erin wordt weergegeven als de vensternaam.

Als u If photoNameAndPath = False Then Exit Sub gebruikt , wordt het proces beëindigd als er een ongeldig of leeg adres wordt opgegeven. Als er echter een geschikt bestand wordt geleverd, geeft Set photo = ActiveSheet.Pictures.Insert(photoNameAndPath) aan dat de afbeelding moet worden ingesteld als een variabele zoals oorspronkelijk gedefinieerd. Het wordt ingevoegd in het actieve werkblad.

Gebruik ten slotte Met foto en de 5 regels erna om de locatie van de foto te bepalen. .Left en .Top verwijzen naar de startpositie, terwijl .Width en .Height verwijzen naar de eindpositie. Als u afbeeldingen in een andere cel of bereik wilt invoegen, zijn dit de regels die u moet wijzigen.

.Plaatsing geeft aan dat het formaat van de afbeelding moet worden aangepast zodat deze in de cel past of vrije vorm moet worden ingevoegd. Als u dit op 1 instelt , wordt het formaat aangepast aan de hand van de cel.

Ten slotte gebruikt de bovenstaande code End With en vervolgens End Sub om de macro te sluiten. Nu kunt u de variabelen photoNameAndPath en photo wijzigen in elke gewenste naam. Vergeet niet om de namen consistent te houden in de hele code.

Hierboven ziet u hoe u VBA kunt gebruiken om afbeeldingen in cellen in Excel in te voegen . Ik hoop dat het artikel nuttig voor je is.

Sign up and earn $1000 a day ⋙

Hoe u kunt vinden wie u niet meer volgt op Instagram

Hoe u kunt vinden wie u niet meer volgt op Instagram

Ook al waarschuwt Instagram je elke keer dat een andere gebruiker je volgt, je weet pas of iemand je niet meer volgt als je je profiel controleert. Terwijl

Hoe u contact kunt opnemen met de Amazon-klantenservice

Hoe u contact kunt opnemen met de Amazon-klantenservice

Heeft u hulp nodig bij een Amazon-gerelateerd probleem en weet u niet met wie u contact moet opnemen? Ontdek alle manieren om contact op te nemen met de klantenservice van Amazon.

Hoe u een nieuwe gebruiker kunt toevoegen aan HubSpot

Hoe u een nieuwe gebruiker kunt toevoegen aan HubSpot

Als u een bedrijf start of laat groeien, heeft u een effectieve manier nodig om verschillende teams en afdelingen te beheren, informatie te delen, de workflow te beheren en

Hoe weet je wanneer iemand voor het laatst is gezien op Snapchat?

Hoe weet je wanneer iemand voor het laatst is gezien op Snapchat?

Snapchat is er trots op het meest eerlijke sociale-mediaplatform te zijn dat er is. Het biedt functies en informatie die de meeste sociale apps niet bieden, zoals wie

Hoe verwijderde vrienden te vinden in Snapchat

Hoe verwijderde vrienden te vinden in Snapchat

Als iemand je lastig valt op Snapchat of als je zijn of haar foto's oninteressant vindt, kun je naast het blokkeren ervan de foto's ook uit je berichten verwijderen.

Snapchat: hoe u kunt zien wie u heeft geblokkeerd

Snapchat: hoe u kunt zien wie u heeft geblokkeerd

Als je Snapchat veel gebruikt, ben je misschien een gebruiker tegengekomen die iets heeft gedaan wat je irriteert of van streek maakt. Helaas is dit een veel voorkomend verschijnsel op sociale media. Maar

Hoe veroudering in Sims 4 uit te schakelen

Hoe veroudering in Sims 4 uit te schakelen

Net als in de echte wereld zullen je creaties in Sims 4 uiteindelijk oud worden en sterven. Sims worden op natuurlijke wijze ouder in zeven levensfasen: baby, peuter, kind, tiener,

Hoe u een pagina kunt toevoegen aan Notability

Hoe u een pagina kunt toevoegen aan Notability

Als u een Notability-gebruiker bent, zult u het gemak van het maken van aantekeningen en het ordenen van uw gedachten waarschijnlijk niet ontgaan. En hoewel basisnotities nuttig zijn

Google Formulieren: e-mailmeldingen ontvangen

Google Formulieren: e-mailmeldingen ontvangen

Google Formulieren biedt een handige methode voor het verzamelen van informatie en meningen door het uitvoeren van enquêtes, evenementenregistratie en feedbackformulieren. Dit

Microsoft Edge: werkruimten instellen en gebruiken

Microsoft Edge: werkruimten instellen en gebruiken

Microsoft Edge Workspaces is een op samenwerking gerichte functie die beschikbaar is op Windows en macOS. U kunt een werkruimte maken en al het benodigde openen

Hoe je kunt zien wanneer een Instagram-account is aangemaakt: die van jezelf of van iemand anders

Hoe je kunt zien wanneer een Instagram-account is aangemaakt: die van jezelf of van iemand anders

Het socialemediaplatform Instagram heeft een lange weg afgelegd sinds de start in 2010 en de overname van Facebook in 2012, en sommige mensen zijn actief geweest

Hoe u een SMS-bericht kunt plannen voor het verzenden van een IM-bericht

Hoe u een SMS-bericht kunt plannen voor het verzenden van een IM-bericht

Ben je ooit midden in de nacht wakker geworden en herinnerde je je dat je 's ochtends een bericht naar iemand moest sturen? Het overkomt iedereen. Terwijl de meeste

Minecraft Java: hoe de From The Fog-mod te installeren

Minecraft Java: hoe de From The Fog-mod te installeren

Als je het beu bent om de wereld van vanille Minecraft: Java Edition onder de knie te krijgen, kun je de game nieuw leven inblazen door mods en datapakketten toe te voegen, waaronder

Hoe u onenigheid kunt oplossen door een zwart scherm te tonen tijdens het streamen

Hoe u onenigheid kunt oplossen door een zwart scherm te tonen tijdens het streamen

Ontdek hoe je het zwarte schermprobleem kunt oplossen tijdens het streamen op Discord met deze tips voor probleemoplossing, zodat je weer je inhoud kunt delen.

Hoe op te lossen Kan geen berichten verzenden op Telegram

Hoe op te lossen Kan geen berichten verzenden op Telegram

Ontdek waarom u geen berichten kunt verzenden via Telegram en leer eenvoudige oplossingen voor het probleem, zodat u contact kunt houden met uw contacten.

Chrome verwijderen en opnieuw installeren

Chrome verwijderen en opnieuw installeren

https://www.youtube.com/watch?v=g4e-Vxt3Cr0 Google Chrome is niet voor niets een van de populairste webbrowsers. Het is beschikbaar op elke mobiele telefoon en

Hoe u tabbladen in Google Spreadsheets samenvoegt

Hoe u tabbladen in Google Spreadsheets samenvoegt

Spreadsheets kunnen waardevolle informatie bevatten, zoals verkoopgegevens, boekhoudgegevens, contactgegevens, enz. Die gegevens zijn echter vaak verspreid

Instructies voor het maken van een maanfasetrend

Instructies voor het maken van een maanfasetrend

Instructies voor het maken van een Maanfasetrend De Maantrend is enorm populair op TikTok en zorgt voor een ongekende koorts. Via de maanfase kunt u de datum kennen

Videos bewerken die op YouTube zijn geplaatst zonder weergaveverlies

Videos bewerken die op YouTube zijn geplaatst zonder weergaveverlies

Video's bewerken die op YouTube zijn geplaatst zonder weergaven te verliezen. Je bent vergeten gevoelige inhoud te vervagen in video's die op YouTube zijn geplaatst. Maak je geen zorgen, hier lees je hoe je het kunt aanpassen

Hoe de donkere modus op TikTok in te schakelen

Hoe de donkere modus op TikTok in te schakelen

Hoe je de donkere modus op TikTok inschakelt. Hoe je de donkere modus op TikTok inschakelt, is niet moeilijk. In het artikel wordt gedetailleerd uitgelegd hoe u de TikTok-interface op Samsung in zwart kunt veranderen