私は最近、新しいエラーが私のコードに来て分かったと私は幽霊の形状（ID 231）を考慮していなかったので、それが来ているように見えるのVisio

Question

に隠された形状（ゴースト）を選択し

ゴースト形状マスター名または表示されたテキスト（形状レポートごと）がありません

この場合、シート/ページのどこかに隠されています。特定のIDを使用して呼び出すことで、VBA経由で選択するにはどうすればよいですか？

形状のIDが、これはその後、転送し、それが赤に役立つだろう（あるいは純粋にそれが役立つだろう選択したために）

感謝を着色することを持っている場合は！

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 

あなたにも、そこからそれを使用することができるようにBringToFront方法はSelectionオブジェクトでも利用可能であることに注意してください。