InlineShapes.New (Word)

Inserta un objeto de imagen de Word, vacío, constituido por un cuadrado de una pulgada (2,54 cm) de lado rodeado por un borde.

New (Range)

Range: Posición del nuevo gráfico.

Dim ishapeNew As InlineShape 
 
Set ishapeNew = _ 
 ActiveDocument.InlineShapes.New(Range:=Selection.Range) 
 
ishapeNew.Borders.Shadow = True 
ActiveDocument.ActiveWindow.View.ShowFieldCodes = False