Shape.Model3D (Word)

Retorna um objeto Model3DFormat que contém as propriedades Model3D. Somente leitura.

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