InlineShapes.New (Word)

Fügt ein leeres Word-Bildobjekt mit einer Größe von einem Quadratzoll ein, das von einem Rahmen umgeben ist.

New (Range)

Range: Die Position der neuen Grafik.

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