Примеры создания панелей инструментов / Excel. Трюки и эффекты / Библиотека (книги, учебники и журналы) / В помощь Веб-Мастеру

Обложка
Аннотация

Книги автора: Кадровое делопроизводство и управление персоналом на компьютере Компьютер для индивидуального предпринимателя. Как вести учет быстро, легко и безошибочно Складской учет на компьютере. Лучшие программы, включая 1С 8.2 1С: Управление торговлей 8.2. Настройка, конфигурирование и администрирование Как защитить компьютер от ошибок, вирусов, хакеров Бизнес-планирование и анализ инвестиционных проектов на компьютере Компьютер от «А» до «Я»: Windows, Интернет, графика, музыка, видео и многое другое Excel. Трюки и эффекты Электронная почта (e-mail). Легкий старт Халява в Интернете Безопасность и анонимность работы в Интернете. Как защитить компьютер от любых посягательств извне Компьютер для бухгалтера Как быстро восстановить потерянные компьютерные данные. Подробное руководство по спасению информации Самоучитель работы на компьютере: быстро, легко, эффективно Веб-Самоделкин. Как самому создать сайт быстро и профессионально

/ Александр Чиртик i

Книги автора: Excel. Трюки и эффекты HTML: Популярный самоучитель

Книга: Excel. Трюки и эффекты

Примеры создания панелей инструментов

Примеры создания панелей инструментов

В данном разделе мы рассмотрим несколько трюков, с помощью которых можно создавать пользовательские панели инструментов.

Чтобы быстро создать пользовательскую панель инструментов с одной кнопкой, можно воспользоваться следующим макросом (листинг 3.41).

Листинг 3.41. Панель с одной кнопкой

Sub CreateCustomControlBar()

' Создание панели инструментов

With Application.CommandBars.Add(Name:="Панель",

Temporary:=True)

' Создание и настройка кнопки

With .Controls.Add(Type:=msoControlButton)

.Style = msoButtonIconAndCaption

.FaceId = 66

.Caption = «Просто кнопка»

End With

' Покажем панель

.Visible = True

End With

End Sub

Результат выполнения данного макроса представлен на рис. 3.11.

Рис. 3.11. Пользовательская панель инструментов

Обратите внимание, что в данном случае кнопка отображается со значком и подписью одновременно.

Примечание

Кнопка General на панели инструментов присутствует по умолчанию, независимо от выполненного макроса. В данном случае нас интересует лишь кнопка Просто кнопка, созданная с помощью макроса.

Теперь познакомимся с макросом, использование которого позволяет создать пользовательскую панель инструментов с двумя кнопками. Код данного макроса выглядит следующим образом (листинг 3.42).

Листинг 3.42. Панель с двумя кнопками

Sub CreateCustomControlBar()

' Создание панели инструментов

With Application.CommandBars.Add(Name:="Панель",

Temporary:=True, _

Position:=msoBarLeft)

' Создание и настройка первой кнопки

With .Controls.Add(Type:=msoControlButton)

.Style = msoButtonWrapCaption

.Caption = «Просто кнопка»

End With

' Создание и настройка второй кнопки

With .Controls.Add(Type:=msoControlButton)

.Style = msoButtonIconAndWrapCaption

.Caption = «Кнопка»

.FaceId = 225

End With

' Покажем панель

.Visible = True

End With

End Sub

После запуска макроса на вкладке Надстройки появится пользовательская панель (рис. 3.12).

Рис. 3.12. Панель в левой части интерфейса

В данном случае кнопка General также присутствует по умолчанию, наш макрос на ее появление не влияет.

Оглавление книги

Оглавление статьи/книги

Похожие страницы