Код - Формат страницы альбомный и поля уменьшить

Автор sezam, 14 сентября 2022, 12:00

0 Пользователи и 1 гость просматривают эту тему.

sezam

Здравствуйте! Подскажите такой момент. Надо выполнить макрос в Calc, задача у макроса такая, что надо поменять у страницы ориентацию на альбомный и уменьшить поля слева и справа. Я делаю запись макроса, и проделываю всю эту процедуру. Но когда я нажимаю выполнение макроса, мне выскакивает диалоговое окно где должен также ручками все поменять. В коде я не разбираюсь. Подскажите какой можно вбить код, чтобы макрос выполнялся без вопросов?

Bigor

Поддержать разработчиков LibreOffice можно можно тут, а наш форум вот тут


Bigor

Примерно так.
Sub Pages_1
 Dim s$     'Имя стиля
 Dim oStyle 'Текущий стиль страницы
  s = ThisComponent.CurrentController.getActiveSheet().PageStyle
  oStyle = ThisComponent.StyleFamilies.getByName("PageStyles").getByName(s)
  oStyle.IsLandscape = true
  oStyle.Width = 29700
  oStyle.Height = 21000
  oStyle.LeftMargin = 2000
  oStyle.RightMargin = 1000
End Sub

Поддержать разработчиков LibreOffice можно можно тут, а наш форум вот тут

sezam

Круто! То, что надо, всё работает! Спасибо!!!