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?
Offer Cynhyrchiant Swyddfa Gorau
Supercharge Eich Sgiliau Excel gyda Kutools for Excel, a Phrofiad Effeithlonrwydd Fel Erioed Erioed o'r blaen. Kutools for Excel Yn cynnig dros 300 o nodweddion uwch i hybu cynhyrchiant ac arbed amser. Cliciwch Yma i Gael Y Nodwedd Sydd Ei Angen Y Mwyaf...
Office Tab Yn dod â rhyngwyneb Tabbed i Office, ac yn 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!






