der (Geist) Wählen Sie in Visio versteckt Form

Question

I scheint vor kurzem einen neuen Fehler in meinem Code kommen fand heraus, und es kommt zu werden, weil ich nicht für eine Geisterform (ID 231)

Konto hat

Die Geisterform Master-Name oder angezeigter Text (gemäß Formbericht) nicht haben

In diesem Fall ist es irgendwo in meinem Blatt/Seite versteckt. Wie wähle ich es über VBA aus, indem ich es mit der spezifischen ID anrufe?

Wenn Form ID wird diese dann bringen sie weiterleiten und färben sie rot helfen würde (oder rein haben, es würde helfen, gewählt)

Dank!

Answer 1

Sub SetHiddenShape() 
    Dim vPag As Visio.Page 
    Dim vShp As Visio.Shape 

    'Assumes target page is activepage (which might not be the case) 
    Set vPag = ActivePage 
    Set vShp = vPag.Shapes.ItemFromID(231) 
    vShp.BringToFront 
    vShp.CellsU("FillForegnd").FormulaU = "=RGB(200, 50, 50)" 

    'and to select the the shape: 
    ActiveWindow.Select vShp, VisSelectArgs.visDeselectAll + VisSelectArgs.visSelect 
End Sub 

Beachten Sie, dass die BringToFront Methode auf dem Selection Objekt ist ebenfalls verfügbar, so dass Sie es von dort auch nutzen könnten.