Как проверить состояние Ribbon и строки панели быстрого доступа

Пользователь

Сообщений: 1716 Регистрация: 01.01.1970

30.10.2011 12:33:36

На различных Excel-форумах много обсуждалось как выключить ленту, но как проверить выключена ли она, нашел только

If Application.ExecuteExcel4Macro("Get.ToolBar(7,""Ribbon"")") Then

условие которое всегда возвращает True.

Вопрос 1: Есть ли возможность написать функцию средствами VBA, которая будет возвращать состояние ленты - свернута или несвернута.

Вопрос 2: Есть ли возможность написать функцию средствами VBA, которая будет возвращать
состояние панели быстрого доступа - сверху ленты или под ней.

Заранее благодарю,
Владимир.

VovaK Пользователь Сообщений: 1716 Регистрация: 01.01.1970	#2 03.11.2011 23:23:41 Не совсем то, но работает Function MenuStatus() As Single Dim AppDimention As Single, WinDimention As Single, Name As String Dim WinState As Integer WinState = 0 Name = ActiveWindow.Parent.Name Application.ScreenUpdating = False If Windows(Name).WindowState <> xlMaximized Then If Windows(Name).WindowState = xlNormal Then WinState = 1 Windows(Name).WindowState = xlMaximized End If AppDimention = Application.Height WinDimention = Windows(Name).Height MenuStatus = AppDimention - WinDimention If WinState = 1 Then Windows(Name).WindowState = xlNormal Application.ScreenUpdating = True End Function