InlineShapes.New (Word)

Insere um objeto de figura do Word com o formato de um quadrado vazio de 1 polegada 2,54 centímetros com uma borda. Esse método retorna o novo elemento gráfico como um objeto InlineShape.

New (Range)

Range: A posição do novo elemento gráfico.

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