Homenagem Ana Picasso

[scuz]

Boas tardes!

Estou plenamente saturado de ajustar gráficos no word, estou a escrever um trabalho e já vou no 27º gráfico e tive que os ajeitar todos manualmente.

A minha dúvida é se existe alguma maneira de formatar todos os gráficos e em simultâneo para possuírem um tamanho que eu defina?

Cumprimentos

[dreamer]

Calculo que tenhas imagens e/ou tabelas espalhadas pelo mesmo documento.

Podias construir uma macro que fazia resize a todos gráficos, o problema é que se existir imagens e outros elementos semelhantes acabam todos por ser formatados da mesma maneira.

Segunda hipótese, criar uma macro e usá-la uma vez para cada gráfico.

[scuz]

Creio que a segunda hipótese será mais viável, porém continuo com o mesmo problema. Não sei trabalhar com macros, vou tentar procurar na net a ver se existe alguma coisa disponível. Obrigado pela ideia.

[dreamer]

Nunca mais reparei neste tópico, se ainda precisares arranjo-te o código da macro.

[scuz]

Arranjei um código para a macro, mas aquilo faz resize a tudo o que são objectos no word, não é totalmente útil. O que tens faz resize só aos gráficos?

[dreamer]

Só aos gráficos não consigo, para o VBA os gráficos, imagens e todos os outros objectos semelhantes são o mesmo, não os destinge.

A única solução nesse caso é criares uma macro que seja accionada via atalho (por exemplo CTRL+E) e cada vez que seleccionares no word um gráfico activas a macro.

______________________________________

Sub Macro1()

Selection.InlineShapes(1).Height = 170.1

Selection.InlineShapes(1).Width = 255.1

End Sub

______________________________________

Os valores que estão ali tu é que escolhes é claro. (Nota: 1cm = 28,38 points aprox)

[scuz]

Tentei com o teu código mas deu um erro que "puxou" o debuger... =\

O código que tenho é este, tirado de um pesquisa do google...

Public Sub ResizePics()

Dim oDoc As Document, oShape As InlineShape

Set oDoc = Application.ActiveDocument

For Each oShape In oDoc.InlineShapes

oShape.Height = 220

oShape.Width = 270

Next oShape

Set oDoc = Nothing

End Sub