如何使用TextChanged事件在VBA的Visio?(How do I use TextChan

2019-10-29 20:51发布

这是有关这个问题如何编程/自动,我与编辑完成后更改文本格式的一个Visio形状的文本?

还有我试图使用,将在形状的文本编辑对于一些原因,因为有描述,其中我不能隔离的代码被执行无休止某些情况下,可以执行一些代码。 这可能是因为脚本调用自身的循环。 代码假定每形状的编辑文本时将被执行但代码本身改变文本的颜色。 我想这只能算作一个新的文本改变等等。

我正在考虑使用名为框TextChanged事件。 与文档根据当用户完成编辑本应执行的代码http://msdn.microsoft.com/en-us/library/office/ff768749.aspx

我找不到使用VBA此类事件的例子,这里就是我需要提前统一你的帮助,谢谢

这是我测试:我用CallThis('ThisDocument.warning“),其形状的TheText‘事件来从调用下面的过程’(通过在ShapeSheet提供)

子警告(oShape作为Visio.Shape)MSGBOX(“文本编辑”)结束子

这得到像三次执行,如果我出演编辑形状的文本,我按空格键(添加到现有文本的空间)

Answer 1:

确定这里是你怎么做:

打开代码编辑器在项目资源管理器中选择“的ThisDocument”下一步在ObjectWindow选择文档则在该方法下拉框中选择ShapeExitedTextEdit你会看到类似下面的骨架程序

私人小组Document_ShapeExitedTextEdit(BYVAL oShape作为IVShape)

结束小组

还有就是你添加要完成,如果在编辑时要每次执行的代码



文章来源: How do I use TextChanged event in VBA visio?