#1
|
|||
|
|||
Visio 2019 OrgChart - Set page size
Hello all, I have 40 pages Org Chart that are created via a script. How do I set page size (17in x 11in) for all of them. I tried creating a MACRO but it did not work for all pages. Thank you so much.
|
#2
|
||||
|
||||
Try a macro like this
Code:
Sub SetPageSizes() Dim aPage As Page For Each aPage In ActiveDocument.Pages aPage.PageSheet.CellsSRC(visSectionObject, visRowPage, visPageWidth).FormulaU = "17 in" aPage.PageSheet.CellsSRC(visSectionObject, visRowPage, visPageHeight).FormulaU = "11 in" Next aPage End Sub
__________________
Andrew Lockton Chrysalis Design, Melbourne Australia |
|
Similar Threads | ||||
Thread | Thread Starter | Forum | Replies | Last Post |
Visio 2019 - Remove all Hyperlinks | phathuynh27 | Visio | 1 | 01-08-2023 06:17 PM |
Visio 2019 Professional | GeekDad | Visio | 1 | 04-11-2022 05:43 PM |
Visio 2019 freezing when using zoom | nscelsi1 | Visio | 1 | 12-19-2021 09:43 PM |
Visio 2019 installation failure on Windows 10 with Office 2019 | instwars | Office | 1 | 08-29-2019 07:05 PM |
Visio Orgchart Solution | dmcgimpsey | Visio | 0 | 11-08-2005 10:30 AM |