Для русскоязычных пользователей Visio. Начинающих и профессионалов. Где взять, как сделать, что купить и т.д.

Страницы

Перечень литературы

23.12.2013 Making the Off-Page Reference Hyperlink URL Safe David Parker.

18.10.2012 A Page Grid with Labels David Parker.

02.09.2011 Page Grids and Off Page References David Parker.

13.04.2011 Fit All Pages to Window in a Visio Document Chris Roth.

28.02.2011 Another Dot Grid … David Parker.

08.11.2006 Combo Box Table of Contents Chris Roth.

Ответы на вопросы

Как назначить свойство ActivePage программным образом?

Кто знает, как назначить свойство ActivePage программным образом, так чтобы эта страница стала активной ?
Например, как в Excel:
Sheets("Лист2").Select

Скорее всего вот так:

(Dim appObj As Visio.Application)
appObj.ActiveWindow.Page = "Page-1"

Как программно можно поменять ориентацию страницы?

Как программно можно поменять положение страницы с "книжной" на "альбомную"?

Это можно сделать, изменив одновременно размеры страницы рисунка и ориентацию страницы принтера. Например, вот так:

Sub ttt()
Height = ActivePage.PageSheet.Cells("PageWidth")
ActivePage.PageSheet.Cells("PageWidth") = ActivePage.PageSheet.Cells("PageHeight")
ActivePage.PageSheet.Cells("PageHeight") = Height
If ActiveDocument.PrintLandscape Then ActiveDocument.PrintLandscape = False Else ActiveDocument.PrintLandscape = True
End Sub