通过

Event.SetFilterSRC 方法 (Visio)

指定单元格区域数组和 True 或 False 值，该值指示如何筛选每个单元格区域的事件。

语法

expression。 SetFilterSRC( _SRCStream()_ )

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

参数

名称 必需/可选 数据类型 说明
SRCStream () 必需 Integer 单元格区域数组以及 True 或 False 值，指定如何筛选每个区域的事件。

返回值

Nothing

注解

将使用 AddAdvise 方法创建的 Event 对象添加到源对象的 EventList 集合中时，默认行为是该事件的所有匹配项都被传递给事件接收器。 SetFilterSRC 方法提供根据单元格区域忽略选定事件的方式。

传递给 SetFilterSRC 的 SRCStream() 参数是采用以下方式定义的数组：

数组中的元素数是 7 的倍数：

  • 前三个元素描述区域的开始单元格的内容、行和单元格。

  • 接下来的三个元素描述区域的结束单元格的内容、行和单元格。

  • 最后一个元素包含 True 或 False 值，指示如何筛选单元格区域的事件（True 表示侦听单元格区域的事件；False 表示排除单元格区域的事件）。

若要使事件成功地通过单元格区域筛选，它必须满足以下条件：

  • 必须是有效的内容、行、单元格引用。

  • 如果所有的筛选器都为 True，则事件必须至少与一个筛选器匹配。

  • 如果所有的筛选器都为 False，则事件一定与任何筛选器都不匹配。

  • 如果筛选器为 True 和 False 的混合，则事件必须至少与一个 True 筛选器匹配，但一定不能与任何 False 筛选器匹配。

如果数组中没有定义任何 True 区域，则将事件视为 True。

例如，如果要侦听“Shape Data”内容中的第二行的“值”单元格中的任何更改，则请使用以下代码：

 
 Dim aFilterSRC(1 To (1 * 7)) As Integer 
 aFilterSRC(1) = visSectionProp 
 aFilterSRC(2) = visRowProp + 1 
 aFilterSRC(3) = visCustPropsValue 
 aFilterSRC(4) = visSectionProp 
 aFilterSRC(5) = visRowProp + 1 
 aFilterSRC(6) = visCustPropsValue 
 aFilterSRC(7) = True

支持和反馈

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