Jak vložit obrázek do textového pole?

Ve výchozím nastavení můžeme obrázek nebo obrázek vložit do listu tak rychle pomocí funkce Vložit, ale tato funkce se nepoužije na vložení obrázku do textového pole. V tomto článku vám mohu pomoci podle potřeby vložit obrázek do textového pole.

Vložte obrázek nebo obrázek do textového pole s kódem VBA

Vložte obrázek nebo obrázek do textového pole s kódem VBA

Chcete-li vložit obrázek do textového pole, může vám pomoci následující kód VBA, postupujte takto:

1. Vložte textové pole kliknutím Vložit > Text Boxa potom nakreslete textové pole, viz screenshot:

2. Poté přidržte ALT + F11 klávesy pro otevření Microsoft Visual Basic pro aplikace okno.

3, klikněte Vložit > Modula vložte následující kód do Modul Okno.

Kód VBA: Vložte obrázek do textového pole:

Sub ShapePicture()
    Dim xSh As Shape
    Dim xPic As IPictureDisp
    Dim xFileName As String
    xFileName = "C:\Users\DT168\Desktop\pictures\Apple.JPG"
    Set xPic = LoadPicture(xFileName)
    Set xSh = Sheets("Sheet4").Shapes(1)
    xSh.Height = xPic.Height / xPic.Width * xSh.Width
    Set xPic = LoadPicture("")
    Set xPic = Nothing
    xSh.Fill.UserPicture xFileName
End Sub

Pozor: Ve výše uvedeném kódu, Sheet4 je název listu, který obsahuje textové pole, do kterého chcete vložit obrázek, a C: \ Users \ DT168 \ Desktop \ obrázky \ Apple.JPG je cesta k obrázku, který chcete vložit, měli byste je podle potřeby změnit.

4. A pak stiskněte F5 klíč ke spuštění tohoto kódu, konkrétní obrázek se vloží do textového pole najednou a textové pole můžete upravit podle potřeby, viz screenshot:

Odemkněte Excel Magic pomocí Kutools AI

• Chytré provedení: Provádějte operace s buňkami, analyzujte data a vytvářejte grafy – to vše pomocí jednoduchých příkazů.
• Vlastní vzorce: Vytvářejte přizpůsobené vzorce pro zefektivnění vašich pracovních postupů.
• Kódování VBA: Napište a implementujte kód VBA bez námahy.
• Výklad vzorce: Snadno porozumíte složitým vzorcům.
• Překlad textu: Prolomte jazykové bariéry ve svých tabulkách.

Vylepšete své možnosti aplikace Excel pomocí nástrojů založených na umělé inteligenci. Stáhnout nyní a zažijte efektivitu jako nikdy předtím!

Související články:

Jak nastavit výchozí hodnotu v textovém poli?

Jak povolit zadávání pouze čísel do textového pole?

Jak použít kontrolu pravopisu v textovém poli?

Jak změnit barvu textového pole na základě hodnoty v aplikaci Excel?