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
Poznámka: 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:
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?
Nejlepší nástroje pro produktivitu v kanceláři
Rozšiřte své excelentní dovednosti pomocí Kutools for Excela zažijte efektivitu jako nikdy předtím. Kutools for Excel Nabízí více než 300 pokročilých funkcí pro zvýšení produktivity a úsporu času. Kliknutím sem získáte funkci, kterou nejvíce potřebujete...
Office Tab Přináší rozhraní s kartami do Office a usnadňuje vám práci
- Povolte úpravy a čtení na kartách ve Wordu, Excelu, PowerPointu, Publisher, Access, Visio a Project.
- Otevřete a vytvořte více dokumentů na nových kartách ve stejném okně, nikoli v nových oknech.
- Zvyšuje vaši produktivitu o 50%a snižuje stovky kliknutí myší každý den!






