Question

在excel方面，我对VBA非常熟练，但在Visio方面则不是很多。我想做的很简单。如果我有一个指向对象的超链接，我希望该对象用蓝色填充。在excel中，我可以做到这一点没问题。在Visio中，没有那么多。流程图很简单，我会说20个对象左右，而不是所有对象都会被超链接。

Answer 1

以下是一些VBA伪代码，我可以在上面的评论中尝试：

Dim Sh As Visio.Shape
Dim Link As Hyperlink

For Each Sh In Visio.ActivePage.Shapes  '<~ loop through the shapes collection
    For Each Link In Sh.Hyperlinks      '<~ loop through the links collection
        If Not Link.Address = "" Then   '<~ check for a blank address
            Sh.Cells("Fillforegnd") = 2 '<~ apply a color to the shape
        End If
    Next Link
Next Sh

Visio VBA填充超链接框

1 个答案: