Ir para o conteúdo principal
Note: The other languages of the website are Google-translated. Back to English

Como clicar para ampliar ou expandir a imagem em um documento do Word?

Este artigo fala sobre como ampliar ou expandir imagens em um documento do Word com um clique do mouse.

Clique para ampliar ou expandir a imagem com o código VBA

Redimensionar imagens com Kutools for Word


Clique para ampliar ou expandir a imagem com o código VBA

O seguinte código VBA pode ajudar a ampliar imagens em um documento do Word com um clique. Faça o seguinte.

1. No documento que contém imagens que você irá ampliar com um clique, pressione o botão outro + F11 chaves para abrir o Microsoft Visual Basic para Aplicações janela.

2. No Microsoft Visual Basic para Aplicações janela, clique em inserção > Módulo de Classe. Em seguida, copie o código VBA abaixo para a janela Class.

Código VBA 1: Clique para ampliar as imagens

Public WithEvents GApp As Word.Application
'Updated by ExtendOffice 20181129
Private Sub GApp_WindowSelectionChange(ByVal Sel As Selection)
    Dim xShape As InlineShape
    On Error Resume Next
    Set xShape = Sel.InlineShapes(1)
    xShape.Height = 200
    xShape.Width = 200
End Sub

Anote os: No código, o número 200 é a altura e largura especificadas das imagens ampliadas. Você pode alterar a altura e a largura conforme necessário.

3. Clique inserção > Módulo, copie o código abaixo na janela Módulo.

Código VBA 2: Clique para ampliar as imagens

Dim cls As New Class1
'Updated by ExtendOffice 20181129
Sub register_Event_Handler()
    Set cls.GApp = Word.Application
End Sub

4. aperte o F5 chave para executar o código e fechar o Microsoft Visual Basic para Aplicações janela.

Agora, ao clicar em uma imagem neste arquivo, a imagem será ampliada para o tamanho específico que você deseja.


Redimensionar imagens com Kutools for Word

A Redimensionar imagens utilidade de Kutools for Word pode ajudá-lo a redimensionar todas as imagens em uma porcentagem especificada ou imagem selecionada. Por favor, tente.

Kutools for Word : Com mais de 100 suplementos úteis do Word, livre para tentar sem limitação em 60 dias.

Clique Kutools MAIS > Redimensionar, selecione uma porcentagem na lista suspensa. Veja a imagem:

Em seguida, todas as imagens no documento atual são redimensionadas com base nesta porcentagem específica.

Para redimensionar todas as imagens com base no tamanho da imagem selecionada, você precisa selecionar a imagem primeiro e depois clicar Kutools MAIS > Redimensionar > Redimensionar imagens com seleção. Veja a imagem:

Em seguida, todas as imagens no documento atual são redimensionadas com base na imagem selecionada.

Se você deseja ter um teste gratuito deste utilitário, vá para baixe gratuitamente o software primeiro e, em seguida, aplique a operação de acordo com as etapas acima.


Office Tab - Navegação com guias, edição e gerenciamento de vários documentos no Word:

Office Tab traz a interface com guias como visto em navegadores como Google Chrome, novas versões do Internet Explorer e Firefox para o Microsoft Word. Isto precisarão seja uma ferramenta que economiza tempo e é insubstituível em seu trabalho. Veja a demonstração abaixo:

Clique para teste gratuito de Office Tab!


Ferramentas de produtividade de palavras recomendadas

 

Kutools For Word - Mais de 100 recursos avançados para o Word, economize 50% do seu tempo

  • Operações complicadas e repetidas podem ser executadas com processamento único em segundos.
  • Insira várias imagens em pastas em um documento do Word de uma vez.
  • Mescle e combine vários arquivos do Word em pastas em um na ordem desejada.
  • Divida o documento atual em documentos separados de acordo com o título, quebra de seção ou outros critérios.
  • Converta arquivos entre Doc e Docx, Docx e PDF, coleção de ferramentas para conversões e seleção comuns, e assim por diante ...
Comentários (4)
Ainda não há classificações. Seja o primeiro a avaliar!
Este comentário foi feito pelo moderador no site
Olá Obrigado pela dica. Estou seguindo as instruções de como ampliar usando Macro, porém estou recebendo uma mensagem de erro "O tipo que foi definido pelo usuário não foi definido" Alguma idéia?
Este comentário foi feito pelo moderador no site
Hi

A macro não funciona como deveria. No MS Office 365, o redimensionamento aparece apenas por alguns milissegundos.
Este comentário foi feito pelo moderador no site
Funciona em um arquivo do mundo antigo, salvo como .doc, mas aberto no MS 365.
Este comentário foi feito pelo moderador no site
OK... depois de clicar para expandir, como você faz para restaurar o tamanho padrão ou clicar no tamanho padrão?
Não há comentários postados aqui ainda