Excel多页自动设置横向和纵向

xmxz1988

各位大神，我弄了一个代码，可以根据页面的高度和宽度按最佳的自动设置单页的横向或者纵向。代码如下所示。但是如果页面大于一页，就不能自动设置， 有大神可以帮我改一下这一句代码吗？

If ActiveSheet.UsedRange.Width > ActiveSheet.UsedRange.Height Then

Sub ?????????????()
With ActiveSheet
    With .PageSetup     '?????????
    .Zoom = False
        .FitToPagesWide = 1     '?????????
        .FitToPagesTall = 500     '?????????
        .CenterHorizontally = True  '??????
'        .CenterVertically = True    '???????
If ActiveSheet.UsedRange.Width > ActiveSheet.UsedRange.Height Then
.Orientation = xlLandscape  '?????????
Else
.Orientation = xlPortrait      '??????????
End If
End With
End With
End Sub
Excel多页自动设置横向和纵向

xmxz1988

我就是想当页面大于一页的时候， 也能按照当前页面的实际高度和宽度，合理的自动设置  横向或者纵向。

xmxz1988

有那个大神会吗。