Страницы: 1
RSS
сменить ориентацию документа word из excel
 
код такой:

Dim wd As Object
Set wd = CreateObject("Word.Document" ;)

With wd.PageSetup
If .Orientation <> wdOrientPortrait Then
.Orientation = wdOrientPortrait
Else
.Orientation = wdOrientLandscape
End If
End With

по идее должен переворачивать. но не работает почему-то. не переворачивает.
Изменено: ae485 - 20.02.2013 15:05:44
 
Потому что Excel не знает констант wdOrientPortrait и wdOrientLandscape. Они только для Word. Замените их числовыми значениями, которые соответствуют этим константам и все будет работать.
Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...
Страницы: 1
Наверх