quote:

---

name_box = "box0_1"
Dim name_l, name_xls As String

Dim vsoMaster As Visio.Master
Set vs = ActivePage.Shapes(name_box).SpatialNeighbors(3, 0.2, 0)
N = vs.Count
If N > 0 Then
ActiveWindow.DeselectAll
For Each sh In vs
Set vsoMaster = sh.Master
Select Case vsoMaster
End Select
Next sh
End If

---

Dim sh As Visio.Shape
Set sh = ActivePage.Shapes(1)
On Error Resume Next
Set mas = sh.Master
If Not mas Is Nothing Then
    Debug.Print mas.Name
Else
    Debug.Print sh.NameID
End If
On Error GoTo 0