Visio программно устанавливает ориентацию страницы с помощью VBA - PullRequest
Новая
       25

Visio программно устанавливает ориентацию страницы с помощью VBA

1 голос
/ 16 июня 2011

Мне нужно изменить свойство Page Orientation на значение «Landscape» программируемым способом с использованием VBA.В настоящее время я использую следующий код:

Application.ActivePage.PageSheet.CellsU("PrintPageOrientation").Formula = 2

Но это работает только для принтера, а не для страницы, которую я изменяю.

У меня естьЯ искал подходящую ячейку в документации Microsoft , но я не добился успеха.

Спасибо за любую помощь.

Ответы [ 2 ]

1 голос
/ 17 июня 2011

Просто установите высоту и ширину страницы. Нет ячейки для пейзажа / портрета.

Джон ... Visio MVP

0 голосов
/ 10 апреля 2019

Я знаю, что это старый вопрос, но для всех, кто ищет ответ: Изменение ячейки PrintPageOrientation в Visio делает изменением ориентации страницы в документе, а не только для печати. ​​

Для объекта страницы с именем переменной vzpVisioPage следующая строка задает альбомную ориентацию: 

vzpVisioPage.PageSheet.CellsSRC(visSectionObject, visRowPrintProperties, _
    visPrintPropertiesPageOrientation).FormulaForceU = "2"

Чтобы создать страницу легального размера, используйте следующие строки: 

vzpVisioPage.PageSheet.CellsSRC(visSectionObject, visRowPage, visPageWidth).FormulaU = "14 in"
vzpVisioPage.PageSheet.CellsSRC(visSectionObject, visRowPage, visPageHeight).FormulaU = "16.5 in"
...