New 方法

       

插入一个空白的 Word 图片对象,该对象为边长一英寸的正方形,四周带有边框。该方法以 InlineShape 对象的形式返回新图形。

expression.New(Range)

expression   必需。该表达式返回一个 InlineShapes 对象。

Range   Range 对象,必需。新图形的位置。

示例

本示例在活动文档中插入一个新的空白图片,并为该图片设置带阴影的边框。

Dim ishapeNew As InlineShape

Set ishapeNew = _
    ActiveDocument.InlineShapes.New(Range:=Selection.Range)

ishapeNew.Borders.Shadow = True
ActiveDocument.ActiveWindow.View.ShowFieldCodes = False