Come ridimensionare automaticamente la casella di testo per adattarla al contenuto in Excel?
La dimensione della casella di testo viene fissata dopo averla inserita in un foglio di lavoro. Quindi le dimensioni non si adatteranno per adattarsi al testo che hai inserito o eliminato. Questo articolo ha lo scopo di mostrarti i metodi per ridimensionare automaticamente la casella di testo per adattarla al contenuto in Excel.
Ridimensiona automaticamente una casella di testo per adattarla al contenuto ridimensionando la forma per adattarla alla funzione di testo
Ridimensiona automaticamente tutte le caselle di testo per adattarle al contenuto in base al codice VBA
Ridimensiona automaticamente una casella di testo per adattarla al contenuto ridimensionando la forma per adattarla alla funzione di testo
È possibile modificare la proprietà della casella di testo come segue per ridimensionarla automaticamente con il testo immesso o eliminato.
1. Dopo aver inserito la casella di testo, fare clic con il pulsante destro del mouse sul bordo della casella di testo, quindi fare clic su Dimensioni e proprietà dal menu di scelta rapida. Vedi screenshot:
2. Puoi vedere un file Formato Forma riquadro viene visualizzato sul lato destro del foglio di lavoro, sotto il Dimensioni e proprietà scheda, controlla il file Ridimensiona la forma per adattarla al testo casella nella Casella di testo sezione, quindi chiudere il file Formato Forma Pannello. Vedi screenshot:
D'ora in poi, la casella di testo verrà ridimensionata per adattarsi automaticamente al contenuto.
Note:: Con questo metodo, se ci sono più caselle di testo da modificare, è necessario modificare le proprietà delle caselle di testo una per una.
Ridimensiona automaticamente tutte le caselle di testo per adattarle al contenuto in base al codice VBA
Per un foglio di lavoro che ha già più caselle di testo, il seguente codice VBA può aiutarti a ridimensionarle automaticamente per adattarle al contenuto contemporaneamente.
1. Stampa altro + F11 tasti contemporaneamente per aprire il file Microsoft Visual Basic, Applications Edition finestra.
2. Nel Microsoft Visual Basic, Applications Edition finestra, fare clic inserire > Moduli. Quindi copia e incolla il codice VBA sottostante nella finestra del modulo.
Codice VBA: ridimensiona automaticamente tutte le caselle di testo per adattarle al contenuto di un foglio di lavoro
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 Sub
3. premi il F5 chiave per eseguire il codice. Quindi puoi vedere tutte le caselle di testo nel foglio di lavoro corrente vengono ridimensionate automaticamente per adattarle al contenuto come mostrato nell'immagine sottostante.
E queste caselle di testo si ridimensioneranno automaticamente con il contenuto immesso o eliminato in futuro.
Articolo correlato:
I migliori strumenti per la produttività in ufficio
Potenzia le tue competenze di Excel con Kutools per Excel e sperimenta l'efficienza come mai prima d'ora. Kutools per Excel offre oltre 300 funzionalità avanzate per aumentare la produttività e risparmiare tempo. Fai clic qui per ottenere la funzionalità di cui hai più bisogno...
Office Tab porta l'interfaccia a schede in Office e semplifica notevolmente il tuo lavoro
- Abilita la modifica e la lettura a schede in Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Apri e crea più documenti in nuove schede della stessa finestra, piuttosto che in nuove finestre.
- Aumenta la produttività del 50% e riduce ogni giorno centinaia di clic del mouse!