[Visio VBA] Shape bladwijzers?

[ygma!l]

Het probleem is als volgt:

Ik heb een hele berg visio tekeningen waarbij het er ook steeds meer worden. Nu is er in elke tekening een 'shape' met een tekst die ik graag door een applicatie (macro) wil laten wijzigen.

Nu kan dat bijvoorbeeld op de volgende manier:

code:

    Dim vsoCharacters1 As Visio.Characters
    Set vsoCharacters1 = Application.ActiveWindow.Page.Shapes.ItemFromID(129).Characters
    vsoCharacters1.Begin = 0
    vsoCharacters1.End = 8
    vsoCharacters1.Text = "NIEUWE TEKST"

Dit vind ik echter niet handig, omdat de ID (die 129) per tekening een ander ID is. Ik vraag mij dus af of Visio ook zoiets kent als MS Word 'Bladwijzers'. Zodat ik alle shapes een naam kan geven waardoor ze allemaal op dezelfde manier aanroepbaar zijn. Of is het mogelijk om handmatig die ID aan te passen van die shapes? Kortom: ik wil dus niet voor elke tekening de macro aanpassen, maar de tekeningen aanpassen op de macro.

[BtM909]

Je kan toch door je collections shape loopen en vervolgens checken of je shape van een bepaald type is en de te vervangen tekst bevat? Zo ja, vervang tekst met nieuwe tekst.