Author Topic: VBA - select all shapes in container  (Read 3047 times)

0 Members and 1 Guest are viewing this topic.

sayre

  • Newbie
  • *
  • Posts: 2
VBA - select all shapes in container
« on: February 14, 2016, 05:19:52 PM »
Hi, I'm working on a network diagram project and having trouble figuring out how to select all current members of a visio container with VBA.

I have a macro in excel that reads large lists of network connections and draws visio diagrams from it. This seems simple enough but I can't seem to nail it.

First I tried recording myself right-clocking on the container and choosing >>container >>"select contents" but the resulting code simply selects each shape by ID one at a time (presumably because this command already knows how many shapes there are in conatiner and their IDs).

I need code that works without me knowing this, hope that makes sense. I did find a function that iterates through all members of a container and makes a collection of each ID, but I can't make the next leap to use this to select all of these shapes. I'm probably missing something easy, any help much appreciated. Using Visio 2010 and Excel 2010. Here's the appropriate portion of the code, and the spot where I think I need help:

Code


         ' get an enumerable list of shape ids that are already in the container
        Dim colMembers As Collection
        Set colMembers = getMembersOfContainer(vsoContainerShape)
       
        Dim shapeSelection As Selection
       
        If 0 < colMembers.Count Then
            Dim intX As Integer
            For intX = 1 To colMembers.Count
                If colMembers.Item(intX) = visShape.ID Then
               
               
                "some code that adds each vis.Shape to the current selection"

               
                    Exit For
                End If
            Next intX
        End If

above code uses this function:
Code
    '  pass in a container and return a collection of shapeIds
    '
    Public Function getMembersOfContainer _
                (ByRef vsoContainerShape As Visio.Shape) _
                As Collection

        On Error GoTo ErrHandler

        Dim colReturn As Collection
        Set colReturn = New Collection
       
        Dim arrMember() As Long
        arrMember = vsoContainerShape.ContainerProperties.GetMemberShapes(VisContainerFlags.visContainerFlagsDefault)
       
        Dim memberId As Long
        Dim intI As Integer

        For intI = 0 To UBound(arrMember)
            colReturn.Add (arrMember(intI))
        Next
       
        Set getMembersOfContainer = colReturn
        Exit Function
ErrHandler:
        Debug.Print "getMembersOfContainer " & Err.Description
        Set getMembersOfContainer = colReturn

    End Function