Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel (архив)
Страницы: 1
RSS
4 уровневая надстройка
 
#1
22.03.2011 09:23:26
Форумчане!  
Помогите, пжл.  
У меня есть надстройка, там 2 уровня.  
Подскажите, как сделать 4 уровневую надстройку  
Спасибо
 
 
 
#2
22.03.2011 09:24:29
Вот надстройка
 
 
 
#3
22.03.2011 09:28:46
{quote}{login=The_Prist}{date=22.03.2011 09:24}{thema=}{post}Здравствуйте.  
Я, возможно, догадываюсь, что значит двухуровневая. Но хотелось бы знать поточнее какой смысл Вы в это вкладываете.{/post}{/quote}  
 
Наводишь на уровень1 всплывает уровень 2, наводишь на уровень 2, всплывает уровень 3 и так далее  
 
        Уровень 4  
     Уровень 3 >  
  Уровень 2 >  
Уровень 1 >
 
 
 
#4
22.03.2011 10:07:47
{quote}{login=The_Prist}{date=22.03.2011 09:44}{thema=}{post}Так...А ведь я уже показывал как это делать. И, кажется, именно Вам. Месяца три назад, правда.  
 
       Set objMenu = .Controls.Add(Type:=10)  
       With .Controls(1)  
           .Caption = "Уровень 1"  
           .BeginGroup = True  
       End With  
            With objMenu.Controls.Add(Type:=10)  
'                 .FaceId = 1033  
                .Caption = "Уровень 2"  
'                 .OnAction = "Макрос"  
            End With{/post}{/quote}  
 
 
Нет, Вы мне этого не показывали  
По надстройке... получилось 2 уровня  
Уровень 2 появился со стрелочкой. А как добавить 3 уровень?  
Я что-то попробовал у меня не получилось?  
Подскажите пожалуйста
 
 
 
#5
22.03.2011 10:35:13
{quote}{login=The_Prist}{date=22.03.2011 10:15}{thema=}{post}Вот Вам более короткий код. Думаю, 4-ый уровень теперь догадаетесь как добавить.  
       Set objMenu = .Controls.Add(Type:=10)  
       With .Controls(1)  
           .Caption = "Уровень 1"  
           .BeginGroup = True  
           With .Controls.Add(Type:=10)  
               .Caption = "Уровень 2"  
               With .Controls.Add(Type:=10)  
                   .Caption = "Уровень 3"  
               End With  
           End With  
       End With{/post}{/quote}  
 
 
 
 
Уффф, какая то засада  
Четвертый то уровень я добавил, а как сделать много уровневую надстройку  
 
                         > Подподуровень 4.1.2  
Уровень4 > Подуровень 4.1 > Подподуровень 4.1.1  
Уровень3  
Уровень2 > Подуровень 2.1  
Уровень1 > Подуровень 1.1  
Меню  
 
Будьте добры подскажите пожалуйста
 
 
 
#6
22.03.2011 11:04:38
Так, что ли, надо?  
http://www.ExcelVBA.ru/pictures/20110322-nuf-25kb.jpg  
 
Пример можно найти в этой статье:  
http://excelvba.ru/tools/CommandBar  
 
См. прикреплённый файл MultiLevelCommandBar.xla
Надстройки для Excel  Парсинг сайтов  Мониторинг цен конкурентов
 
 
 
#7
22.03.2011 12:26:12
{quote}{login=The_Prist}{date=22.03.2011 11:03}{thema=}{post}И что мешает-то? добавьте наряду с вып.меню еще и простые кнопки. Или я не понимаю вообще, что там Вам надо и что не получается.{/post}{/quote}  
 
Вот так хотелось бы (в файле)
 
 
 
#8
22.03.2011 12:47:36
{quote}{login=The_Prist}{date=22.03.2011 12:43}{thema=}{post}Тогда повторю вопрос: что мешает наряду с вып.меню добавить просто кнопки?  
       Set objMenu = .Controls.Add(Type:=10)  
       With .Controls(1)  
           .Caption = "Уровень 1"  
           .BeginGroup = True  
           With .Controls.Add(Type:=10)  
               .Caption = "Уровень 2"  
               With .Controls.Add(1)  
                   .Caption = "Уровень 2.1"  
               End With  
               With .Controls.Add(Type:=10)  
                   .Caption = "Уровень 2.2"  
                   With .Controls.Add(Type:=10)  
                       .Caption = "Уровень 2.2.1"  
                   End With  
                   With .Controls.Add(1)  
                       .Caption = "Уровень 2.2.2"  
                   End With  
               End With  
               With .Controls.Add(Type:=10)  
                   .Caption = "Уровень 2.3"  
               End With  
           End With  
       End With{/post}{/quote}  
 
 
Ну простите ничего в этом нишарящего человека  
Большоеспасибо
 
 
 
Страницы: 1
Читают тему
Наверх