Legend.Position (Word)

Devuelve o establece la posición de la leyenda en el gráfico. Posibles valores de retorno son xlLegendPositionBottom - Debajo del gráfico, xlLegendPositionCorner - En la esquina superior derecha del borde del gráfico, xlLegendPositionCustom - En una posición personalizada, xlLegendPositionLeft - En la parte izquierda del gráfico, xlLegendPositionRight - En la parte derecha del gráfico, xlLegendPositionTop - Arriba del gráfico.

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