Do Básico ao Avançado
Home | Tutoriais | Artigos |Contato

Home > VBA > Inserindo Texto com Efeitos


Texto com efeitos - VBA



Neste tutorial criaremos uma macro que adiciona ao documento um texto com efeitos.


Acesse o Editor do VBA através da Guia Desenvolvedor e no Grupo Código clique em Visual Basic ou simplesmente use o atalho ALT + F11.


No menu Inserir clique em Módulo.


Inserir Módulo

Na Janela de Código adicione o seguinte código.


SubTexto_com_efeito()
ActiveDocument.Shapes.AddTextEffect _
PresetTextEffect:=msoTextEffect11, _
Text:="SEUTEXTO AQUI", FontName:="Arial Black", _
FontSize:=36,FontBold:=msoTrue, _
FontItalic:=msoFalse, Left:=1, Top:=1, _
Anchor:=ActiveDocument.Paragraphs(1).Range
End Sub



Ficará como na imagem abaixo:


Código VBA


Feche o Editor do Visual Basic para voltar ao documento através do menu Arquivo >> Fechar e voltar para Microsoft Word.


Fechar e voltar para Microsoft Word


Agora vamos ver a macro em funcionamento.


Na Guia Desenvolvedor, no Grupo Código clique em Macros.


Macros

Selecione a macro Texto_com_efeito e clique no botão Executar.


Executar Macro


Eis o resultado:


Texto com efeitos


Considerações Finais:


Você pode alterar o tipo e tamanho da fonte ao seu gosto mudando os valores das propriedades FontName e FontSize.


É possível também alterar o posicionamento do texto dentro da página alterando os valores das propriedades Left:= e Top:=.


A partir deste pequeno exemplo você pode também criar um formulário para que o usuário digite o texto desejado.


Veja um exemplo:


Crie um formulário como na imagem abaixo.


Formulário


No evento clique do botão Adicionar insira o seguinte código:


Private Sub CommandButton1_Click()
Dim TextEfeito As String
TextEfeito = TextBox1.Text
ActiveDocument.Shapes.AddTextEffect _
PresetTextEffect:=msoTextEffect11, _
Text:=TextEfeito, FontName:="Arial Black", _
FontSize:=36, FontBold:=msoTrue, _
FontItalic:=msoFalse, Left:=1, Top:=1, _
Anchor:=ActiveDocument.Paragraphs(1).Range
End Sub



Ficará como na imagem abaixo:


Código VBA


Execute o formulário e digite um texto na Caixa de Texto (TextBox1).


Texto com Efeitos


Clique no botão Adicionar, feche o Formulário e veja o resultado.


Adicionar






Gostou? Se quiser mais eu tenho um e-Book sobre VBA que você pode se interessar.
Confira aqui






Conteúdo Correspondente:




eBook Word 2010 VBA

© 2013 Tutoriais Word - Todos os direitos reservados