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.

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.

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

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

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

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

Ficará como na imagem abaixo:

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

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

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

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).

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

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

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

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.

Eis o formulário em Execução:

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.

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

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:

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.

5º - Na Janela de Código selecione o procedimento 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:

6º - Ainda na Janela de Código selecione o procedimento 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:

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.

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

'Fecha o formulário
Unload me

Deverá ficar como na imagem abaixo:

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.

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

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

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.

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.

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

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

Veja as imagens abaixo:

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.