Word VBA教程:Ungroup方法

取消指定图形或者图形区域中组合图形的组合。取消指定图形或图形区域中图片和 OLE对象的组合。将组合取消后的图形以单个ShapeRange对象的形式返回。

expression.Ungroup

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

说明

由于将组合图形作为单一的对象对待,因而组合图形或者取消图形的组合将改变的 Shapes集合中的项数,进而影响与各项对应的索引序号。

VBA示例

本示例将取消所有组合图形的组合,并取消myDocument 中所有图片和 OLE对象的组合。


Set myDocument = ActiveDocument
For Each s In myDocument.Shapes
    s.Ungroup
Next

本示例将取消myDocument 中所有组合图形的组合,但并不取消文档中图片和 OLE对象的组合。


Set myDocument = ActiveDocument
For Each s In myDocument.Shapes
    If s.Type = msoGroup Then s.Ungroup
Next

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号