Shape.Model3D (Word)

Devuelve un objeto Model3DFormat que contiene propiedades Model3D.

For Each s In ActiveDocument.Shapes
 If s.Type = mso3DModel Then s.Model3D.AutoFit = True
Next