Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

Moldar texto

64 views
Skip to first unread message

José Luís

unread,
Mar 30, 2006, 9:35:01 AM3/30/06
to
Existe algum atalho no teclado para moldar o texto à célula?

JRod

unread,
Mar 31, 2006, 1:19:50 PM3/31/06
to
Boas, Zé Luís
Tenta:
format|cells|alignment tab|
e marca "shrink to fit"

Se experimentares escrever texto na célula assim formatada, vais ver que a
letra aumenta ou diminui para se adequar ao texto inserido.


--
JRod
Microsoft [MVP] - Excel
http://EXCELer.blogspot.com

______________________________________
"José Luís" <Jos...@discussions.microsoft.com> escreveu na mensagem
news:9B59EBD2-8D18-4FAE...@microsoft.com...

José Luís

unread,
Apr 12, 2006, 8:07:07 AM4/12/06
to
Isso eu sei fazer, a minha pergunta é no sentido de fazer isso
automáticamente, estilo: CRTL+Tecla sem ter que ir a
Formatar/Células/Alinhamento


"JRod" escreveu:

JRod

unread,
Apr 12, 2006, 9:23:26 AM4/12/06
to
Boas, Zé Luís

podes criar uma macro que efectue o que eu escrevi no post anterior e depois
associá-la a um shortcut, tipo Ctrl+Shift+T.

Exemplo:

Sub ShrinkToFit()

With Selection
.HorizontalAlignment = xlGeneral
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = True
.ReadingOrder = xlContext
.MergeCells = False
End With

End Sub

Depois de criares a macro, podes associá-la ao shortcut, exemplo:

Tools|Macro|Options e introduzes a letra pretendida. Dás OK e já está.

Boa sorte.

--
JRod
Microsoft [MVP] - Excel
http://EXCELer.blogspot.com

______________________________________
"José Luís" <Jos...@discussions.microsoft.com> escreveu na mensagem

news:6220C49E-D9EF-4465...@microsoft.com...

JRod

unread,
Apr 12, 2006, 11:53:33 AM4/12/06
to
Zé Luís,

claro que ainda tens outra hipótese, utilizando VBA :

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.OnKey "{F9}"
End Sub

Private Sub Workbook_Open()
Application.OnKey "{F9}", "ShrinkToFit"
End Sub

Neste caso, o primeiro código, efectua um reset à tecla de função F9 e o
segundo, atribui-lhe, enquanto o workbook se encontra aberto, a macro
"ShrinkToFit".

--
JRod
Microsoft [MVP] - Excel
http://EXCELer.blogspot.com

______________________________________
"JRod" <jorg...@sapo.pt> escreveu na mensagem
news:%231O0JRj...@TK2MSFTNGP04.phx.gbl...

JRod

unread,
Apr 12, 2006, 12:30:22 PM4/12/06
to
Já agora,
se pretenderes mesmo utilizar "Ctrl + t" para executares a macro:

Private Sub Workbook_Open()

Application.OnKey "^t", "ShrinkToFit"

End Sub


--
JRod
Microsoft [MVP] - Excel
http://EXCELer.blogspot.com

______________________________________
"JRod" <jorg...@sapo.pt> escreveu na mensagem

news:esk7BlkX...@TK2MSFTNGP05.phx.gbl...

JRod

unread,
Apr 12, 2006, 12:36:13 PM4/12/06
to
Zé Luís,
Ainda tens a hipótese de associares CTRL + t:

Private Sub Workbook_Open()
Application.OnKey "^t", "ShrinkToFit"
End Sub

--
JRod
Microsoft [MVP] - Excel
http://EXCELer.blogspot.com

______________________________________


"JRod" <jorg...@sapo.pt> escreveu na mensagem
news:%231O0JRj...@TK2MSFTNGP04.phx.gbl...

0 new messages