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

Como aumentar o tamanho de todas as imagens no Word



Neste tutorial,mostrarei Como aumentar o tamanho de todas as imagens do Word fazendo uso da linguagem VBA do Word, criaremos passo a passo uma pequena aplicação que redimensionará ao mesmo tempo todas as imagens do documento ativo.


Estando com o Word aberto acesse o Editor do Visual Basic através da Guia Desenvolvedor e no Grupo Códigoclique em Visual Basic ou simplesmente através do atalho ALT + F11.


Guia Desenvolvedor


OBS: Se a Guia Desenvolvedor não estiver visível na Faixa de opções você deve habilitá-lo, portanto, recomento que veja o tutorial Como exibir a Guia Desenvolvedor no Word 2007 ou o tutorial Como habilitar a Guia Desenvolvedor no Word 2010.



Criando a Interface


No Editor do Visual Basic criaremos primeiramente o formulário que será a interface da nossa aplicação, portanto, siga os seguintes passos:


1º - Clique no Menu Inserir e depois em UserForm, como mostra a imagem abaixo.


Inserir UserForm


Será adicionado um formulário (UserForm1) como o da imagem abaixo:


UserForm


2º - Na Janela de Propriedades altere as seguintes propriedades do formulário.


Name: frmRedImagens
Caption: Redimensionar Imagens
Height: 138
Width: 216,75


Editor do Visual Basic


3º - Na Caixa de Ferramentas clique na Ferramenta Quadro (Frame1) e em seguida arraste e solte sobre o formulário para adicioná-lo.


Caixa de Ferramentas


Ficará como na imagem abaixo:


Inserir Quadro


4º - Na Janela de Propriedades altere as seguintes propriedades do Quadro (Frame1) que você acabou de adicionar ao formulário.


Caption: Redimensionar todas Imagens
Font: Tahoma, Negrito, Tam. 9
Height: 60
Left: 12
Top: 12
Width: 186


Editor do Visual Basic


5º - Agora, novamente na Caixa de Ferramentas clique no controle Caixa de Texto (TextBox1) e adicione esta Caixa de Texto dentro do Quadro (Frame1).


Caixa de Ferramentas


6º - Selecione a Caixa de Texto que você acabou de inserir e na Janela de Propriedades altere as seguintes propriedades:


Font:Tahoma, Negrito, Tam. 12
Height: 24
Left: 12
SpecialEffect: 3-fmSpecialEffectEtched
TextAlign: 2-fmTextAlignCenter
Top: 18
Width: 60


Caixa de Texto


7º - Na Caixa de Ferramentas selecione a ferramenta Botão de Rotação (SpinButton1) e posicione ao lado da Caixa de Texto (TextBox1) dentro do Quadro (Frame1).


Caixa de Ferramentas


8º - Selecione o Botão de Rotação que você acabou de inserir e na Janela de Propriedades altere as seguintes propriedades desta ferramenta:


Height: 24
Left: 78
Orientation: 0 - fmOrientationVertical
Top: 18
Width: 36


Botão de Rotação


9º - Na Caixa de Ferramentas selecione a ferramenta Botão de Comando (CommandButton1) e posicione abaixo do Quadro (Frame1).


Controles


10º - Selecione o Botão de Comando que você acabou de inserir e na Janela de Propriedades altere as seguintes propriedades deste botão:


Caption: FECHAR
Height: 24
Left: 108
Top: 84
Width: 66


Botão de Comando


Com isso concluímos a criação do formulário e pra ver como ele ficará em tempo de execução clique em Executar ou aperte a tecla F5.


Executar Formulário


Eis o formulário em Execução:


Formulário






Criando o Código


Agora que a interface já está pronta vamos criar o código que dará funcionalidade ao formulário, portanto siga os seguintes passos:


1º - Para abrir a Janela de Código no módulo do formulário, selecione o Formulário (frmRedImagens) e no menu Exibir clique em Código ou aperte a tecla F7 ou ainda, se preferir, dê um duplo clique sobre o formulário.


Exibir Código


2º - No Módulo do Formulário selecione o evento Initialize, como mostra a imagem abaixo.


Evento Initialize


3º - Dentro do procedimento Initialize adicione o seguinte Código:


