Namig: drugi jeziki so prevedeni v Google. Lahko obiščete English različico te povezave.
Vpiši se
x
or
x
x
Registracija
x

or

Kako vstaviti sliko v polje z besedilom?

Privzeto lahko tako hitro vstavimo sliko ali sliko v delovni list z uporabo funkcije Vstavi, vendar se ta možnost ne uporablja za vstavljanje slike v polje z besedilom. S tem členom vam lahko pomagam, da vstavite sliko v okvir besedila, kot jo potrebujete.

Vstavite sliko ali sliko v polje z besedilom s kodo VBA


puščica modra desno mehurček Vstavite sliko ali sliko v polje z besedilom s kodo VBA


Če želite sliko vstaviti v polje z besedilom, vam lahko pomaga naslednja koda VBA:

1. Vstavite besedilni polju tako, da kliknete Vstavi > besedilo Box, nato pa narišite škatlo z besedilom, si oglejte posnetek zaslona:

doc vstavi sliko v tekstovni okvir 1

2. Potem pa drži ALT + F11 tipke za odpiranje Microsoft Visual Basic za aplikacije okno.

3. Kliknite Vstavi > Moduli, in prilepite naslednjo kodo v Moduli Okno.

VBA koda: vstavite sliko v polje z besedilom:

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, ki ga želite vstaviti, in C: \ Uporabniki \ DT168 \ namizje \ slike \ Apple.JPG je slikovna pot slike, ki jo želite vstaviti, spremenite jih na svoje potrebe.

4. In nato pritisnite F5 ključno za zagon te kode, bo določena slika enkrat vstavljena v polje z besedilom, lahko pa boste uredili poljuben okvir besedila, če želite, si oglejte posnetek zaslona:

doc vstavi sliko v tekstovni okvir 2


Sorodni članki:

Kako nastaviti privzeto vrednost v besedilnem polju?

Kako dovoliti vnašanje le številk v besedilno polje?

Kako uporabiti preverjanje črkovanja v besedilnem polju?

Kako spremeniti barvo besedilnega polja glede na vrednost v Excelu?


Priporočena orodja za produktivnost za Excel

zavihek kte 201905

Kutools za Excel vam pomaga, da vedno končate delo pred časom in izstopite iz množice

  • Več kot zmogljive napredne funkcije 300, zasnovane za 1500 delovne scenarije, ki povečujejo produktivnost z 70%, vam dajejo več časa za skrb za družino in uživanje v življenju.
  • Ne potrebujete več pomnilniških formul in VBA kod, od zdaj naprej pa dajate svojim možganom počitek.
  • Postanite strokovnjak za Excel v minutah 3, zapletene in ponavljajoče se operacije lahko opravite v nekaj sekundah,
  • Vsak dan zmanjšajte število operacij tipkovnice in miške, zdaj se poslovite od poklicnih bolezni.
  • 110,000 visoko učinkovite ljudi in 300 + svetovno priznanih podjetij izbiro.
  • Brezplačna preizkusna različica 60 dneva. 60-dnevno jamstvo vračila denarja. 2 let brezplačne nadgradnje in podpore.

Prinaša kartično brskanje in urejanje za Microsoft Office, veliko močnejši od zavihkov brskalnika

  • Office Tab je namenjen za Word, Excel, PowerPoint in druge Office aplikacije: Založnik, Dostop, Visio in Projekt.
  • Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
  • Z 50% poveča vašo produktivnost in vsak dan zmanjša na stotine klikov z miško!
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.