사용자가 모양을 두 번 클릭 할 때 표시 할 다음 레이어를 얻으려고합니다. 나는 Visio를 내 VBA를 만진 적이Visio - 레이어를 표시 할 버튼
그래서 내가 그 많은하지를 알고 있지만 솔직히 어떤 도움이 전혀 크게 감사합니다 불행히도
Visio.layer.*Layername* visible = "1"
End Sub
단서가없는, 아래의 코드를 시도했다.
"다음 계층"이란 무엇입니까?
visio에서 레이어 속성 창 레이어는 이름순으로 표시됩니다. 셰이프 시트 레이어는 생성 순서대로 표시됩니다!
VisioApp.ActivePage.Layers.Item("layername").CellsC(visLayerVisible).FormulaU = "1"것은이 실제로 간단한 셰이프 기능을 통해 수행 할 수 있습니다이 코드
을 시도합니다. SetF (Getref (ThePage! = Layers.Visible [2]), true) - 레이어 2를 표시로 설정하려는 경우.
최대 레이어에 도달하면 더블 클릭 + 재설정시 카운터를 증가 시키면 한 레이어에서 다음 레이어로 전환 할 수 있습니다.
= setf (getref (user.counter), if (user.counter> = user.MaxLayers, 1, user.counter + 1)