|
| | |
| | |
|

Для русскоязычных пользователей 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

13.02.2008 Hiding Pages (with VBA) John Goldsmith

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