插入一个空白的 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