'Jis True
'customUI/customUI.xml
<?xml version="1.0" encoding="Shift_JIS" ?>
<customUI xmlns="http://schemas.microsoft.com/office/2009/07/customui">
<ribbon startFromScratch="false">
<tabs>
<tab id="tab1" label="tab label" keytip="S" insertBeforeMso="TabHome">
<group id="group1" label="group label" keytip="A">
<button id="button1" label="button label" imageMso="HappyFace" keytip="H" size="large" screentip="screentipは太字です。"
supertip="supertipは「 」で改行します。" tag="1024までの文字数を指定できます。" onAction="Sumple" />
</group>
</tab>
</tabs>
</ribbon>
</customUI>
'_rels/.rels
'utf-8 true
<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
<Relationships xmlns="http://schemas.openxmlformats.org/package/2006/relationships">
<Relationship Id="rId3" Type="http://schemas.openxmlformats.org/officeDocument/2006/relationships/extended-properties" Target="docProps/app.xml"/>
<Relationship Id="rId2" Type="http://schemas.openxmlformats.org/package/2006/relationships/metadata/core-properties" Target="docProps/core.xml"/>
<Relationship Id="rId1" Type="http://schemas.openxmlformats.org/officeDocument/2006/relationships/officeDocument" Target="xl/workbook.xml"/>
<Relationship Id="customUIRelID" Type="http://schemas.microsoft.com/office/2007/relationships/ui/extensibility" Target="customUI/customUI.xml"/>
</Relationships>
'vba
Option Explicit
Sub Sumple(control As IRibbonControl)
Dim Msg As String
Msg = "ID:" & control.ID & vbNewLine & vbNewLine & "Tag:" & control.Tag
MsgBox Prompt:=Msg, Buttons:=vbInformation, Title:="control"
End Sub