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

Política de Privacidade  |   © 2013 Tutoriais Word - Todos os direitos reservados