696 |
Часть VI. Разработка приложений |
Использование метода SendKeys далеко не всегда дает хороший результат. Напри мер, если вызвать на выполнение предыдущий пример во время отображения пользова тельской формы, коды нажатых клавиш будут пересланы форме UserForm, а не ленте.
Просмотр ошибок
Прежде чем выполнять любые настройки ленты, следует включить отображение ошибок, возникающих при использовании метода RibbonX. Выполните команду Файл1^ Параметры Excel (File^Excel Options) для открытия диалогового окна Параметры Excel, затем выберите вкладку Дополнительно (Advanced) и перейдите в раздел Дополнитель но (General). Здесь установите флажок Показывать ошибки интерфейса пользователя надстроек (Show Add-in User Interface Errors).
После выбора этой настройки будут отображаться ошибки RibbonX (в случае их на личия) при открытии рабочей книги — очень полезная возможность на этапе отладки.
Для создания рабочей книги, содержащей код RibbonX, который изменяет ленту, вы полните следующие действия.
1.Создайте новую рабочую книгу Excel, вставьте модуль VBA и введите код двух
процедур обратного вызова.
Ниже приводится код двух процедур, которые вызываются после щелчка мышью на кнопках.
|
Sub |
H e llo W o rld (c o n tro l |
As IR ib b o n C o n tro l) |
|
|
MsgBox "Здравствуй |
мир" |
|
End |
Sub |
|
|
Sub |
G o o d b ye W o rId (co n tro l As IR ib b o n C o n tro l) |
|
|
|
ThisW orkbook. C lose |
|
|
End |
Sub |
|
2. |
Сохраните рабочую книгу, присвоив ей имя rib b on m o d if ic a t io n . xlsm . |
||
3. |
Закройте рабочую книгу. |
|
|
4. |
Активизируйте папку, которая содержит файл rib b o n m o d ific a tio n .x ls m , |
||
и создайте папку custom UI.
5.Находясь в этой папке, воспользуйтесь текстовым редактором (например, Windows Notepad) для создания текстового файла customUI .xml, который содержит сле дующий XML-код RibbonX.
<customUI |
xm ln s= "h t t p : //s c h e m a s .m ic ro s o ft. c o m /o ffic e /2 0 0 6 /0 1 / _ |
||
cu s to m u i"> |
|
|
|
< ribb on > |
|
|
|
<tabs> |
|
|
|
<tab idM so="TabD ata"> |
|
|
|
<group |
id = "G ro u p l" |
la b e l= " C ustom "> |
|
< b u tto n id = " B u tto n l" |
|
||
|
la b e l= " Здравствуй мир" |
|
|
|
s iz e = "n o rm a l" |
|
|
|
o n A c tio n = "H e llo W o rld " |
|
|
|
imageMso="HappyFace" /> |
** |
|
< b u tto n id = "B u tto n 2 " |
|||
|
la b e l="Прощай |
мир" |
|
|
s iz e = " n o rm a l" |
|
|
|
onAction="G oodbyeW orId" |
/> |
|
|
im a g e M s o = "D e c lin e ln v ita tio n " |
||
Глава 22. Работа с лентой |
701 |
Процедуры обратного вы зова V B A
Как вы помните, рабочая книга включает две процедуры VBA: H elloW orld и Good byeWorld. Имейа этих процедур соответствуют параметрам onA ction в коде RibbonX. Именно с помощью параметра onA ction код RibbonX может быть связан с кодом VBA.
Обе процедуры VBA содержат аргумент c o n t r o l , который представляет собой объ ект I R ib b o n C o n t r o l. Этот объект включает три свойства, доступ к которым обеспе чивается с помощью кода VBA.
•C o n t e x t . Дескриптор активного окна, содержащий ленту, которая была активи
зирована с помощью обратного вызова. Например, воспользуйтесь следующим выражением для получения имени рабочей книги, которая включает код RibbonX:
c o n t r o l . C o n te x t. C a p tio n
•I d . Включает имя элемента управления, указанного с помощью его параметра Id.
•T a g . Содержит произвольный лист, который связан с элементом управления. Процедуры обратного вызова VBA могут иметь произвольную степень сложности.
Файл . r e l s
После вставки файла, содержащего код RibbonX, эффект достигается после установки связи между файлами документа и настроек. Эти связи создаются с помощью XML-кода и хранятся в файле с расширением . r e l s , который находится в папке _ r e ls . Ниже представлена связь для примера, представленного в предыдущем разделе.
R e la tio n s h ip |
Type="h t t p : / /s c h e m a s .m ic ro s o ft. c o m /o ffic e /2 0 0 6 / |
|
r e la t io n s h ip s / u i/ e x t e n s ib ilit y " |
T a rg e t= " /c u s to m U I/c u s to m U I. x m l" |
|
Id = "12345" |
/> |
|
Параметр T a r g e t указывает на |
файл c u s to m U I. x m l, который содержит код |
|
RibbonX. Значение параметра I d — любая строка, выбранная случайным образом. Та ким образом, эта строка может содержать любую информацию, а ее длина выбирается из соображений уникальности файла (т.е. длина должна быть настолько большой, чтобы не нашелся другой тег использующий тот же параметр
Код RibbonX
А теперь рассмотрим более сложный вопрос — создание XML-кода, который выполня ет изменение пользовательского интерфейса. Как отмечалось ранее, в этой книге не рас сматриваются методы написания кода RibbonX. Все ограничивается несколькими приме рами, и для получения другой информации следует обращаться к другим источникам.
Использование изображ ений im ageM so
ВMicrosoft Office 2010 поддерживается более 1000 именованных изображений, ко торые связаны с различными командами. Если вы знаете имя изображения, можете связать это изображение с пользовательскими элементами управления ленты.
На следующем рисунке показана рабочая книга, которая содержит имена всех изо бражений imageMso. При просмотре имен изображений можно видеть одновременно до 50 изображений (маленького либо среднего размеров), начиная с имени изображе ния, находящегося в активной ячейке. Эта рабочая книга под именем mso image brow ser. xlsm находится на прилагаемом к книге компакт-диске.
704 Часть VI. Разработка приложений
К о д У В А
Тег <C ustom U I> включает параметр onLoad, который определяет процедуру об ратного вызова VBA, код которой приводится ниже.
P u b lic MyRibbon As |
IR ibbonU I |
|
Sub |
I n itia liz e ( R ib b o n As IR ibb on U I) |
|
1 |
Вызывается при |
з а гр у з к е рабочей кн и ги |
|
Set MyRibbon = Ribbon |
|
End |
Sub |
|
Процедура I n i t i a |
l i z e создает объект IR ib b o n U I, который называется M yR ib |
|
bon. Обратите внимание на то, что M yR ib bo n — это глобальная переменная, поэтому доступ к ней возможен со стороны других процедур в этом модуле.
Затем была создана простая процедура обработки событий, которая вызывается в случае активизации рабочего листа. Эта процедура, находящаяся в модуле кода T h is W o rkbo ok (ЭтаКнига), вызывает процедуру C h e c k P a g e B re a k D is p la y .
P riv a te |
Sub W o rkb o o k _ S h e e tA ctiva te (B yV a l Sh As O b je c t) |
C a ll |
C heckPageBreakD isplay |
End Sub |
|
Процедура C h e c k P a g e B re a k D is p la y отменяет установку флажка. Другими сло вами, она разрушает все данные, связанные с этим элементом управления.
Sub |
C heckP ageB reakD isplay() |
|
' |
Вызывается при а кти ви за ц и и |
л иста |
|
M y R ib b o n .In v a lid a te C o n tro l |
( "C h e c k b o x l") |
End |
Sub |
|
После отмены установки флажка вызываются процедуры G e tP re s s e d |
и GetEn- |
||||||
a b le d . |
|
|
|
|
|
|
|
Sub |
G e tP re s s e d (c o n tro l As |
IR ib b o n C o n tro l, |
ByRef re tu rn e d V a l) |
|
|||
' |
Вызывается |
после |
д е активизац и и элемента |
управления |
|
||
|
On E rro r Resume |
N ext |
|
|
|
|
|
|
re tu rn e d V a l |
= A c tiv e s h e e t. D isplayP ageB reaks |
|
||||
End |
Sub |
|
|
|
|
|
|
Sub |
G e tE n a b le d (c o n tro l As |
IR ib b o n C o n tro l, |
ByRef re tu rn e d V a l) |
|
|||
' |
Вызывается |
после |
отмены |
у с та н о в ки флажка |
|
||
|
re tu rn e d V a l |
= T ypeN am e(A ctivesheet) |
= "W orksheet" |
|
|||
End |
Sub |
|
|
|
|
|
|
Обратите внимание |
на то, |
что аргумент |
r e tu r n e d V a l передается |
по ссылке |
|||
(B yR ef). Это означает, что код может изменять значение— именно это и происходит в данном случае. При выполнении процедуры G e tP re s s e d переменной re tu rn e d V a l присваивается значение, соответствующее состоянию свойства D is p la y P a g e B re a k s активного листа. В результате параметру P re s s e d элемента управления присваивается значение T ru e (если отображаются разрывы страниц). При этом флажок установлен. Если же значение этого параметра F a ls e , флажок не устанавливается.
В процедуре G e tE n a b le d переменной r e tu r n e d V a l присваивается значение T ru e , если в качестве активного листа выбран рабочий лист (не лист диаграммы). Таким образом, элемент управления активизируется только в том случае, когда в качестве актив ного листа выбран рабочий лист. **
В качестве вспомогательной процедуры VBA выбрана процедура o n A c tio n под на званием T o g g le P a g e B re a k D is p la y , которая выполняется в том случае, когда поль зователь устанавливает или снимает флажок.
706 Часть VI. Разработка приложений
Совет
Для создания “минимального” пользовательского интерфейса используется
атрибут s ta rtF ro m S c ra tc h |
тега <ribb on > . Если значение этого атрибута |
|
равно True, скрываются все встроенные вкладки. |
||
c rib b o n s ta rtF ro m S c ra tc h = "tru e " > |
||
С о зд а н и е группы ленты |
|
|
Код из примера rib b o n c o n tr o ls |
demo .xlsm создает четыре группы на вкладке |
|
My Stuff. Ниже представлен код, создающий эти четыре группы. |
||
<group id = "G ro u p l" |
la b e l= "M y S t u f f "> |
|
</g ro u p > |
la b e l= "M o re S t u f f "> |
|
<group id= "G rou p2 " |
||
< /g ro u p > |
la b e l= " B u ilt |
In S t u f f "> |
<group id= "G rou p3 " |
||
< /g ro u p > |
la b e l= " G a lle r ie s "> |
|
<group id= "G rou p4 " |
||
< /g ro u p > |
|
|
Эти пары тегов (<g ro u p >, </g ro u p >) находятся между тегами <tab> и </tab>, которые создают новую вкладку.
С о зд а н и е эл ем ен то в управления
Ниже представлен код RibbonX, который создает элементы управления в первой группе (Stuff), показанной на рис. 22.10. Обратите внимание на то, что элементы управ ления определены в первом наборе тегов <group >.
<group id = "G ro u p l" la b e l= "M y |
S t u f f "> |
/> |
|
c la b e lC o n tro l |
id = " L a b e ll" |
g e tL a b e l= "g e tL a b e ll" |
|
c la b e lC o n tro l |
id = "L a b e l2 " |
g e tL a b e l= "g e tL a b e l2 " |
/> |
<e d itB o x id = " E d itB o x l" showLabe1= " t ru e "
la b e l= "Number:"
onChange=" E d itB o xl_ C h a n g e " / >
<b u tto n id = " B u tto n l"
la b e l= "C a lc u la to r" s iz e = "la rg e "
o n A c tio n = "S h o w C a lc u la to r" im a g e M so = "C a lcu la to r" />
< /g ro u p >
Для каждого из двух элементов управления L a b e l |
(подпись) используется связанная |
||||
с ним процедура обратного вызова VBA ( g e tL a b e ll |
и g e tL a b e l2 ). Ниже представ |
||||
лен код этих процедур. |
|
|
|
|
|
Sub |
g e tL a b e ll( c o n tr o l As |
IR ib b o n C o n tro l, |
ByRef re tu rn e d V a l) |
||
End |
re tu rn e d V a l = "H e llo |
" |
& A p p lic a tio n .UserName |
||
Sub |
IR ib b o n C o n tro l, |
ByRef re tu rn e d V a l) |
|||
Sub |
g e tL a b e l2 (c o n tro l As |
||||
End |
re tu rn e d V a l = "Today |
is |
" & Date |
|
|
Sub |
|
|
|
|
|
Непосредственно после загрузки кода RibbonX вызываются на выполнение эти две процедуры, а заголовки элементов управления L a b e l динамически обновляются значе ниями имени пользователя и даты.
Элемент управления e d i t Box включает процедуру обратного вызова onChange под названием E ditB oxl_C hange, которая вычисляет квадратный корень от введенного
