ShapeRange.RelativeHorizontalSize (Word)

Retorna ou define uma constante WdRelativeHorizontalSize que representa o objeto ao qual um intervalo de formas é relativo. Leitura/gravação. Os valores de retorno possíveis são wdRelativeHorizontalSizeInnerMarginArea - A largura é relativa ao tamanho da margem interna; para o tamanho da margem esquerda de páginas ímpares e para o tamanho da margem direita de páginas pares, wdRelativeHorizontalSizeLeftMarginArea - A largura é relativa ao tamanho da margem esquerda, wdRelativeHorizontalSizeMargin - A largura é relativa ao espaço entre a margem esquerda e a margem direita, wdRelativeHorizontalSizeOuterMarginArea - A largura é relativa ao tamanho da margem externa; para o tamanho da margem direita de páginas ímpares e para o tamanho da margem esquerda de páginas pares, wdRelativeHorizontalSizePage - A largura é relativa à largura da página, wdRelativeHorizontalSizeRightMarginArea - A largura é relativa à largura da margem direita.

Use esta propriedade com a propriedade WidthRelative.

Dim sre As ShapeRange: Set sre =  
sre.RelativeHorizontalSize = wdRelativeHorizontalSizeInnerMarginArea