Sut i newid maint y blwch testun yn awtomatig i ffitio'r cynnwys yn Excel?
Mae maint y blwch testun yn sefydlog ar ôl ei fewnosod mewn taflen waith. Felly ni fydd y maint yn addasu i gyd-fynd â'r testun y gwnaethoch ei fewnosod neu ei ddileu. Nod yr erthygl hon yw dangos i chi ddulliau o newid maint y blwch testun yn awtomatig i ffitio'r cynnwys yn Excel.
Newid maint blwch testun i ffitio'r cynnwys trwy newid maint siâp i ffitio nodwedd testun
Newid maint yr holl flychau testun yn awtomatig i ffitio'r cynnwys yn ôl cod VBA
Newid maint blwch testun i ffitio'r cynnwys trwy newid maint siâp i ffitio nodwedd testun
Gallwch newid eiddo'r blwch testun fel a ganlyn i'w wneud yn newid maint yn awtomatig gyda'r testun y gwnaethoch chi ei nodi neu ei ddileu.
1. Ar ôl mewnosod y blwch testun, cliciwch ar y dde ar ffin y blwch testun, ac yna cliciwch Maint a Phriodweddau o'r ddewislen clicio ar y dde. Gweler y screenshot:
2. Gallwch weld a Siâp fformat arddangosir paen ar ochr dde'r daflen waith, o dan y Maint a Phriodweddau 
tab, gwiriwch y Ailbwyso siâp i ffitio testun blwch yn y Blwch Testun adran, ac yna cau'r Siâp fformat cwarel. Gweler y screenshot:
O hyn ymlaen, bydd y blwch testun yn newid maint i ffitio'r cynnwys yn awtomatig.
Nodyn: Gyda'r dull hwn, os oes nifer o flychau testun i'w newid, mae angen ichi newid priodweddau'r blychau testun fesul un.
Newid maint yr holl flychau testun yn awtomatig i ffitio'r cynnwys yn ôl cod VBA
Ar gyfer taflen waith sydd eisoes â nifer o flychau testun, gall y cod VBA canlynol eich helpu i'w hailfeintio'n awtomatig i ffitio'r cynnwys ar unwaith.
1. Gwasgwch Alt + F11 allweddi ar yr un pryd i agor y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.
2. Yn y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr, cliciwch Mewnosod > Modiwlau. Yna copïwch a gludwch y cod VBA isod i mewn i ffenestr y Modiwl.
Cod VBA: Newid maint pob blwch testun yn awtomatig i ffitio'r cynnwys mewn taflen waith
Sub TextBoxResizeTB()
Dim xShape As Shape
Dim xSht As Worksheet
On Error Resume Next
For Each xSht In ActiveWorkbook.Worksheets
For Each xShape In xSht.Shapes
If xShape.Type = 17 Then
xShape.TextFrame2.AutoSize = msoAutoSizeShapeToFitText
xShape.TextFrame2.WordWrap = True
End If
Next
Next
End Sub3. Gwasgwch y F5 allwedd i redeg y cod. Yna gallwch weld bod yr holl flychau testun yn y daflen waith gyfredol yn cael eu newid maint yn awtomatig i ffitio'i gynnwys fel y dangosir isod y screenshot.
A bydd y blychau testun hyn yn newid maint yn awtomatig gyda'r cynnwys rydych chi'n ei nodi neu'n ei ddileu i'w ddefnyddio yn y dyfodol.
Erthygl gysylltiedig:
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!
