Kako vstaviti sliko v polje z besedilom?

S privzeto lahko sliko ali sliko vstavimo v delovni list s pomočjo funkcije Vstavi, vendar ta funkcija ne velja za vstavljanje slike v besedilno polje. S tem člankom vam lahko pomagam, da v besedilno polje vstavite sliko, kot jo potrebujete.

Vstavite sliko ali sliko v besedilno polje s kodo VBA

Vstavite sliko ali sliko v besedilno polje s kodo VBA

Če želite sliko vstaviti v besedilno polje, vam bo morda v pomoč naslednja koda VBA, naredite naslednje:

1. S klikom vstavite besedilno polje Vstavi > besedilo Boxin nato narišite besedilno polje, glejte posnetek zaslona:

2. Nato držite tipko ALT + F11 tipke za odpiranje Microsoft Visual Basic za aplikacije okno.

3. Kliknite Vstavi > Moduliin prilepite naslednjo kodo v Moduli Okno.

Koda VBA: V besedilno polje vstavite sliko:

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

Opombe: V zgornji kodi, Sheet4 je ime lista, ki vsebuje polje z besedilom, v katerega želite vstaviti sliko, in C: \ Users \ DT168 \ Desktop \ pictures \ Apple.JPG je pot slike do slike, ki jo želite vstaviti, jih spremenite po svojih željah.

4. In nato pritisnite F5 tipko za zagon te kode, bo določena slika naenkrat vstavljena v besedilno polje in besedilo lahko uredite po potrebi, glejte posnetek zaslona:

Sorodni članki:

Kako nastaviti privzeto vrednost v besedilnem polju?

Kako dovoliti vnos samo številk v besedilno polje?

Kako uporabiti preverjanje črkovanja v besedilnem polju?

Kako spremeniti barvo besedilnega polja glede na vrednost v Excelu?