Ինչպե՞ս ավտոմատ կերպով փոխել տեքստի տուփը ՝ Excel- ում պարունակվող բովանդակությունը տեղավորելու համար:
Տեքստի տուփի չափը ամրագրվում է այն աշխատանքային էջում տեղադրելուց հետո: Այսպիսով, չափը չի հարմարվի ձեր տեղադրած կամ ջնջված տեքստին համապատասխանելու համար: Այս հոդվածի նպատակն է ցույց տալ ձեզ տեքստի տուփը ավտոմատ չափափոխելու մեթոդներ ՝ Excel- ում պարունակվող բովանդակությանը համապատասխանելու համար:
Ավտոմատ չափափոխեք տեքստի տուփը ՝ բովանդակությանը համապատասխանելու համար, չափը չափափոխելով ՝ տեքստի առանձնահատկությանը համապատասխանելու համար
Ավտոմատ չափափոխեք բոլոր տեքստային տուփերը ՝ VBA կոդով պարունակությունը տեղավորելու համար
Ավտոմատ չափափոխեք տեքստի տուփը ՝ բովանդակությանը համապատասխանելու համար, չափը չափափոխելով ՝ տեքստի առանձնահատկությանը համապատասխանելու համար
Դուք կարող եք փոխել տեքստի տուփի հատկությունը հետևյալ կերպ ՝ այն ավտոմատ կերպով փոփոխելու համար ձեր մուտքագրած կամ ջնջված տեքստի հետ:
1. Տեքստային տուփը զետեղելուց հետո աջ կտտացրեք տեքստի տուփի եզրագծին և այնուհետև կտտացրեք Չափը և հատկությունները աջ կտտացնելու ցանկից: Տեսեք,
2. Կարող եք տեսնել ա Ձևաչափի ձև պատուհանը ցուցադրվում է աշխատանքային թերթի աջ կողմում, ներքևում Չափը և հատկությունները 
էջանիշը, ստուգեք Փոփոխել ձեւը `պիտանի տեքստը տուփի մեջ Տեքստային տուփ բաժինը, ապա փակիր Ձևաչափի ձև պատուհան Տեսեք,
Այսուհետ տեքստի տուփը կփոփոխվի ՝ բովանդակությանը ավտոմատ տեղավորելու համար:
ՆշումԱյս մեթոդով, եթե կան բազմաթիվ տեքստային տուփեր, որոնք պետք է փոխվեն, հարկավոր է մեկ առ մեկ փոխել տեքստային տուփերի հատկությունները:
Ավտոմատ չափափոխեք բոլոր տեքստային տուփերը ՝ VBA կոդով պարունակությունը տեղավորելու համար
Աշխատանքային թերթիկի համար, որն արդեն ունի բազմաթիվ տեքստային տուփեր, հետևյալ VBA կոդը կարող է օգնել ձեզ ինքնաբերաբար չափափոխել դրանք ՝ միանգամից բովանդակությանը համապատասխանելու համար:
1. Մամուլ ալտ + F11 ստեղները միաժամանակ բացելու համար Microsoft Visual Basic հավելվածների համար պատուհան.
2. Մեջ Microsoft Visual Basic հավելվածների համար պատուհանը, սեղմեք Տեղադրել > Մոդուլներ, Դրանից հետո պատճենեք և տեղադրեք ներքևի VBA կոդը Մոդուլի պատուհանում:
VBA կոդ. Ավտոմատ չափափոխել բոլոր տեքստային տուփերը ՝ բովանդակությունը աշխատանքային թերթում տեղադրելու համար
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. Սեղմեք F5 ծածկագիրը գործելու համար: Դրանից հետո դուք կարող եք տեսնել, որ ընթացիկ աշխատաթերթում բոլոր տեքստային տուփերն ավտոմատ կերպով չափափոխվում են ՝ դրա բովանդակությանը համապատասխանելու համար, ինչպես ցույց է տրված նկարում:
Եվ այս տեքստային տուփերն ավտոմատ կերպով չափափոխվելու են ձեր մուտքագրած կամ ապագա ջնջման դեպքում պարունակվող բովանդակության հետ:
Առնչվող հոդված:
Գրասենյակի արտադրողականության լավագույն գործիքները
Լրացրեք ձեր Excel-ի հմտությունները Kutools-ի հետ Excel-ի համար և փորձեք արդյունավետությունը, ինչպես երբեք: Kutools-ը Excel-ի համար առաջարկում է ավելի քան 300 առաջադեմ առանձնահատկություններ՝ արտադրողականությունը բարձրացնելու և ժամանակ խնայելու համար: Սեղմեք այստեղ՝ Ձեզ ամենաշատ անհրաժեշտ հատկանիշը ստանալու համար...
Office Tab- ը Tabbed ինտերֆեյսը բերում է Office, և ձեր աշխատանքը շատ ավելի դյուրին դարձրեք
- Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
- Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
- Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր:
