News:

BB code in posts seems to be working again!
I haven't turned on every single tag, so please let me know if there are any that are used/needed but not activated.

Main Menu

How to iterate across grouped shapes?

Started by dirkasarus-rex, February 09, 2015, 11:13:42 PM

Previous topic - Next topic

0 Members and 1 Guest are viewing this topic.

dirkasarus-rex

This iterates across standard shapes:

===============================
Dim iShpNum As Integer
Dim oShp As Visio.Shape

For iShpNum = 1 To Visio.ActivePage.Shapes
   Set oShp = Visio.ActivePage.Shapes(iShpNum)
   'do stuff with oShp here
Next
===============================

But shapes that are grouped together are ignored by this.  How do I iterate across the groups and shapes contained by those groups?

Thank you for your insight!

Dirkasarus-rex

Yacine

#1
This topic should help you:
http://visguy.com/vgforum/index.php?topic=5802.0;nowap


[Paul - Moderator] Edited to make URL into a clickable link
Yacine

dirkasarus-rex

With a bit of manipulation, that worked perfectly.  Thank you Yacine!

Browser ID: smf (possibly_robot)
Templates: 4: index (default), Display (default), GenericControls (default), GenericControls (default).
Sub templates: 6: init, html_above, body_above, main, body_below, html_below.
Language files: 4: index+Modifications.english (default), Post.english (default), Editor.english (default), Drafts.english (default).
Style sheets: 4: index.css, attachments.css, jquery.sceditor.css, responsive.css.
Hooks called: 173 (show)
Files included: 32 - 1207KB. (show)
Memory used: 1016KB.
Tokens: post-login.
Cache hits: 13: 0.00159s for 26,765 bytes (show)
Cache misses: 2: (show)
Queries used: 15.

[Show Queries]