Legend.Position (Word)

Retorna ou define a posição da legenda no gráfico. Leitura/gravação XlLegendPosition. Os valores de retorno possíveis são xlLegendPositionBottom - Abaixo do gráfico, xlLegendPositionCorner - No canto direito superior da borda do gráfico, xlLegendPositionCustom - Uma posição personalizada, xlLegendPositionLeft - À esquerda do gráfico, xlLegendPositionRight - À direita do gráfico, xlLegendPositionTop - Acima do gráfico.

With ActiveDocument.InlineShapes(1) 
 If .HasChart Then 
 .Chart.Legend.Position = xlLegendPositionBottom 
 End If 
End With