Shape.Model3D (Word)

Renvoie un objet Model3DFormat qui contient les propriétés Model3D.

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