MENU
Главная » Статьи » Надстройка

Создаем кнопку в надстройке с помощью XML.
Создаем кнопку, меню, группу кнопок.

1. Создаем файл AddIn1.xlam с модулем (Module1). Добавим в него процедуру:
'для кнопок на ленте необходимо указывать откуда она (...), при необходимости добавляем свойство нажатой кнопки (, pressed As Boolean)
Sub Ribbon_Button(control As IRibbonControl)
MsgBox "IT WORKS!"
End Sub
2. Создаем блокнот с именем "customUI.txt" -> вставляем в него код ниже -> сохраняем в кодировке UTF-8 -> меняем формат .txt на .xml:
(Код XML "объяснит" экселю, где должна быть наша кнопка. Можно создавать выпадающие списки и т.п.)
<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
<customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui">
    <ribbon>
      <tabs>
       <tab id="AddIn_1" label="AddIn1"> <!-- это название надстройки и её id -->
        <group id="Group_1" label="Group"> <!-- Создаем группу, при необходимости -->

<!--onAction покажет путь к нашей процедуре | size лучше указывать small (normal, large) -->
        <button id="RibbonBtn_1" label="Кнопка_normal" size="normal" imageMso="BevelShapeGallery" onAction="VBAProject.Module1.Ribbon_Button" supertip="Всплывающая подсказка 1"/>
<!-- Так можно делать выпадающий список кнопок -->
        <menu label="Выпадающий список" id = "menu1">
            <button id="RibbonBtn_2" label="Nml"  onAction="VBAProject.Module1.Ribbon_Button2" supertip="Всплывающая подсказка 2"/>    
            <button id="RibbonBtn_23" label="Nml2"  onAction="VBAProject.Module1.Ribbon_Button2" supertip="Всплывающая подсказка 2"/>    
        </menu>

       </group>

<!--еще одна группа с большой кнопкой. -->
      <group id="Group_2" label="Group2">
        <button id="RibbonBtn_3" label="Кнопка_large" size="large" imageMso="BevelShapeGallery" onAction="VBAProject.Module1.Ribbon_Button3" supertip="Всплывающая подсказка 3"/>
      </group>
    </tab>
   </tabs>
 </ribbon>
</customUI>
3. Создаем папку "customUI" -> переносим в неё файл "customUI.xml"
4. Меняем формат надстройки (.xlam) на .zip (или .rar) (или открываем с помощью архиватора) -> вынемаем из папки "_rels" файл ".rels" -> открываем как блокнот ->
-> Между "><" вставляем код -> сохраняем и выходим:
<Relationship Id="customUI1" Type="http://schemas.microsoft.com/office/2006/relationships/ui/extensibility" Target="customUI/customUI.xml"/>
5. Измененный файл ".rels" вставляем в папку архива "_rels" + нашу папку "customUI" кидаем в корень архива -> меняем расширение архива обратно с ".zip" на ."xlam".
 
Тут можно выбрать себе картинку для кнопки http://soltechs.net/customui/imageMso01.asp?gal=9&count=no
Так же можно всталять разделители  <separator id="separator_1"/>, текстовые поля <editBox label="text:" id="editBox_1" sizeString="XXXX" onChange="EditBox_1_Change"/> и т.п.
+ подписи к кнопке description="Returns..."
 
 

 
Категория: Надстройка | Добавил: clownsaround (14.02.2017)
Просмотров: 749 | Теги: Кнопка, вручную, надстройка, vba, XML | Рейтинг: 0.0/0
Всего комментариев: 0
avatar