通过

GraphicItem.Delete 方法 (Visio)

  • 项目

从 visTypeDataGraphic 类型的 Master 对象的 GraphicItems 集合中删除 GraphicItem 对象。

注意

此 Visio 对象或成员仅供 Visio Professional 2013 的授权用户使用。

语法

表达式。删除

表达 一个代表 GraphicItem 对象的变量。

返回值

Nothing

注解

在删除图形项之前，必须使用 Master.Open 方法打开以编辑图形项目所属 的 GraphicItems 集合的数据图形主控形状的副本。 删除了该图形项并进行了所需的任何其他编辑之后，使用 Master.Close 方法提交所做的更改。

示例

下面的 Microsoft Visual Basic for Applications (VBA) 宏显示了如何使用 Delete 方法从 Master 对象的 GraphicItems 集合中删除现有的图形项。 这个宏删除最近添加到集合中的图形项，并将删除前后该主控形状副本的集合中的图形项个数输出到“即时”窗口。 这个宏在关闭主控形状副本之后，还会输出该主控形状自身的集合中的图形项个数，以显示对副本执行的操作已提交给主控形状。

这个宏假定您的项目中存在数据图形主控形状，在该主控形状的 GraphicItems 集合中至少有一个成员。 在 Visio 用户界面“数据图形”任务窗格中，将鼠标移到现有数据图形主控形状上，就可以确定该主控形状的名称。 以下示例中主控形状的名称是“Data Graphic”。

Public Sub Delete_Example() 
 
    Dim vsoMaster As Visio.Master 
    Dim vsoMasterCopy As Visio.Master 
    Dim intGraphicItemCount As Integer 
 
    Set vsoMaster = ActiveDocument.Masters("Data Graphic") 
    Set vsoMasterCopy = vsoMaster.Open 
     
    intGraphicItemCount = vsoMasterCopy.GraphicItems.Count 
     
    Debug.Print "Before delete", intGraphicItemCount 
    vsoMasterCopy.GraphicItems(intGraphicItemCount).Delete 
    Debug.Print "After delete", vsoMasterCopy.GraphicItems.Count 
    vsoMasterCopy.Close 
    Debug.Print "After close", vsoMaster.GraphicItems.Count 
     
End Sub

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。