|
|
|
Junior 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
|
|
|
|
|
Supreme Being
      
участник
Last Login: 14.12.2007 16:53
Сообщ.: 100,
Visits: 1 707
|
|
|
|
|
|
Junior Member
      
участник
Last Login: 29.08.2007 10:58
Сообщ.: 16,
Visits: 162
|
|
Да, уже существуют программные продукты, которые решают эту проблему, но они все платные.
|
|
|
|