{"id":196,"date":"2011-08-20T00:13:41","date_gmt":"2011-08-19T15:13:41","guid":{"rendered":"http:\/\/www.ka-net.org\/blog\/?p=196"},"modified":"2011-08-21T12:13:52","modified_gmt":"2011-08-21T03:13:52","slug":"%e5%a4%96%e9%83%a8%e3%81%aexml%e3%83%95%e3%82%a1%e3%82%a4%e3%83%ab%e3%82%92%e8%aa%ad%e3%81%bf%e8%be%bc%e3%81%bf%e3%80%81%e3%83%a6%e3%83%bc%e3%82%b6%e3%83%bc%e5%90%8d%e3%81%ab%e5%bf%9c%e3%81%98","status":"publish","type":"post","link":"https:\/\/www.ka-net.org\/blog\/?p=196","title":{"rendered":"\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"},"content":{"rendered":"

dynamicMenu<\/span>\u8981\u7d20\u306egetContent<\/span>\u5c5e\u6027\u306e\u30b3\u30fc\u30eb\u30d0\u30c3\u30af\u3092\u5229\u7528\u3059\u308b\u3053\u3068\u3067\u3001\u5916\u90e8\u304b\u3089XML\u30d5\u30a1\u30a4\u30eb\u3092\u8aad\u307f\u8fbc\u3093\u3067\u3001\u30e6\u30fc\u30b6\u30fc\u540d\u306b\u5fdc\u3058\u3066menu\u5185\u5bb9\u3092\u5909\u66f4\u3059\u308b\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 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          <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 Sub dmuSample_getContent(control As IRibbonControl, ByRef returnedVal)\r\n  Dim MenuXML As String\r\n  Dim MenuFilePath As String\r\n  \r\n  '\u30e6\u30fc\u30b6\u30fc\u540d\u3067\u8aad\u307f\u8fbc\u3080XML\u30d5\u30a1\u30a4\u30eb\u5206\u5c90\r\n  Select Case VBA.Environ$("USERNAME")\r\n    Case "Admin"\r\n      MenuFilePath = ThisWorkbook.Path & "\\MenuXML01.xml"\r\n    Case Else\r\n      MenuFilePath = ThisWorkbook.Path & "\\MenuXML02.xml"\r\n  End Select\r\n  MenuXML = LoadMenuFile(MenuFilePath)\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<\/pre>\n
\u4e0a\u8a18\u30b3\u30fc\u30c9\u3092\u8a2d\u5b9a\u3057\u305f\u30d5\u30a1\u30a4\u30eb\u3068\u540c\u3058\u5834\u6240\u306b\u3001\u4e0b\u8a182\u3064\u306eXML\u30d5\u30a1\u30a4\u30eb\u3092\u4fdd\u5b58\u3057\u307e\u3059\u3002<\/p>\n
[MenuXML01.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  <button id="btnSample2" label="Sample Button2" imageMso="HappyFace" \/>\r\n  <button id="btnSample3" label="Sample Button3" imageMso="HappyFace" \/>\r\n  <menu id="mnuSample" label="Sample Menu" itemSize="large" imageMso="FileOpen">\r\n    <button id="btnSample4" label="Sample Button4" imageMso="HappyFace" \/>\r\n    <button id="btnSample5" label="Sample Button5" imageMso="HappyFace" \/>\r\n    <button id="btnSample6" label="Sample Button6" imageMso="HappyFace" \/>\r\n  <\/menu>\r\n<\/menu><\/pre>\n
[MenuXML02.xml]<\/strong><\/p>\n
<menu xmlns="http:\/\/schemas.microsoft.com\/office\/2006\/01\/customui" itemSize="large">\r\n  <menu id="mnuSample" label="Sample Menu" itemSize="large" imageMso="FileOpen">\r\n    <button id="btnSample1" label="Sample Button1" imageMso="SadFace" \/>\r\n    <button id="btnSample2" label="Sample Button2" imageMso="SadFace" \/>\r\n    <button id="btnSample3" label="Sample Button3" imageMso="SadFace" \/>\r\n  <\/menu>\r\n  <button id="btnSample4" label="Sample Button4" imageMso="SadFace" \/>\r\n  <button id="btnSample5" label="Sample Button5" imageMso="SadFace" \/>\r\n  <button id="btnSample6" label="Sample Button6" imageMso="SadFace" \/>\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\u3001\u30e6\u30fc\u30b6\u30fc\u540d\u304c\u300cAdmin<\/span>\u300d\u306e\u5834\u5408\u306fMenuXML01.xml<\/strong>\u30d5\u30a1\u30a4\u30eb\u304c\u8aad\u307f\u8fbc\u307e\u308c\u3001\u300cSample Tab<\/strong>\u300d\u30bf\u30d6\u304c\u4e0b\u56f3\u306e\u3088\u3046\u306b\u8868\u793a\u3055\u308c\u307e\u3059\u3002<\/p>\n
\"\"<\/p>\n
\u30e6\u30fc\u30b6\u30fc\u540d\u304c\u300cAdmin<\/span>\u300d\u4ee5\u5916\u306e\u5834\u5408\u306b\u306f\u3001MenuXML02.xml<\/strong>\u30d5\u30a1\u30a4\u30eb\u304c\u8aad\u307f\u8fbc\u307e\u308c\u3001\u4e0b\u56f3\u306e\u3088\u3046\u306b\u8868\u793a\u3055\u308c\u307e\u3059\u3002<\/p>\n
\"\"<\/p>\n
\u4e0a\u8a18\u306e\u3088\u3046\u306b\u3001dynamicMenu<\/span>\u8981\u7d20\u306egetContent<\/span>\u5c5e\u6027\u306e\u30b3\u30fc\u30eb\u30d0\u30c3\u30af\u3092\u5229\u7528\u3059\u308b\u3053\u3068\u3067\u3001\u5916\u90e8\u306eXML\u30d5\u30a1\u30a4\u30eb\u306b\u5fdc\u3058\u3066\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":"dynamicMenu\u8981\u7d20\u306egetContent\u5c5e\u6027\u306e\u30b3\u30fc\u30eb\u30d0\u30c3\u30af\u3092\u5229\u7528\u3059\u308b\u3053\u3068\u3067\u3001\u5916\u90e8\u304b\u3089XML\u30d5\u30a1\u30a4\u30eb\u3092\u8aad\u307f\u8fbc\u3093\u3067\u3001\u30e6\u30fc\u30b6\u30fc\u540d\u306b\u5fdc\u3058\u3066menu\u5185\u5bb9\u3092\u5909\u66f4\u3059\u308b\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":[12,7,11],"class_list":["post-196","post","type-post","status-publish","format-standard","has-post-thumbnail","hentry","category-ribbon","tag-12","tag-ribbon-2","tag-office-2"],"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