Excluding Page from a "For Each Page" loop

Hamwic · November 10, 2015, 02:09:36 PM

I am needing to loop through each page sequentially, using a "For Each Page" loop, but need to exclude one (as it is irrelevant". Is there any way of doing this?

Thanks (as always) in advance!

Nikolay · November 10, 2015, 02:21:06 PM

I think this is pretty much straightforward... What have you tried so far (is there some issue)?

Paul Herber · November 10, 2015, 02:28:04 PM

Code Select

If vsoPage.Name = "xxx" then
...
else
...

{Ed} modified to suit your code posted just now

Hamwic · November 10, 2015, 02:30:18 PM

I'm sure it is pretty straight forward... The issue is that I don't know how to exclude a Page, as the loop will call each Page sequentially. They are not called directly by their name.

Code Select

    For Each vsoPage In ThisDocument.Pages
        Application.ActiveWindow.Page = vsoPage

        For Each vsoShape In vsoPage.Shapes
            vsoUserName = vsoShape.CellsU("prop." & strFieldtoUpdate).ResultStr(visNone)
            
            intPropRow2 = vsoShape.AddRow(visSectionProp, visRowLast, visTagDefault)
            vsoShape.CellsSRC(visSectionProp, intPropRow2, visCustPropsValue).FormulaU = """" & vsoSuperUPN & """"
            Application.EndUndoScope UndoScopeID1, True
                   
        Next
    Next

I'm new to Visio and very rusty with VBA. This is a huge learning curve (again)!!

Hamwic · November 10, 2015, 02:47:59 PM

Thanks Paul (again!).

Pretty obvious really... Just one of those situations where the trees are obscuring the wood!

Excluding Page from a "For Each Page" loop

Hamwic

Nikolay

Paul Herber

Hamwic

Hamwic