Microsoft KB Archive/119157

= Microsoft Knowledge Base =

XL: Macro to Change Page Orientation in Group Mode Incorrect
Last reviewed: December 17, 1996

Article ID: Q119157

The information in this article applies to:


 * Microsoft Excel for Windows, versions 5.0, 5.0c
 * Microsoft Excel for the Macintosh, versions 5.0, 5.0a
 * Microsoft Excel for Windows 95, version 7.0
 * Microsoft Excel 97 for Windows

SYMPTOMS
In Microsoft Excel, when you record a Visual Basic, Applications Edition, macro that changes the page setup for grouped sheets, and you run the recorded macro, the setting is modified for the active sheet only. This behavior is incorrect: when you are in group edit mode, the page setup should be changed for all sheets in the group.

Note that this problem does not occur when you record the macro in the Microsoft Excel 4.0 Macro language.

WORKAROUND
To work around this problem, write a looping macro that makes the page setup changes to each sheet individually. The following macro changes page orientation to landscape on all grouped sheets in a workbook.

Microsoft provides examples of Visual Basic for Applications procedures for illustration only, without warranty either expressed or implied, including, but not limited to the implied warranties of merchantability and/or fitness for a particular purpose. The Visual Basic procedures in this article are provided 'as is' and Microsoft does not guarantee that they can be used in all situations. While Microsoft support engineers can help explain the functionality of a particular macro, they will not modify these examples to provide added functionality, nor will they help you construct macros to meet your specific needs. If you have limited programming experience, you may want to consult one of the Microsoft Solution Providers. Solution Providers offer a wide range of fee-based services, including creating custom macros. For more information about Microsoft Solution Providers, call Microsoft Customer Information Service at (800) 426-9400.

Macro Example
Sub ChangeSettings For Each xSheet In ActiveWindow.SelectedSheets xSheet.PageSetup.Orientation = xlLandscape Next xSheet End Sub

Steps to Reproduce Behavior

 * 1) Record a macro that groups Sheet1 through Sheet5 in a new workbook and changes page orientation to landscape.
 * 2) Stop the recorder and check page setup on the sheets to see that they were all changed to landscape.
 * 3) Regroup the sheets and change orientation back to portrait.
 * 4) Ungroup the sheets and run the macro.
 * 5) Check the orientation on some of the sheets.

Only Sheet1 has changed to landscape orientation. The others are still set to portrait orientation.