Word VBA教程:New方法

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

expression.New(Range)

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

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

VBA示例

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


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

Word VBA教程

Word VBA参考教程:目录1 Word VBA参考教程:目录2
Word VBA参考教程:目录3 Word VBA参考教程:目录4
Word VBA参考教程:目录5 Word VBA参考教程:目录6
Word VBA参考教程:目录7 Word VBA参考教程:目录8
Word VBA参考教程:目录9 Word VBA参考教程:目录10
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号