ShapeRange.RelativeVerticalSize (Word)

Retorna ou define uma constante WdRelativeVerticalSize que representa o objeto ao qual um intervalo de formas é relativo. Leitura/gravação. Os valores de retorno possíveis são wdRelativeVerticalSizeBottomMarginArea - A altura é relativa ao tamanho da margem inferior, wdRelativeVerticalSizeInnerMarginArea - A altura é relativa ao tamanho da margem interna; para o tamanho da margem superior de páginas ímpares e para o tamanho da margem inferior de páginas pares, wdRelativeVerticalSizeMargin - A altura é relativa ao espaço entre a margem esquerda e a margem direita, wdRelativeVerticalSizeOuterMarginArea - A altura é relativa ao tamanho da margem externa; para o tamanho da margem inferior de páginas ímpares e para o tamanho da margem superior de páginas pares, wdRelativeVerticalSizePage - A altura é relativa à altura da página, wdRelativeVerticalSizeTopMarginArea - A altura é relativa ao tamanho da margem superior.

Use esta propriedade com a propriedade HeightRelative.

Dim sre As ShapeRange: Set sre =  
sre.RelativeVerticalSize = wdRelativeVerticalSizeBottomMarginArea