{"id":207,"date":"2011-08-21T12:11:20","date_gmt":"2011-08-21T03:11:20","guid":{"rendered":"http:\/\/www.ka-net.org\/blog\/?p=207"},"modified":"2011-08-21T12:12:40","modified_gmt":"2011-08-21T03:12:40","slug":"menu%e5%86%85%e3%81%ab%e3%81%82%e3%82%8bbutton%e3%81%ae%e6%95%b0%e3%82%92%e5%a2%97%e3%82%84%e3%81%99","status":"publish","type":"post","link":"https:\/\/www.ka-net.org\/blog\/?p=207","title":{"rendered":"menu\u5185\u306b\u3042\u308bbutton\u306e\u6570\u3092\u5897\u3084\u3059"},"content":{"rendered":"

\u300c\u5916\u90e8\u306eXML\u30d5\u30a1\u30a4\u30eb\u3092\u8aad\u307f\u8fbc\u307f\u3001\u30e6\u30fc\u30b6\u30fc\u540d\u306b\u5fdc\u3058\u3066menu\u5185\u5bb9\u3092\u5909\u66f4\u3059\u308b<\/a>\u300d\u306e\u95a2\u9023\u3067\u3001dynamicMenu<\/span>\u8981\u7d20\u306egetContent<\/span>\u5c5e\u6027\u306e\u30b3\u30fc\u30eb\u30d0\u30c3\u30af\u3092\u5229\u7528\u3057\u3066menu\u5185\u306b\u3042\u308bbutton\u306e\u6570\u3092\u5897\u3084\u3059\u65b9\u6cd5\u3092\u7d39\u4ecb\u3057\u307e\u3059\u3002
\n<\/p>\n

[\u30ea\u30dc\u30f3XML]<\/strong><\/p>\n

<?xml version="1.0" encoding="utf-8"?>\r\n<customUI onLoad="rbnSample_onLoad" xmlns="http:\/\/schemas.microsoft.com\/office\/2006\/01\/customui">\r\n  <ribbon>\r\n    <tabs>\r\n      <tab id="tabSample" label="Sample Tab">\r\n        <group id="grpSample" label="Sample Group">\r\n          <button id="btnSample" label="Button\u5897\u52a0" size="large" imageMso="PlusSign" onAction="btnSample_onAction" \/>\r\n          <dynamicMenu id="dmuSample" label="Sample Menu" size="large" imageMso="HappyFace" getContent="dmuSample_getContent" \/>\r\n        <\/group>\r\n      <\/tab>\r\n    <\/tabs>\r\n  <\/ribbon>\r\n<\/customUI><\/pre>\n
[\u6a19\u6e96\u30e2\u30b8\u30e5\u30fc\u30eb]<\/strong><\/p>\n
Option Explicit\r\n\r\nPrivate myRibbon As Office.IRibbonUI\r\n\r\nPrivate Sub rbnSample_onLoad(ribbon As IRibbonUI)\r\n  Set myRibbon = ribbon\r\nEnd Sub\r\n\r\nPrivate Sub btnSample_onAction(control As IRibbonControl)\r\n  IncButtonElement ThisWorkbook.Path & "\\Sample.xml", "btnSample", "Sample Button"\r\n  myRibbon.InvalidateControl "dmuSample"\r\nEnd Sub\r\n\r\nPrivate Sub dmuSample_getContent(control As IRibbonControl, ByRef returnedVal)\r\n  Dim MenuXML As String\r\n  \r\n  MenuXML = LoadMenuFile(ThisWorkbook.Path & "\\Sample.xml")\r\n  If Len(Trim$(MenuXML)) < 1 Then Exit Sub\r\n  returnedVal = MenuXML\r\nEnd Sub\r\n\r\nPrivate Function LoadMenuFile(ByVal FilePath As String) As String\r\n  Dim ret As String\r\n  \r\n  ret = "" '\u521d\u671f\u5316\r\n  On Error Resume Next\r\n  With CreateObject("Msxml2.DOMDocument")\r\n    .async = False\r\n    If .Load(FilePath) Then ret = .XML\r\n  End With\r\n  On Error GoTo 0\r\n  LoadMenuFile = ret\r\nEnd Function\r\n\r\nPrivate Sub IncButtonElement(ByVal XmlFilePath As String, ByVal BtnID As String, ByVal BtnLabel As String)\r\n'button\u8981\u7d20\u5897\u52a0\r\n  Dim d As Object\r\n  Dim n As Object\r\n  Dim cnt As Long\r\n  \r\n  Set d = CreateObject("Msxml2.DOMDocument")\r\n  d.async = False\r\n  If d.Load(XmlFilePath) Then\r\n    cnt = d.getElementsByTagName("button").Length\r\n    '[xmlns=""]\u304c\u8ffd\u52a0\u3055\u308c\u308b\u306e\u3092\u9632\u3050\u305f\u3081\u306b\u540d\u524d\u7a7a\u9593URI\u8a2d\u5b9a\r\n    Set n = d.createNode(1, "button", d.DocumentElement.NamespaceURI)\r\n    With d.DocumentElement.appendChild(n)\r\n      .setAttribute "id", BtnID & cnt + 1\r\n      .setAttribute "label", BtnLabel & cnt + 1\r\n      .setAttribute "imageMso", "HappyFace"\r\n    End With\r\n    Set n = Nothing\r\n    d.Save XmlFilePath\r\n  End If\r\n  Set d = Nothing\r\nEnd Sub<\/pre>\n
\u4e0a\u8a18\u30b3\u30fc\u30c9\u3092\u8a2d\u5b9a\u3057\u305f\u30d5\u30a1\u30a4\u30eb\u3068\u540c\u3058\u5834\u6240\u306b\u3001\u4e0b\u8a18XML\u30d5\u30a1\u30a4\u30eb\u3092\u4fdd\u5b58\u3057\u307e\u3059\u3002<\/p>\n
[Sample.xml]<\/strong><\/p>\n
<menu xmlns="http:\/\/schemas.microsoft.com\/office\/2006\/01\/customui" itemSize="large">\r\n  <button id="btnSample1" label="Sample Button1" imageMso="HappyFace"\/>\r\n<\/menu><\/pre>\n
XML\u30d5\u30a1\u30a4\u30eb\u4fdd\u5b58\u5f8c\u3001\u30ea\u30dc\u30f3\u30fb\u30ab\u30b9\u30bf\u30de\u30a4\u30ba\u3057\u305f\u30d5\u30a1\u30a4\u30eb\u3092\u958b\u304f\u3068\u300cSample Tab<\/strong>\u300d\u30bf\u30d6\u304c\u4e0b\u56f3\u306e\u3088\u3046\u306b\u8868\u793a\u3055\u308c\u307e\u3059\u3002<\/p>\n
\"\"<\/p>\n
\u300cButton\u5897\u52a0<\/strong>\u300d\u30dc\u30bf\u30f3\u3092\u30af\u30ea\u30c3\u30af\u3059\u308b\u3053\u3068\u3067\u3001\u300cSample Menu<\/strong>\u300d\u5185\u306b\u3042\u308bbutton\u306e\u6570\u3092\u5897\u3084\u3059\u3053\u3068\u304c\u3067\u304d\u307e\u3059\u3002<\/p>\n
\"\"<\/p>\n
\u4e0a\u8a18\u306e\u3088\u3046\u306b\u3001menu\u5185\u5bb9\u3092\u5916\u90e8\u306eXML\u30d5\u30a1\u30a4\u30eb\u304b\u3089\u8aad\u307f\u8fbc\u3080\u3088\u3046\u306b\u3057\u3066\u3001\u30de\u30af\u30ed\u3067XML\u30d5\u30a1\u30a4\u30eb\u3092\u66f8\u304d\u63db\u3048\u305f\u5f8c\u306b\u518d\u5ea6XML\u30d5\u30a1\u30a4\u30eb\u3092\u8aad\u307f\u8fbc\u3080\u3088\u3046\u306b\u3059\u308c\u3070\u3001\u52d5\u7684\u306b\u30ea\u30dc\u30f3(\u306e\u4e00\u90e8)\u3092\u5909\u66f4\u3059\u308b\u3053\u3068\u304c\u3067\u304d\u307e\u3059\u3002<\/p>\n","protected":false},"excerpt":{"rendered":"\u300c\u5916\u90e8\u306eXML\u30d5\u30a1\u30a4\u30eb\u3092\u8aad\u307f\u8fbc\u307f\u3001\u30e6\u30fc\u30b6\u30fc\u540d\u306b\u5fdc\u3058\u3066menu\u5185\u5bb9\u3092\u5909\u66f4\u3059\u308b\u300d\u306e\u95a2\u9023\u3067\u3001dynamicMenu\u8981\u7d20\u306egetContent\u5c5e\u6027\u306e\u30b3\u30fc\u30eb\u30d0\u30c3\u30af\u3092\u5229\u7528\u3057\u3066menu\u5185\u306b\u3042\u308bbutton\u306e\u6570\u3092\u5897\u3084\u3059\u65b9\u6cd5\u3092\u7d39\u4ecb\u3057\u307e\u3059\u3002","protected":false},"author":1,"featured_media":7130,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"_jetpack_newsletter_access":"","_jetpack_dont_email_post_to_subs":false,"_jetpack_newsletter_tier_id":0,"_jetpack_memberships_contains_paywalled_content":false,"_jetpack_feature_clip_id":0,"_jetpack_memberships_contains_paid_content":false,"footnotes":"","jetpack_publicize_message":"","jetpack_publicize_feature_enabled":true,"jetpack_social_post_already_shared":false,"jetpack_social_options":{"image_generator_settings":{"template":"highway","default_image_id":0,"font":"","enabled":false},"version":2},"jetpack_post_was_ever_published":false},"categories":[1],"tags":[7,11,12],"class_list":["post-207","post","type-post","status-publish","format-standard","has-post-thumbnail","hentry","category-ribbon","tag-ribbon-2","tag-office-2","tag-12"],"aioseo_notices":[],"aioseo_head":"\n\t\t\n\t\n\t\n\t\n\t\n\t\n\t\n\t\n\t\t\n\t\t\n\t\t\n\t\t\n\t\t\n\t\t\n\t\t\n\t\t\n\t\t\n\t\t\n\t\t\n\t\t