

If you are using Word 2013, choose Rotate all text 90° and you should be set.In the Drawing Tools Format Ribbon, in the Text Group, click on Text Direction icon until the number is rotated in the right orientation.Type in “Footer” in the Style Name: box, and then click Apply.Go to the Styles Group, click on the More icon () and then Apply Styles.Highlight the number, go to the Home Ribbon, and apply the Footer style so it matches all of your other footer.A large number will now appear in the left margin, and should be correctly centered.On the Insert Ribbon, in the Header & Footer Group, click on the arrow next to the Page Number icon, choose Page Margin, and then in the Plain Number section, choose Large, left (unfortunately, they don’t seem to have just a plain left option).Delete the page numbers from the footer of the landscape section.If your department requires you to prepare your dissertation for printing, you will have to alter the placement of the page numbers on your landscape pages.

Rackham no longer requires dissertations to be prepped for printing. MsgBox "Process Complete.Adding Page Numbers to the Landscape Page(s) Resp3 = MsgBox(Msg3, vbYesNo + vbQuestion, MacroName)

Msg3 = "Do you wish to set all chart sheets to landscape orientation? " '* page orientation from portrait to landscape.Ĭonst MacroName As String = "SetChartsLandscape" '* This macro loops thru all "chart sheets" in a workbook, and sets the It's not a solution, or even an explanation as to why the orientation changes, but it can help, if you have unsaved changes that you'd rather not lose. With VBA, the code Ive been using (with a while loop to go over each sheet) is. However, I cannot figure out how to do that in VBS. To help remedy the situation, I wrote a macro that changes all chart sheets (in the selected workbook) from Portrait to Landscape orientation. I need to use VBScript to change all of the sheets in an excel workbook to Page Layout View instead of the default view.

If there were unsaved changes, they would be lost. The option to change the page orientation would be unavailable (grayed out), so the only recourse was to close and reopen. Upon re-entering, all chart pages had changed their orientation from Landscape to Portrait. It occurred in a virtual environment (VDI session) when you would time out of the session. I encountered this issue back in 2014 for the first time.
