Добавил:
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:
курсовая / Источники / excel_2010_professionalnoe_programmirovanie_na_vba_RuLit_Me_412629.pdf
Скачиваний:
4
Добавлен:
27.09.2025
Размер:
22.97 Mб
Скачать

694

Часть VI. Разработка приложений

Приведенный ниже оператор возвращает значение True, если активизирован элемент управления Объединить и поместить в центре (Merge & Center). (Этот элемент управ­ ления отключен, если лист защищен или активная ячейка находится в таблице.)

MsgBox A p p lic a tio n . CommandBars. G etEnabledM so( "M ergeC enter")

Следующий код VBA добавляет элемент управления ActiveX Image на активный

лист, а также использует метод GetlmageM so для отображения картинки, соответст­ вующей элементу управления Найти и выделить (Find & Select), который находится в группе Редактирование (Editing) вкладки денты Главная (Ноше).

Sub

Im ageOnSheet()

 

 

 

Dim

Mylmage

As

OLEObject

 

 

Set

Mylmage

= A c tiv e s h e e t. O LEO bjects.Add _

 

(C la ssT ype := "Form s. Im age.1 ",

_

 

L e f t : =50,

 

 

 

 

Top:=50)

 

 

 

 

W ith

Mylmage. O b je c t

 

 

.A u to S ize

=

True

 

 

.B o rd e rS ty le

= 0

 

 

.P ic tu re

= A p p lic a tio n . CommandBars. _

 

 

G e tlm a g e M s o ("F in d D ia lo g ",

32, 32)

 

End

W ith

 

 

 

End

Sub

 

 

 

 

Для отображения значка ленты в области элемента управления Image (под названи­ ем Image 1), входящего в состав пользовательской формы, воспользуйтесь следующей процедурой.

P riv a te

Sub U s e r F o r m _ In itia liz e ()

W ith

Im agel

 

.P ic tu r e

= A p p lica tio n .C o m m a n d B a rs . _

 

Getlm ageM so( " F in d D ia lo g ", 32, 32)

.A u to S ize

= True

End

W ith

 

End Sub

 

 

Активизация вкладки

Непосредственного способа активизации вкладок ленты с помощью VBA не существу­ ет. Если необходимо сделать это, воспользуйтесь методом SendKeys. Этот метод имити­ рует нажатия клавиш. Для активизации вкладки ленты Главная (Ноше) нужно нажать кла­ вишу <Alt>, а затем — <Н>. Нажатие этих клавиш приводит к отображению на ленте под­ сказок клавиш. Для сокрытия этих подсказок нажмите клавишу <F6>. Подводя итоги, скажем, что для активизации вкладки Главная (Ноше) используется следующий оператор:

A p p lic a tio n . SendKeys "%h{F6 }"

Ниже приведены аргументы метода SendKeys, используемые для активизации дру­ гих вкладок:

Вставка (Insert): " %n{ F6}";

Разметка страницы (Page Layout): " { F6}";

Формулы (Formulas): " %ш{F 6} ";

Данные (Data): " { F6}";

Рецензирование (Review): " %r { F6}";