Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / не удаляется пункт меню с типом c msoControlPopup (word) / 2 сообщений из 2, страница 1 из 1
17.11.2004, 12:36
    #32786430
Sergey D.
Sergey D.
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
не удаляется пункт меню с типом c msoControlPopup (word)
добавляю так:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
        With CommandBars("Insert").Controls.Add(Type:=msoControlPopup)
            .caption = "My menu"
            With .Controls
                With .Add(msoControlButton, , True)
                    .caption = "Current Position"
                    .Style = msoButtonCaption
                    .TooltipText = "Insert FDN to the current position"
                    .onAction = DMCurrentPos
                End With
            End With
        End With

удаляю так:
For Each cb In CommandBars("Insert").Controls
If StrComp(cb.caption, "My Menu") = 0 Then cb.Delete
End If
Next

или так:
CommandBars("Insert").Controls("My Menu").Delete

Результат, не удаляется. Что не так?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
17.11.2004, 16:33
    #32787365
MrCorp
MrCorp
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
не удаляется пункт меню с типом c msoControlPopup (word)
1. Если if и then находятся на одной строчке, то ставить следующей строкой End If не нужно.
2. Ты создал меню "My menu", а пытаешься удалить "My Menu".
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / не удаляется пункт меню с типом c msoControlPopup (word) / 2 сообщений из 2, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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