Chart.AutoScaling (Word)

True si Microsoft Word ajusta el tamaño de un gráfico 3D para que sea más parecido al gráfico 2D equivalente.

With ActiveDocument.InlineShapes(1) 
 If .HasChart Then 
 .Chart.RightAngleAxes = True 
 .Chart.AutoScaling = True 
 End If 
End With