none
Ajustar várias imagens num mesmo documento RRS feed

  • Pergunta

  • Olá a todos, poderiam por favor me ajudar?

    Tenho um documento de várias páginas e em muitas dessas páginas tem imagens das quais pretendo padronizar o TAMANHO (largura e altura) e a POSIÇÃO na Parte Intermediária Direita da página.

    Cada imagem deve ficar isolada por página então gostaria também de colocar uma Quebra de Página antes de cada imagem.

    Em outro tópico mais antigo consegui pegar este algoritmo e o ajustei para redimensionar as imagens para 323x419.

    Teria alguma outra propriedade para ancorar a posição das imagens na Parte Intermediária Direita das páginas?

    Por último gostaria também de introduzir uma Quebra de Página antes de cada imagem, porém se não for possível posso fazer essa parte no braço mesmo.

    Sub pMain()
      Dim oInShape As Word.InlineShape
      
      For Each oInShape In ActiveDocument.InlineShapes
        oInShape.LockAspectRatio = msoFalse
        
        'Ajusta largura da imagem'
        oInShape.Width = 323
      
        'Ajusta altura da imagem'
        oInShape.Height = 419
        
        oInShape.LockAspectRatio = msoTrue
      Next oInShape
    End Sub



    sábado, 27 de maio de 2017 06:30