All Forums
 Категория Visio
 Форум Вопросы и ответы
 Удаление пункта из меню
Author Previous Topic Topic Next Topic  

brace

Russia
358 Posts
Posted - 05/12/2005 :  15:33:26
To delete a menu item, you can use code similar to the following:

Dim CmdBar As CommandBar
Dim CmdBarMenu As CommandBarControl

Set CmdBar = Application.CommandBars("Worksheet Menu Bar")
Set CmdBarMenu = CmdBar.Controls("Tools")
CmdBarMenu.Controls("New Item").Delete

это код написан для Excel но поскольку visio and excel из одной
компашки MS OFFICE по идее должно работать если ктонить заменит
иксельные слова на нужные.
  Previous Topic Topic Next Topic  
Данный сайт является архивом форума visio.artberg.ru, который был закрыт в связи с переходом на новую платформу visio.getbb.ru
Все материалы доступны только для чтения! Если у вас появились вопросы, или вы хотите что-то обсудить, связанное с Visio, обращайтесь на новый форум!
Архив был создан благодаря совместным усилиям Генадия Туманова @Tumanov (visio.artberg.ru), Александра ака @Surrogate (visio.getbb.ru), и Николая Белых @nbelyh (unmanagedvisio.com)