Jak vložit obrázek do buňky pomocí VBA v Excelu

Obrázky můžete snadno vkládat do excelových tabulek a upravovat je pomocí kódu maker. Zde je návod, jak vložit obrázek do buňky pomocí VBA v Excelu .

Visual Basic for Applications, zkráceně VBA, je forma jazyka Visual Basic 6 integrovaná do programů Microsoft Office. Prostřednictvím kódování vám VBA umožňuje automatizovat úlohy v aplikacích Office, včetně Excelu. V některých případech můžete dokonce přidávat nové funkce do Excelu pomocí VBA.

I když k použití VBA potřebujete pracovat s kódem, neznamená to, že je VBA plný písmen a číslic. Pomocí jazyka VBA v aplikaci Excel můžete vytvořit makro, které vám umožní vložit obrázek do buňky nebo oblasti buněk. Zde je to, co potřebujete vědět o vkládání obrázků do buněk v Excelu pomocí VBA.

Jak vložit obrázky do buněk pomocí VBA v Excelu

• 1. Zapněte nástroje pro vývojáře
• 2. Vytvořte makra a vložte kód
• 3. Dělený kód

K vytvoření makra, které vloží obrázek do buňky aplikace Excel pomocí jazyka VBA, opravdu nepotřebujete žádné pokročilé znalosti jazyka Visual Basic. Vše, co musíte udělat, je zapnout nástroje pro vývojáře, vytvořit makro a vložit příslušný kód. Obrázky do Excelu můžete samozřejmě vkládat i bez použití VBA. V tomto článku se však zaměříme na VBA.

1. Zapněte nástroje pro vývojáře

Chcete-li používat VBA v Excelu, musíte povolit nástroje pro vývojáře. Tato akce povolí kartu Vývojář na pásu karet, která je ve výchozím nastavení zakázána.

1. Otevřete Excel .
2. Přejděte do nabídky Soubor .
3. Klikněte na Možnosti v dolní části obrazovky. Zobrazí se okno Možnosti aplikace Excel .
4. V Možnosti aplikace Excel přejděte na kartu Přizpůsobit pás karet .
5. Na Hlavních kartách zaškrtněte Vývojář .

Nyní jsou povoleny vývojářské nástroje, včetně přístupu VBA. Nemusíte to dělat pokaždé, když chcete použít VBA v Excelu. Vývojářské nástroje budou vždy povoleny, dokud je nezakážete.

2. Vytvořte makra a vložte kód

1. V Excelu přejděte na kartu Vývojář .
2. V části Kód vyberte Makra .
3. V novém okně zadejte název makra do pole Název makra . Článek bude používat insertPhotoMacro .
4. Klikněte na Vytvořit .

Po kliknutí na Vytvořit se otevře okno VBA a zobrazí se kód pro vaše makro. V současné době bude kód obsahovat 2 řádky: Sub pro spuštění makra a End Sub pro jeho ukončení.

Přidejte malý kód do tohoto makra. Mezi dva řádky přidejte následující řádek kódu:

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

Konečný kód bude vypadat takto:

Nemusíte se starat o uložení tohoto procesu. Jakékoli změny, které provedete ve VBA, se okamžitě uloží.

Nyní je čas vidět kód v akci:

1. Zavřete okno VBA.
2. Přejděte na kartu Vývojář v Excelu.
3. V části Kód vyberte Makra .
4. Zvýrazněte makro, které jste právě vytvořili.
5. Klikněte na Spustit .

Nyní se otevře zpráva s výzvou k nalezení souboru obrázku, který chcete vložit. Vyberte fotografii a klikněte na Otevřít. Nyní uvidíte obrázek v buňce A1.

Poznámka: Excel zmenší obrázek tak, aby se vešel do buňky A1. Můžete jej změnit a změnit kód pro vkládání obrázků do jiných buněk, dokonce i do rozsahu buněk. V další části kód oddělíme a vysvětlíme parametry.

3. Dělený kód

Aby kód VBA fungoval tak, jak chcete, musíte mu porozumět. Když to uděláte, můžete změnit kód a vložit obrázky do libovolné buňky libovolné velikosti.

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

Na začátku kódu se k určení typu proměnné použije příkaz Dim. Máme dva typy proměnných: photoNameAndPath a photo . Nejprve proměnná a poté obrázek.

Odtud se spustí proměnná photoNameAndPath a otevře aplikaci pro získání umístění souboru fotografie. To se provádí pomocí Application.GetOpenFileName . Parametr Název je volitelný. Obsah uvnitř se zobrazí jako název okna.

Pomocí If photoNameAndPath = False Then Exit Sub , pokud je zadána neplatná nebo prázdná adresa, proces skončí. Pokud je však poskytnut vhodný soubor, Set photo = ActiveSheet.Pictures.Insert(photoNameAndPath) znamená, že obrázek by měl být nastaven jako proměnná, jak byla původně definována. Bude vložen do aktivního listu.

Nakonec pomocí S fotografií a 5 řádků za ní určete umístění fotografie. .Left a .Top označují počáteční pozici, zatímco .Width a .Height označují koncovou pozici. Pokud máte v úmyslu vložit obrázky do jiné buňky nebo rozsahu, toto jsou řádky, které byste měli změnit.

.Umístění znamená, že velikost obrázku by měla být změněna tak, aby se vešel do buňky, nebo vložit volný tvar. Nastavením na 1 změníte velikost podle buňky.

Nakonec výše uvedený kód používá End With a poté End Sub k uzavření makra. Nyní můžete změnit proměnné photoNameAndPath a photo na jakékoli jiné jméno, které se vám líbí. Jen nezapomeňte udržovat názvy konzistentní v celém kódu.

Výše je uveden způsob použití jazyka VBA k vkládání obrázků do buněk v aplikaci Excel . Doufám, že článek je pro vás užitečný.