Selection.ShapeRange (Word)
Devuelve una colección ShapeRange que representa todos los objetos Shape de la selección.
El intervalo de formas puede incluir dibujos, formas, imágenes, objetos OLE, controles ActiveX, objetos de texto y llamadas.
Selection.ShapeRange.Shadow.Type = msoShadow6