Redimensionamento automático de imagens

Question

Redimensionamento automático de imagens

Anônima

Estou tentando redimensionar várias imagens automaticamente, mas não consigo. Alguém sugeriu que eu usasse o Visual Basic e criasse um módulo, algo assim. Segui os passos indicados, mas dá erro de instrução na hora de executar. Alguém pode me dizer o que está errado com essa sintaxe? Vejam só:

Sub RedimensionarImagens() Dim ishp As InlineShape For Each ishp In ActiveDocument.InlineShapes 'Para alterar Largura da Imagem: ishp.Width = 113 'Para alterar Altura da Imagem: ishp.Height = 151 Next ishp EndSub

É isso que estou tentando fazer.

Obrigado

Pergunta bloqueada. Essa pergunta foi migrada da Comunidade de Suporte da Microsoft. É possível votar se é útil, mas não é possível adicionar comentários ou respostas ou seguir a pergunta.

0 comentários

Resposta aceita pelo autor da pergunta

0 respostas adicionais

Answer 1

Olá Everton Henriquedos Santos Silva, como vai?

Obrigado por entrar em contato com a Comunidade Microsoft.

Entendo a sua dúvida e para uma resposta mais assertiva, utilize o Fórum Microsoft TechNet que é dedicado exclusivamente à Desenvolvedores e Profissionais de Ti.

Fórum Microsoft TechNet.

Caso não encontre as informações que lhe auxiliem nesta questão, clique no Botão Fazer uma Pergunta para fazer uma nova postagem.

Espero ter ajudar.

Se as informações não forem suficientes ou não for essa a sua dúvida, por favor, poste novamente com as informações solicitadas e mais detalhes.

Se a resposta ajudou de alguma forma, marque-a como resposta, e clique em resolvi meu problema.

Assim ajudará outras pessoas que possuir a mesma dúvida.

Até mais!