Excel 2007 - стандартное меню в стиле Excel 2000 (2003, XP)
Релиб
Форумы       Участники    Календарь    Кто он-лайн?
Добро пожаловать, гость ( Вход | Регистрация )
        



Excel 2007 - стандартное меню в стиле Excel... Expand / Collapse
Автор
Сообщение
23.08.2007 17:05
Junior Member

Junior MemberJunior MemberJunior MemberJunior MemberJunior MemberJunior MemberJunior MemberJunior Member

участник
Last Login: 29.08.2007 10:58
Сообщ.: 16, Visits: 162
Для тех, кто столкнулся с 2007-м Office...

Предлагается на рассмотрение VBA код, который создает в 2007-м Excel'е нормальное, привычное меню...

("Файл", "Вид", "Правка", и т.д.)

Если у кого-то есть другое решение, пожалуйста, выкладывайте...

    On Error Resume Next
   
    Application.CommandBars("Custom").Delete
   
    Set myBar = CommandBars.Add(Name:="Custom", Position:=msoBarTop, Temporary:=False)
    myBar.Visible = True

    For Each bar In CommandBars("Worksheet Menu Bar").Controls
       
        Set newCombo = myBar.Controls.Add(Type:=msoControlPopup)
        newCombo.Caption = bar.Caption
       
        For Each bar2 In bar.Controls
        
            If (bar2.Type <> msoControlButton) Then
           
                Set newCombo2 = newCombo.Controls.Add(msoControlPopup, bar2.ID)
                newCombo2.Caption = bar2.Caption
               
                For Each bar3 In bar2.Controls
               
                    Set newCombo3 = newCombo2.Controls.Add(msoControlButton, bar3.ID)
                    newCombo3.Caption = bar3.Caption
                   
                Next
               
            Else
           
                Set newCombo2 = newCombo.Controls.Add(msoControlButton, bar2.ID)
                newCombo2.Caption = bar2.Caption
                newCombo2.FaceId = bar2.FaceId
               
            End If
           
        Next
    Next

Сообщ. #915543
23.08.2007 20:36
Supreme Being

Supreme BeingSupreme BeingSupreme BeingSupreme BeingSupreme BeingSupreme BeingSupreme BeingSupreme Being

участник
Last Login: 14.12.2007 16:53
Сообщ.: 100, Visits: 1 707
http://forum.developing.ru/showthread.php?t=9881&highlight=2007
Сообщ. #915550
24.08.2007 10:00
Junior Member

Junior MemberJunior MemberJunior MemberJunior MemberJunior MemberJunior MemberJunior MemberJunior Member

участник
Last Login: 29.08.2007 10:58
Сообщ.: 16, Visits: 162

Да, уже существуют программные продукты, которые решают эту проблему, но они все платные.

Сообщ. #915554
« пред. тема | след. тема »


Эту тему читают Expand / Collapse
Посетители: 0 (0 гостей, 0 участников, 0 скрыт.участников)
Сейчас нет участников, просматривающих тему.
Модераторы: Alexey, boombastik, bazile, pl, VladConn

Время GMT +3:00, Сейчас 8:07