Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Помогите с добавлением Меню / 8 сообщений из 8, страница 1 из 1
22.07.2004, 15:18
    #32617137
Gotar
Gotar
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите с добавлением Меню
Народ, в общем засада:
Цель: Надо програмно с помощью VBA сделать макрос создающий в Ворде в меню "File" 1 пункт меню, который будет запускать макрос.

Пробовал: Запускать запись макроса и получал следующую шнягу:

CommandBars("Menu Bar").Controls.Add(Type:=msoControls.Add, Before:=6)
Type:=msoControlButton, Before:=12

CommandBars("Menu Bar").Controls(12).Move Bar:=CommandBars("File"), Before:=6)

Создаю и перемещаю этот пункт, ибо если создавать сразу в пункте файл, то вообще не реагирует на воспроизведение макроса. В этом варианте создает пустой пункт меню.

Дальше:
Dim a As CommandBarControl
Set a = Application.CommandBars("Document Menu Bar").Controls.Add(Type:=msoControlPopup, Before:=num)

Вырезка из программного кода скопированного с этого форума по схожей теме. В хелпе впринципе тоже самое написанно.

При запуске во второй сторчке Пишет:
Run-time error '5":
Invalid procedure call or argument

Помогите чайнику разобраться пожалуйсто в чем тут ошибка?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.07.2004, 15:21
    #32617147
Gotar
Gotar
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите с добавлением Меню
Gotar
При запуске во второй сторчке Пишет:
Run-time error '5":
Invalid procedure call or argument



В смысле во второй строчке выдает ошибку...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.07.2004, 15:58
    #32617256
big-duke
big-duke
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите с добавлением Меню
к какому бару идет добавление ?
Menu Bar или "Document Menu Bar ?
чему равен num ?
Есть ли такой бар ?

...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.07.2004, 16:03
    #32617272
Gotar
Gotar
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите с добавлением Меню
big-dukeк какому бару идет добавление ?
Menu Bar или "Document Menu Bar ?
чему равен num ?
Есть ли такой бар ?


1:Menu Bar
2:Num = 6
3:Такого бара нету
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.07.2004, 16:04
    #32617276
Gotar
Gotar
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите с добавлением Меню
Тфу забыл сказать что в меню Файлы идет добавление.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.07.2004, 17:54
    #32617610
big-duke
big-duke
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите с добавлением Меню
раз бара нет, вот и идет ошибка.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
23.07.2004, 09:33
    #32618039
Gotar
Gotar
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите с добавлением Меню
Блин я тормоз 8) Спасибо огромное терь понял... тока мне еще дофига делать нада тут, и поэтому еще пару вопросов скорее всего сюда напишу 8)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
23.07.2004, 09:51
    #32618065
big-duke
big-duke
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите с добавлением Меню
имхо лучше делать свою панель(бар) со своии кнопками
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
' меню выбора клиента для перехода
Public Sub CreateOMenu()
Dim tmpCB As CommandBarPopup
Public myMenu As CommandBar
const MNU_NAME as string="MYMENU"
    'Проверка на наличие своего меню 
    For Each tmpCommandBar In Application.CommandBars
        If tmpCommandBar.Name = MNU_NAME  Then
            CommandBars(ThisWorkbook.Name).Delete
            Exit For
        End If
    Next

    '-----Создаем меню состояния-----

    Set MyMenu = CommandBars.Add(Name:=MNU_NAME, Position:=msoBarTop, MenuBar:=False, temporary:=True)
    
        ' выключатель
   With MyMenu.Controls.Add(msoControlButton)
      .Tag = "Switch"
      .Style = msoButtonIconAndCaption
      .OnAction = "Switch"
      .FaceId =   352 
      .TooltipText = "Выключить меню"
   End With

' вывод на экран
    myMenu.Visible = True
End Sub
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Помогите с добавлением Меню / 8 сообщений из 8, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]