Selection.ShapeRange (Word)

Retorna uma coleção ShapeRange que representa todos os objetos Shape da seleção. Somente leitura.

O intervalo de formas pode conter desenhos, formas, figuras, objetos OLE, controles ActiveX, objetos de texto e textos explicativos.

Selection.ShapeRange.Shadow.Type = msoShadow6