M
MBAstudnet
What I would like to do is, when a user has a connection point selected with
the connection point tool (turns pink); I would like to be able to find out
which row in the shape subsheet connections section is active. My goal is to
be able to send that information to a form and auto-populate data on the form
using the connection cell formulas.
Here is an example of something close to what I would like to do. In this
example even if you have a connection point highlighted the
Visio.ActiveWindow.Selection returns with the SHAPE name that contains the
connection point and not the connection point.
Private Sub UserForm_Initialize()
Dim VisSelSet As Visio.Selection
Dim VisShape As Visio.Shape
Set VisSelSet = Visio.ActiveWindow.Selection
If VisSelSet.Count <> 1 Then
ConnectionName.Text = ""
Else
Set VisShape = VisSelSet.Item(1)
ConnectionName.Text = VisShape.Name
End If
End Sub
Thank you for your time
-Brad
the connection point tool (turns pink); I would like to be able to find out
which row in the shape subsheet connections section is active. My goal is to
be able to send that information to a form and auto-populate data on the form
using the connection cell formulas.
Here is an example of something close to what I would like to do. In this
example even if you have a connection point highlighted the
Visio.ActiveWindow.Selection returns with the SHAPE name that contains the
connection point and not the connection point.
Private Sub UserForm_Initialize()
Dim VisSelSet As Visio.Selection
Dim VisShape As Visio.Shape
Set VisSelSet = Visio.ActiveWindow.Selection
If VisSelSet.Count <> 1 Then
ConnectionName.Text = ""
Else
Set VisShape = VisSelSet.Item(1)
ConnectionName.Text = VisShape.Name
End If
End Sub
Thank you for your time
-Brad