Como definir a largura de imagem padrão em um controle de conteúdo de imagem?

Question

Eu uso os controles de conteúdo do Word 2013 que são mapeados para uma fonte de dados XML. Alguns deles estão dentro de seções de repetição mapeadas para elementos XML.

O problema está nos controles de conteúdo "Imagem". Quando mudo para o 'Modo de design' e depois volto ao normal, todos os controles de conteúdo de imagem estão alterando os tamanhos de suas imagens para algo como 5 cm. Depois disso, preciso definir a largura de todas as fotos. Mas essas configurações estão sendo redefinidas após a outra entrada no 'modo de design'.

O que eu quero é que todas as imagens nesses controles de conteúdo tenham largura = 100% da largura do texto da página. Como posso fazer isso?

Eu tentei anexar imagens, mas

    

Answer 1

Eu criei essa macro que, no texto selecionado, define todas as larguras de imagens em linha para algum valor predefinido (16,5 cm no meu caso). Parece mais uma solução alternativa do que uma solução real, pois cada vez que você inserir o 'Modo de design', selecionarei todas as imagens (outro conteúdo também pode ser selecionado, permanece inalterado) nas seções de repetição e execute essa macro. De qualquer forma, é melhor que nada.

  Sub ResizeImage()
    Dim targetWidth As Single
    Dim oILShp As InlineShape

    targetWidth = 16.5

    For Each oILShp In Selection.InlineShapes
        With oILShp
            .Height = AspectHt(.Width, .Height, CentimetersToPoints(targetWidth))
            .Width = CentimetersToPoints(targetWidth)
        End With
    Next
End Sub
Private Function AspectHt(ByVal origWd As Single, ByVal origHt As Single, ByVal newWd As Single) As Single
    If origWd <> 0 Then
        AspectHt = origHt / origWd * newWd
    Else
        AspectHt = 0
    End If
End Function