PCC_CA = InputBox("Enter PCC Band")
Dim shp As Visio.ShapeDim subshp As Visio.Shape Dim BandLinewidth As StringvisServiceVersion150
Dim UndoScopeID1 As Lo
我正在尝试将单击事件添加到visio文件中的形状。我有拾取单击事件的功能,但我不知道如何将窗口控件分配给文件的图形窗口。 sourceWindow = New Microsoft.Office.Interop.Visio.WindowPrivate clickedWindow As Microsoft.Office.Interop.Visio.Win