通过

CustomXMLParts.PartBeforeDelete 事件 (Office)

  • 项目

该事件恰好发生在从 CustomXMLParts 集合中删除 CustomXMLPart 对象之前。

语法

表达式。PartBeforeDelete (OldPart)

表达 返回 CustomXMLParts 对象的表达式。

参数

名称 必需/可选 数据类型 说明
OldPart 必需 CustomXMLPart 将要删除的部件

示例

以下示例确认用户想要删除自定义 XML 部件，如果用户在对话框中选择 “是 ”，则删除该部件。

Sub CustomXMLParts_PartBeforeDelete(ByVal oldPart As CustomXMLPart) 
Dim result As Boolean 
 
result = MsgBox("Are you sure you want to delete the " & oldPart.ID & " part?", vbYesNo) 
 
If result Then 
   oldPart.Delete 
End If 
 
End Sub

另请参阅

支持和反馈

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