Application.TextChanged 事件 (Visio)

在文档中更改了形状的文本之后，发生此事件。

语法

表达式。TextChanged (Shape)

expression：表示 Application 对象的变量。

参数

名称	必需/可选	数据类型	说明
Shape	必需	[IVSHAPE]	文本已更改的形状。

备注

当形状的原始文本更改时（如 Microsoft Visio 为形状存储的字符更改时），将触发 TextChanged 事件。 如果形状的字符因为用户键入而更改，则在文本编辑会话终止之前，不会触发 TextChanged 事件。

向形状的文本中添加或从中删除域时，其原始文本将更改；因此会触发 TextChanged 事件。 但是，当域中的文本更改时，不会触发 TextChanged 事件。 例如，某一形状具有显示其宽度的文本域。 当形状的宽度更改时不会触发 TextChanged 事件，因为即使该形状的显示（扩展）文本确实发生更改，该形状的原始文本也不会发生更改。 对“Text Fields”内容中的某个单元格使用 CellChanged 事件可以检测文本域中的文本发生更改的情况。

若要访问形状的原始文本，请使用 Text 属性。 若要访问其中的文本域已扩展的形状的文本，请使用 Characters.Text 属性。 通过使用 Shape.Characters 对象，可以确定文本域在形状文本中的位置和属性。

在 Visio 5.0 和更早版本中，域的 Text 属性所报告的原始字符包括四个字符，第一个是转义字符。 从 Visio 2000 开始，原始文本流中就只会出现一个转义字符。

如果您使用 Microsoft Visual Basic 或 Visual Basic for Applications (VBA)，则此主题中的语法描述的是一种通用而有效的事件处理方法。

如果要创建自己的 Event 对象，请使用 Add 或 AddAdvise 方法。

若要创建可运行加载项的 Event 对象，请使用 Add 方法，因为它适用于 EventList 集合。

若要创建可接收通知的 Event 对象，请使用 AddAdvise 方法。

若要查找要创建的事件的事件代码，请参阅事件代码。

注意

使用 VBA WithEvents 变量来接收器 TextChanged 事件。

出于性能方面的考虑，Document 对象的事件集不包含 TextChanged 事件。 若要从 VBA 项目中的 Document 对象 (和 ThisDocument 对象) 接收 TextChanged 事件，必须使用 AddAdvise 方法。

支持和反馈

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