Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Открыть программно окно создания колонтитула (верхнего или нижнего)
 
#1
12.04.2017 09:27:40
Доброго дня. Как уже написал в теме пытаюсь открыть меню нижний колонтитул или верхний колонтитул программно.
Но пока удалось только открыть меню параметры страницы таким образом:

Application.Dialogs(xlDialogPageSetup).Show   :)

Что можно сделать?
 
 
 
#2
12.04.2017 15:47:15
Может быть,
Код
ActiveWindow.View = xlPageLayoutView
F1 творит чудеса
 
 
 
#3
13.04.2017 14:56:04
Спасибо за ответ.
Это немного не то что нужно.
Необходимо вызвать меню редактирования колонтитула из параметров страницы.
Сейчас приложу файл. Может это и вообще невозможно через vba.  
 
 
 
#4
13.04.2017 19:19:56
мне кажется, невозможно.
F1 творит чудеса
 
 
 
#5
14.04.2017 11:51:26
Ну почему невозможно... Все возможно) Не знаю, как для 2003, но в 2010+ такая команда отрабатывает вызов нужного меню на "ура":
Код
Application.SendKeys "%psc^{TAB}^{TAB}{TAB 3}{ENTER}"
Изменено: Влад - 14.04.2017 11:54:31 (Поправил код)
 
 
 
#6
14.04.2017 13:23:21
Цитата
Влад написал:
в 2010+ такая команда отрабатывает вызов нужного меню на "ура":
У меня 2010 - не сработало. Макрос выполнен, но тишина )
 
 
 
#7
15.04.2017 10:51:46
О, про SendKeys я забыл :)
F1 творит чудеса
 
 
 
#8
17.04.2017 11:27:49
Цитата
Влад написал: Application.SendKeys
Спасибо за ответ. Интересное решение, но тоже не получилось. Офис 2010.
И не понял для чего нужно %psc.
 
 
 
#9
17.04.2017 11:47:06
Если у кого получилось приложите пожалуйста файл примера. Пробовал через Immediate строка кода не работает.
Создавал такой код, тоже

Код
Sub test()
    Application.Dialogs(xlDialogPageSetup).Show
    Application.SendKeys "^{TAB}^{TAB}{TAB 3}{ENTER}"
End Sub
Изменено: emid - 17.04.2017 12:59:32
 
 
 
#10
17.04.2017 11:53:34
emid, оформляйте код тегом.
 
 
 
#11
17.04.2017 15:17:22
Цитата
emid написал:
Если у кого получилось приложите пожалуйста файл примера.
Пожалуйста. Проверена работа в Excel 2016.
Код
Application.SendKeys "%PSZMN{RIGHT 2}{TAB 3}{ENTER}"
 
 
 
#12
17.04.2017 19:18:23
Код
Sub Button1_Click()
    Application.SendKeys "{RIGHT 2}{TAB 2}"
    Application.Dialogs(7).Show
End Sub

2010/32 - работает
 
 
 
#13
18.04.2017 09:31:46
Спасибо Ran.

Немного добавил и открылось нужное меню нижнего колонтитула

Код
 Sub test_down()
    Application.SendKeys "{RIGHT 2}{TAB 3} {ENTER}"
    Application.Dialogs(7).Show
End Sub


для верхнего соответственно

Код
 Sub test_up()
    Application.SendKeys "{RIGHT 2}{TAB 2} {ENTER}"
    Application.Dialogs(7).Show
End Sub


Спасибо всем кто отвечал. Проблема решена.
Изменено: emid - 18.04.2017 11:05:59
 
 
 
#14
18.04.2017 09:33:41
emid, свою "суперцитату" исправьте сами. Зачем вообще цитировать в данном случае?
 
 
 
Страницы: 1
Наверх