Comments on: Detect Sub-selected Shapes Programmatically http://www.visguy.com/2008/05/17/detect-sub-selected-shapes-programmatically/ Shapes, Stencils, Drawings Templates, Tutorials, Tips & Developer Info for Microsoft Visio Fri, 10 Feb 2012 17:20:41 +0000 hourly 1 http://wordpress.org/?v= By: Visio Guy http://www.visguy.com/2008/05/17/detect-sub-selected-shapes-programmatically/comment-page-1/#comment-24886 Visio Guy Tue, 12 Oct 2010 10:12:53 +0000 http://www.visguy.com/?p=861#comment-24886 Hi Eric, You can add the rectangles to a selection object as you draw: [code lang="vb"] Sub DoEricsStuff() '// Create an empty selection: Dim sel As Visio.Selection Set sel = Visio.ActivePage.CreateSelection( _ Visio.VisSelectionTypes.visSelTypeEmpty) '// Draw some rectangles and add them to the selection: Dim i As Integer Dim shp As Visio.Shape For i = 1 To 10 '// Draw the rectangles according to i, just for testing Set shp = Visio.ActivePage.DrawRectangle( _ i, i, i + 0.5, i + 0.5) '// Add the shape to the selection: Call sel.Select(shp, Visio.VisSelectArgs.visSelect) '// Select sel in the active window: ActiveWindow.Selection = sel Next i End Sub [/code] Hi Eric,

You can add the rectangles to a selection object as you draw:

Sub DoEricsStuff()

  '// Create an empty selection:
  Dim sel As Visio.Selection
  Set sel = Visio.ActivePage.CreateSelection( _
              Visio.VisSelectionTypes.visSelTypeEmpty)

  '// Draw some rectangles and add them to the selection:
  Dim i As Integer
  Dim shp As Visio.Shape
  For i = 1 To 10

    '// Draw the rectangles according to i, just for testing
    Set shp = Visio.ActivePage.DrawRectangle( _
                                i, i, i + 0.5, i + 0.5)

    '// Add the shape to the selection:
    Call sel.Select(shp, Visio.VisSelectArgs.visSelect)

    '// Select sel in the active window:
    ActiveWindow.Selection = sel

  Next i

End Sub
]]> By: Eric http://www.visguy.com/2008/05/17/detect-sub-selected-shapes-programmatically/comment-page-1/#comment-24865 Eric Fri, 08 Oct 2010 13:59:16 +0000 http://www.visguy.com/?p=861#comment-24865 Ok an opposite approach. I have a VBA mess of procedures that draw a rectangle called large retangle, then in my large rectangle I draw another smaller rectange with a verysmall rectagle likeshape in the smaller rectangle. then duplicate the two smaller rectangles by an i value lets say 9 of them in a vertical row on the left hand edge of the larger rectangle. now I want to select the bigger rectangle and all of the smaller rectangles with in it then do one rectangle group. What I find on the Web hasn't helped and I am stuck. ie The web has me select all the shapes on my page which there is alot and I don't want that.... I just want to select all of the shapes in the newly drawn rectangles and then group them. I nameded each shape sheet The larger rectagle "large_rectangle, the Smaller rectangle small_rectangle and the verysmall rectangle V_S_Rec. each one comes up with a .## for indexing, my question is how canI use VBA to select the large rectangle, then select all of the 9 smalls and 9 very smalls then group them? thanks in advance Ok an opposite approach. I have a VBA mess of procedures that draw a rectangle called large retangle, then in my large rectangle I draw another smaller rectange with a verysmall rectagle likeshape in the smaller rectangle. then duplicate the two smaller rectangles by an i value lets say 9 of them in a vertical row on the left hand edge of the larger rectangle. now I want to select the bigger rectangle and all of the smaller rectangles with in it then do one rectangle group.
What I find on the Web hasn’t helped and I am stuck. ie
The web has me select all the shapes on my page which there is alot and I don’t want that…. I just want to select all of the shapes in the newly drawn rectangles and then group them. I nameded each shape sheet The larger rectagle “large_rectangle, the Smaller rectangle small_rectangle and the verysmall rectangle V_S_Rec. each one comes up with a .## for indexing, my question is how canI use VBA to select the large rectangle, then select all of the 9 smalls and 9 very smalls then group them?
thanks in advance

]]> By: Visio Guy » Getting a Handle on Selecting and Subselecting Visio Shapes http://www.visguy.com/2008/05/17/detect-sub-selected-shapes-programmatically/comment-page-1/#comment-23477 Visio Guy » Getting a Handle on Selecting and Subselecting Visio Shapes Tue, 13 Oct 2009 11:35:40 +0000 http://www.visguy.com/?p=861#comment-23477 [...] If you are a developer, you might be interested in further technical information regarding selecting and sub-selecting of Visio shapes via automation. Have a look at: Visio Guy » Detect Sub-selected Shapes Programmatically! [...] [...] If you are a developer, you might be interested in further technical information regarding selecting and sub-selecting of Visio shapes via automation. Have a look at: Visio Guy » Detect Sub-selected Shapes Programmatically! [...]

]]> By: Marko http://www.visguy.com/2008/05/17/detect-sub-selected-shapes-programmatically/comment-page-1/#comment-21426 Marko Sun, 02 Nov 2008 11:57:37 +0000 http://www.visguy.com/?p=861#comment-21426 Hi, For some reason, I can't change the IterationMode of the page in my own application. It is always 1280 (the default) no matter what I do. So far I've tried to change it before any selections are made (right after the page was created) and in the SelectionChanged event handler. Any ideas what might cause this kind of behavior? Are there any other ways of detecting sub-selected shapes? Thanks. Hi,

For some reason, I can’t change the IterationMode of the page in my own application. It is always 1280 (the default) no matter what I do. So far I’ve tried to change it before any selections are made (right after the page was created) and in the SelectionChanged event handler.

Any ideas what might cause this kind of behavior? Are there any other ways of detecting sub-selected shapes?

Thanks.

]]> By: Visio Guy http://www.visguy.com/2008/05/17/detect-sub-selected-shapes-programmatically/comment-page-1/#comment-18314 Visio Guy Sat, 24 May 2008 18:44:29 +0000 http://www.visguy.com/?p=861#comment-18314 Thanks Steve, I've corrected the comment, as you correctly specified! - Chris Thanks Steve,

I’ve corrected the comment, as you correctly specified!

- Chris

]]> By: Steve Bolman http://www.visguy.com/2008/05/17/detect-sub-selected-shapes-programmatically/comment-page-1/#comment-18313 Steve Bolman Sat, 24 May 2008 17:03:46 +0000 http://www.visguy.com/?p=861#comment-18313 Thanks, Great article and the code is well annotated. While it is clear from the context, I would like to point out to others that there is a small typo second reference to “normally selected shapes” in the annotation below. This annotation should read “sub-selected shapes”. '// Get the normally selected shapes: sel.IterationMode = Visio.VisSelectMode.visSelModeOnlySub + _ Visio.VisSelectMode.visSelModeSkipSuper Please advise if I am mistaken in my interpretation. Please keep up the good work, I am hoping to get up to speed someday. Thanks, Great article and the code is well annotated. While it is clear from the context, I would like to point out to others that there is a small typo second reference to “normally selected shapes” in the annotation below. This annotation should read “sub-selected shapes”.
‘// Get the normally selected shapes:
sel.IterationMode = Visio.VisSelectMode.visSelModeOnlySub + _
Visio.VisSelectMode.visSelModeSkipSuper

Please advise if I am mistaken in my interpretation.
Please keep up the good work, I am hoping to get up to speed someday.

]]>