Sut i fewnosod llun yn y blwch testun?
Yn ddiofyn, gallwn fewnosod llun neu ddelwedd mewn taflen waith mor gyflym trwy ddefnyddio'r swyddogaeth Mewnosod, ond, nid yw'r nodwedd hon yn cael ei chymhwyso i fewnosod llun mewn blwch testun. Gyda'r erthygl hon, gallaf eich helpu i fewnosod llun mewn blwch testun yn ôl yr angen.
Mewnosod llun neu ddelwedd mewn blwch testun gyda chod VBA
Mewnosod llun neu ddelwedd mewn blwch testun gyda chod VBA
I fewnosod llun mewn blwch testun, gall y cod VBA canlynol eich helpu, gwnewch fel hyn:
1. Mewnosod blwch testun trwy glicio Mewnosod > Blwch Testun, ac yna lluniwch flwch testun, gweler y screenshot:
2. Yna dal i lawr y ALT + F11 allweddi i agor y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.
3. Cliciwch Mewnosod > Modiwlau, a gludwch y cod canlynol yn y Modiwlau Ffenestr.
Cod VBA: Mewnosodwch lun yn y blwch testun:
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
Nodyn: Yn y cod uchod, Sheet4 yw'r enw dalen sy'n cynnwys y blwch testun rydych chi am fewnosod llun, a C: \ Defnyddwyr \ DT168 \ Desktop \ pictures \ Apple.JPG yw llwybr llun y llun rydych chi am ei fewnosod, dylech eu newid i'ch angen.
4. Ac yna pwyswch F5 yn allweddol i redeg y cod hwn, bydd y ddelwedd benodol yn cael ei mewnosod yn y blwch testun ar unwaith, a gallwch olygu'r blwch testun yn ôl yr angen, gweler y screenshot:
Erthyglau cysylltiedig:
Sut i osod gwerth diofyn mewn blwch testun?
Sut i ganiatáu i rifau yn unig gael eu mewnbynnu yn y blwch testun?
Sut i gymhwyso gwiriad sillafu yn y blwch testun?
Sut i newid lliw blwch testun yn seiliedig ar werth yn Excel?
Yr Offer Cynhyrchedd Swyddfa Gorau
Mae Kutools for Excel yn Datrys y rhan fwyaf o'ch Problemau, ac yn Cynyddu Eich Cynhyrchedd 80%
- Ailddefnyddio: Mewnosod yn gyflym fformwlâu cymhleth, siartiau ac unrhyw beth rydych chi wedi'i ddefnyddio o'r blaen; Amgryptio Celloedd gyda chyfrinair; Creu Rhestr Bostio ac anfon e-byst ...
- Bar Fformiwla Gwych (golygu llinellau lluosog o destun a fformiwla yn hawdd); Cynllun Darllen (darllen a golygu nifer fawr o gelloedd yn hawdd); Gludo i'r Ystod Hidlo...
- Uno Celloedd / Rhesi / Colofnau heb golli Data; Cynnwys Celloedd Hollt; Cyfuno Rhesi / Colofnau Dyblyg... Atal Celloedd Dyblyg; Cymharwch y Meysydd...
- Dewiswch Dyblyg neu Unigryw Rhesi; Dewiswch Blank Rows (mae pob cell yn wag); Darganfyddiad Gwych a Darganfyddiad Niwlog mewn Llawer o Lyfrau Gwaith; Dewis ar Hap ...
- Copi Union Celloedd Lluosog heb newid cyfeirnod fformiwla; Auto Creu Cyfeiriadau i Daflenni Lluosog; Mewnosod Bwledi, Blychau Gwirio a mwy ...
- Testun Detholiad, Ychwanegu Testun, Tynnu yn ôl Swydd, Tynnwch y Gofod; Creu ac Argraffu Subtotals Paging; Trosi rhwng Cynnwys a Sylwadau Celloedd...
- Hidlo Super (arbed a chymhwyso cynlluniau hidlo i ddalenni eraill); Trefnu Uwch yn ôl mis / wythnos / dydd, amlder a mwy; Hidlo Arbennig gan feiddgar, italig ...
- Cyfuno Llyfrau Gwaith a Thaflenni Gwaith; Uno Tablau yn seiliedig ar golofnau allweddol; Rhannwch Ddata yn Daflenni Lluosog; Trosi Swp xls, xlsx a PDF...
- Mwy na 300 o nodweddion pwerus. Yn cefnogi Swyddfa / Excel 2007-2019 a 365. Yn cefnogi pob iaith. Defnydd hawdd yn eich menter neu sefydliad. Nodweddion llawn treial am ddim 30 diwrnod. Gwarant arian yn ôl 60 diwrnod.
Mae Tab Office yn Dod â rhyngwyneb Tabbed i'r Swyddfa, a Gwneud Eich Gwaith yn Haws o lawer
- Galluogi golygu a darllen tabbed yn Word, Excel, PowerPoint, Cyhoeddwr, Mynediad, Visio a Phrosiect.
- Agor a chreu dogfennau lluosog mewn tabiau newydd o'r un ffenestr, yn hytrach nag mewn ffenestri newydd.
- Yn cynyddu eich cynhyrchiant 50%, ac yn lleihau cannoedd o gliciau llygoden i chi bob dydd!
