VBA: Switch Landscape or Portrait Using 1 Command/Button

[Susanto3311]

hi all..

i found code to set orientation paper in landscape/portrait.
the code not properly work

Code: Select all

Sub Landscape()
With ActiveDocument.PageSetup
   .Orientation = wdOrientLandscape
   .Orientation = wdOrientPortrait
End With
End Sub

using button (quick Acees Toolbar) with the above code i want to switch Landscape or Portrait
using only single button macro, if possible to do it?
sometimes i want to set switch landscape (with 1 click button), then 1 click button again to change in Portrait
maybe someone give assistance to figure out this case.

thank in advance

susanto

[StuartR]

Code: Select all

Sub TogglePageOrientation()

With ActiveDocument.PageSetup
    If .Orientation = wdOrientLandscape Then
        .Orientation = wdOrientPortrait
    Else
        .Orientation = wdOrientLandscape
    End If
End With

End Sub

[Susanto3311]

hi StuartR, thank you so much!!
working well..

[Charles Kenyon]

Note that if you use this it applies to the entire document, unlike the UI control which only applies to the current section.

[StuartR]

Good point Charles

[SpeakEasy]

If you like brief/obscure code:

Code: Select all

ActiveDocument.PageSetup.Orientation = Abs(ActiveDocument.PageSetup.Orientation <> wdOrientLandscape)

[HansV]

Or even shorter if you are sure that the entire document has the same orientation:

Code: Select all

ActiveDocument.PageSetup.Orientation = 1 - ActiveDocument.PageSetup.Orientation

[SpeakEasy]

[StuartR]

I prefer comprehensibility to brevity, I have had to spend too much time maintaining other people's obscure code in the past.

[HansV]

I fully agree with that.

[SpeakEasy]

Yep, that's why a made sure I pointed out it was an obscure bit of code

[ChrisGreaves]

Note that if you use this it applies to the entire document, unlike the UI control which only applies to the current section.

Well spotted Charles!

Always with the unanticipated mysteries, Charles. You should write Mystery Thriller Fiction!
And here I was thinking that, if I knew nothing else, I knew Word/VBA
Cheers
Chris

[ChrisGreaves]

Or even shorter if you are sure that the entire document has the same orientation:

But as Charles has pointed out, that would takke all the fun out of life, wouldn't it?
Cheers
Chris