当前位置：文江博客话题详情

使用 VBA 单击 Visio 中的对象时如何显示消息？

发布于 2024-08-29 13:43:19 字数 100 浏览 4 评论 0原文

我对此完全陌生，所以我想从简单的事情开始。

我的 Visio 文档中只有一个对象，并且我希望在单击该对象时显示 Hello World! 消息。

原文

分享到QQ

分享到微博

如果你对这篇内容有疑问，欢迎到本站社区发帖提问参与讨论，获取更多帮助，或者扫码二维码加入 Web 技术交流群。

发布评论

需要登录才能够评论，你可以免费注册一个本站的账号。

沒落の蓅哖 2024-09-05 13:43:19

我使用 Visio.Application 类上的 SelectionAdded 事件完成了类似的操作。我检查，如果 Selection.count 为 1，那么从逻辑上讲，该形状刚刚被单击，如果形状类型与您想要的匹配，则显示您的消息：

在 ThisDocument 模块中（实际上是任何对象模块）：

Private WithEvents VsoApp As Visio.Application
Private Sub VsoApp_SelectionAdded(ByVal Selection As IVSelection)
    If Selection.Count = 1 Then
        MsgBox "Hello World"
    End If
End Sub

希望有帮助。

-乔恩

I've done something similar to this using the SelectionAdded event on the Visio.Application class. I check, if the selection.count is 1, then logically that shape has just been clicked, and if the shape type matches what you want, then display your message:

In the ThisDocument module (any object module, really):

Private WithEvents VsoApp As Visio.Application
Private Sub VsoApp_SelectionAdded(ByVal Selection As IVSelection)
    If Selection.Count = 1 Then
        MsgBox "Hello World"
    End If
End Sub

Hope that helps.

-Jon

回复收藏 0 原文

~没有更多了~