Dim img As InlineShape
'Define o valor incial da Caixa de Texto (TextBox1)
TextBox1.Text= 10


Deverá ficar como na imagem abaixo:


Código VBA


Este código será executado assim que o formulário for iniciado.


Declaramos a variável img como InlineShape


Uma coleção de objetos InlineShape representam todas as formas embutidas em um documento, intervalo ou seleção.


A Caixa de Texto virá previamente preenchida com o valor 10.



4º - Selecione o Botão de Rotação (SpinButton1) e dê um duplo clique sobre ele ou aperte a tecla F7 para abrir a janela de Código.


SpinButton


5º - Na Janela de Código selecione o procedimento SpinUp.


Evento SpinUp


Dentro do evento SpinUp adicone o código a seguir:


'Declara a Variável
Dim vImg As String

'A variável vImg é igual o valor da Caixa de Texto
vImg = TextBox1.Text

'Cada vez que o botão de rotação for pressionado pra cima
'ao valor da Caixa de Texto será somado mais 10
TextBox1.Text = TextBox1.Text + 10

'Cada imagem do documento aumentará simultaneamente de acordo com o valor da Caixa de Texto
For Each img In ActiveDocument.InlineShapes
img.Width= vImg
Next img


Ficará como na imagem abaixo:


Código VBA


6º - Ainda na Janela de Código selecione o procedimento SpinDown.


Evento SpinDown


Dentro do evento SpinDown adicione o seguinte código


'Declara a variável
Dim vImg As String

'A variável vImg é igual o valor da Caixa de Texto
vImg = TextBox1.Text

'Cada vez que o botão de rotação for pressionado pra baixo
'ao valor da Caixa de Texto será diminuído de 10 em 10

TextBox1.Text = TextBox1.Text - 10
For Each img In ActiveDocument.InlineShapes
img.Width = vImg
Next img

'Se o valor da Caixa de Texto for menor que 10
'será exibida uma mensagem ao usuário
'em seguida sai do procedimento

If TextBox1.Text < 10 Then
MsgBox "valor mínimo atingido", vbOKOnly, "Redimensionar Imagens"
TextBox1.Text = 10
Exit Sub
End If



Ficará como na imagem abaixo:


VBA Código


7º - Selecione o Botão de Comando (CommandButton1) e dê um duplo clique sobre ele ou aperte a tecla F7 para abrir a janela de Código.


CommandButton1


Dentro do evento Click deste botão adicione o código abaixo:


'Fecha o formulário
Unload me


Deverá ficar como na imagem abaixo:


VBA Código


Com isso finalizamos o código que permitirá que nosso formulário realize a tarefa de aumentar ou diminuir simultaneamente todas as imagens do documento.



A partir de agora vamos criar uma macro que executará o formulário toda vez que o usuário quiser aumentar ou diminuir as imagens.


Para criar a macro clique no Menu Inserir e depois em Módulo.


Inserir Módulo


Em seguida na Janela de Código adicione o código abaixo:


Sub abreformRedImagens()
'Abre o formulário (frmRedImagens)
frmRedImagens.Show Modal
End Sub


VBA


Pronto agora que a macro responsável por acionar o formulário já está criado, feche o Editor do Visual Basic para voltar ao ambiente de trabalho do Microsoft Word.


Fechar e Voltar para o Word


Estando novamente no Word vamos fazer um teste para ver se nossa aplicação está funcionando perfeitamente.


Clique na Guia Desenvolvedor e no Grupo Código clique em Macros.


Imagens


Na Caixa de Diálogo Macro selecione a macro abreformRedImagens e clique no botão Executar.


Macro


O formulário será exibido para que o usuário possa redimensionar as imagens do documento.


Veja as imagens abaixo:


Aumentar imagens


Redimensionar imagens


Consideração Final: Para automatizar ainda mais você pode adicionar a macro abreformRedImagens à Barra de Ferramentas de Acesso Rápido no Word 2007 ou caso esteja usando o Word 2010, você pode adicionar a macro em uma nova Guia. Veja os tutoriais:

Word 2007: Adicionar um comando a Barra de Ferramentas de Acesso Rápido.

Word 2010: Como adicionar uma nova Guia no Word 2010.










Conteúdo Correspondente:




eBook Word 2010 VBA

© 2013 Tutoriais Word - Todos os direitos reservados