{"id":11930,"date":"2019-07-12T08:00:26","date_gmt":"2019-07-11T23:00:26","guid":{"rendered":"https:\/\/www.ka-net.org\/blog\/?p=11930"},"modified":"2019-07-12T10:39:59","modified_gmt":"2019-07-12T01:39:59","slug":"office-vba%e3%82%ab%e3%82%b9%e3%82%bf%e3%83%a0xml%e3%82%92%e4%bd%bf%e3%81%a3%e3%81%a6%e8%a8%ad%e5%ae%9a%e6%83%85%e5%a0%b1%e3%81%aa%e3%81%a9%e3%82%92%e3%83%89%e3%82%ad%e3%83%a5%e3%83%a1%e3%83%b3","status":"publish","type":"post","link":"https:\/\/www.ka-net.org\/blog\/?p=11930","title":{"rendered":"[Office VBA]\u30ab\u30b9\u30bf\u30e0XML\u3092\u4f7f\u3063\u3066\u8a2d\u5b9a\u60c5\u5831\u306a\u3069\u3092\u30c9\u30ad\u30e5\u30e1\u30f3\u30c8\u306b\u4fdd\u5b58\u3059\u308b\u65b9\u6cd5"},"content":{"rendered":"<p><a href=\"https:\/\/twitter.com\/\" title=\"twitter - Google \u691c\u7d22\" target=\"_blank\" rel=\"noopener noreferrer\">Twitter<\/a>\u3067\u3001<a href=\"https:\/\/twitter.com\/akashi_keirin\" title=\"\u30c1\u30f3\u2606\u30c6\u30af\u30e9(@akashi_keirin)\u3055\u3093\" target=\"_blank\" rel=\"noopener noreferrer\">@akashi_keirin<\/a>\u3055\u3093\u306e\u4e0b\u8a18\u30c4\u30a4\u30fc\u30c8\u3092\u898b\u304b\u3051\u307e\u3057\u305f\u3002<\/p>\n<blockquote class=\"twitter-tweet\" data-lang=\"ja\">\n<p lang=\"ja\" dir=\"ltr\"><a href=\"https:\/\/twitter.com\/hashtag\/ExcelVBA?src=hash&amp;ref_src=twsrc%5Etfw\">#ExcelVBA<\/a> \u306e\u5834\u5408\u3001\u51e6\u7406\u306b\u5fc5\u8981\u306a\u8a2d\u5b9a\u306e\u985e\u306f\u96a0\u3057\u30b7\u30fc\u30c8\u3067\u3082\u4f5c\u3063\u3066\u305d\u306e\u30b7\u30fc\u30c8\u306b\u6301\u305f\u305b\u3066\u304a\u3051\u3070\u3088\u3044\u3002<br \/>\u3057\u304b\u3057\u3001\u4ed6\u306e <a href=\"https:\/\/twitter.com\/hashtag\/VBA?src=hash&amp;ref_src=twsrc%5Etfw\">#VBA<\/a> \u3067\u306f\u305d\u306e\u65b9\u6cd5\u304c\u4f7f\u3048\u306a\u3044<br \/>\u3053\u306e\u554f\u984c\u3092\u3001\u306a\u308b\u3079\u304f\u7c21\u5358\u306b\u89e3\u6c7a\u3057\u305f\u3044\u306d\u3048\u3002<\/p>\n<p>&mdash; \u30c1\u30f3\u2606\u30c6\u30af\u30e9 (@akashi_keirin) <a href=\"https:\/\/twitter.com\/akashi_keirin\/status\/1148436969636032512?ref_src=twsrc%5Etfw\">2019\u5e747\u67089\u65e5<\/a><\/p><\/blockquote>\n<p><script async src=\"https:\/\/platform.twitter.com\/widgets.js\" charset=\"utf-8\"><\/script><\/p>\n<p>\u306a\u308b\u307b\u3069\u3002<br \/>\n\u8a2d\u5b9a\u7b49\u4f55\u3089\u304b\u306e\u60c5\u5831\u3092\u30d5\u30a1\u30a4\u30eb\u306b\u6301\u305f\u305b\u3066\u304a\u304d\u305f\u3044\u72b6\u6cc1\u306f\u591a\u3005\u3042\u308a\u307e\u3059\u3002<br \/>\nExcel\u3067\u306f\u201c<a href=\"http:\/\/www.asahi-net.or.jp\/~ef2o-inue\/vba_o\/sub05_020_030.html\" title=\"VBA\u5fdc\u7528(\u96a0\u3057\u30b7\u30fc\u30c8\u3092\u4f5c\u308a\u300c\u518d\u8868\u793a\u300d\u3067\u304d\u306a\u3044\u3088\u3046\u306b\u3059\u308b\u3002)\" target=\"_blank\" rel=\"noopener noreferrer\">\u96a0\u3057\u30b7\u30fc\u30c8<\/a>\u201d\u304c\u3088\u304f\u4f7f\u308f\u308c\u307e\u3059\u304c\u3001\u4ed6\u306e\u30a2\u30d7\u30ea\u30b1\u30fc\u30b7\u30e7\u30f3\u3060\u3068\u78ba\u304b\u306b\u96e3\u3057\u3044\u304b\u3082\u3057\u308c\u307e\u305b\u3093\u3002<\/p>\n<p>\u305d\u3053\u3067\u79c1\u304c\u30aa\u30b9\u30b9\u30e1\u3057\u305f\u3044\u306e\u306f\u300c<a href=\"https:\/\/docs.microsoft.com\/ja-jp\/visualstudio\/vsto\/custom-xml-parts-overview?view=vs-2019\" title=\"\u30ab\u30b9\u30bf\u30e0 XML \u90e8\u5206\u306e\u6982\u8981 - Visual Studio | Microsoft Docs\" target=\"_blank\" rel=\"noopener noreferrer\">\u30ab\u30b9\u30bf\u30e0XML<\/a>\u300d\u3067\u3059\u3002<\/p>\n<p>\u3053\u306e\u6a5f\u80fd\u306fOffice 2007\u3067\u8ffd\u52a0\u3055\u308c\u305f\u3082\u306e\u3067\u3001\u65e9\u3044\u8a71\u304c<span style=\"color: #ff0000; font-weight: bold;\">\u201c\u30d5\u30a1\u30a4\u30eb\u5185\u306bXML\u3068\u3057\u3066\u4efb\u610f\u306e\u60c5\u5831\u3092\u4fdd\u5b58\u3067\u304d\u308b\u6a5f\u80fd\u201d<\/span>\u3067\u3059\u3002<\/p>\n<p>\u4e0b\u8a18\u304c\u30ab\u30b9\u30bf\u30e0XML\u3092\u4f7f\u3063\u3066\u60c5\u5831\u3092\u8aad\u307f\u66f8\u304d\u3059\u308b\u7c21\u5358\u306a\u30b3\u30fc\u30c9\u3067\u3001\u5b9f\u969b\u306b\u52d5\u304d\u3092\u898b\u305f\u65b9\u304c\u30a4\u30e1\u30fc\u30b8\u3057\u3084\u3059\u3044\u304b\u3068\u601d\u3044\u307e\u3059\u3002<\/p>\n<p>PowerPoint\u7528\u306e\u30b3\u30fc\u30c9\u3067\u3059\u304c\u3001Presentation\u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u306e\u90e8\u5206\u3092Word\u306eDocument\u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u3084Excel\u306eWorkbook\u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u306b\u5909\u66f4\u3059\u308c\u3070\u3001\u4ed6\u306eOffice\u30a2\u30d7\u30ea\u30b1\u30fc\u30b7\u30e7\u30f3\u3067\u3082\u5b9f\u884c\u53ef\u80fd\u3067\u3059\u3002<\/p>\n<pre class=\"brush: vb; title: ; notranslate\" title=\"\">'\u203b \u4e0b\u8a18\u306fPowerPoint\u7528\u30b3\u30fc\u30c9\r\nOption Explicit\r\n\r\nPrivate Const ns As String = &quot;http:\/\/mynamespace\/CustomProperties&quot; '\u540d\u524d\u7a7a\u9593\r\n\r\nPublic Sub Sample()\r\n'\u30ab\u30b9\u30bf\u30e0\u30d7\u30ed\u30d1\u30c6\u30a3\u3068\u3057\u3066\u5024\u3092\u4fdd\u5b58\r\n  SaveCustomProperty ActivePresentation, ns, &quot;CompanyName&quot;, &quot;\u682a\u5f0f\u4f1a\u793eKA-NET&quot;\r\nEnd Sub\r\n\r\nPublic Sub Sample2()\r\n'\u4fdd\u5b58\u3055\u308c\u305f\u30ab\u30b9\u30bf\u30e0\u30d7\u30ed\u30d1\u30c6\u30a3\u3092\u8aad\u307f\u8fbc\u307f\r\n  Debug.Print LoadCustomProperty(ActivePresentation, ns, &quot;CompanyName&quot;)\r\nEnd Sub\r\n\r\nPublic Sub Sample3()\r\n'\u30ab\u30b9\u30bf\u30e0\u30d7\u30ed\u30d1\u30c6\u30a3\u3092\u524a\u9664\r\n  DeleteCustomProperty ActivePresentation, ns, &quot;CompanyName&quot;\r\nEnd Sub\r\n\r\nPublic Sub Sample4()\r\n'\u30ab\u30b9\u30bf\u30e0XML\u3092\u524a\u9664\r\n  DeleteCustomXMLPart ActivePresentation, ns\r\nEnd Sub\r\n\r\nPrivate Sub SaveCustomProperty(ByVal doc As Object, _\r\n                               ByVal ns As String, _\r\n                               ByVal property_name As String, _\r\n                               ByVal property_value As String)\r\n'\u30ab\u30b9\u30bf\u30e0\u30d7\u30ed\u30d1\u30c6\u30a3\u8a2d\u5b9a\r\n  Dim parts As Office.CustomXMLParts\r\n  Dim part As Office.CustomXMLPart\r\n  Dim root As Office.CustomXMLNode\r\n  Dim target As Office.CustomXMLNode\r\n  Dim target_attr As Office.CustomXMLNode\r\n  Dim child As Object 'IXMLDOMElement\r\n  Dim attr_id As Object 'IXMLDOMAttribute\r\n  Dim attr_val As Object 'IXMLDOMAttribute\r\n  Dim d As Object\r\n  \r\n  Set parts = doc.CustomXMLParts.SelectByNamespace(ns)\r\n  If parts.Count &lt; 1 Then\r\n    Set part = InitCustomXMLParts(doc, ns)\r\n  Else\r\n    Set part = parts.Item(1)\r\n  End If\r\n  \r\n  Set root = part.DocumentElement\r\n  Set target = root.SelectSingleNode(&quot;\/\/CustomProperty&#x5B;@id='&quot; &amp; property_name &amp; &quot;']&quot;)\r\n  If target Is Nothing Then\r\n    'CustomProperty\u8981\u7d20\r\n    'id\u5c5e\u6027\uff1aproperty_name\r\n    'value\u5c5e\u6027\uff1aproperty_value\r\n    Set d = CreateObject(&quot;MSXML2.DOMDocument.6.0&quot;)\r\n    Set child = d.createElement(&quot;CustomProperty&quot;)\r\n    Set attr_id = d.createAttribute(&quot;id&quot;)\r\n    attr_id.NodeValue = property_name\r\n    child.Attributes.setNamedItem attr_id\r\n    Set attr_val = d.createAttribute(&quot;value&quot;)\r\n    attr_val.NodeValue = property_value\r\n    child.Attributes.setNamedItem attr_val\r\n    d.appendChild child\r\n    root.AppendChildSubtree d.XML\r\n  Else\r\n    For Each target_attr In target.Attributes\r\n      If target_attr.BaseName = &quot;value&quot; Then\r\n        target_attr.NodeValue = property_value\r\n        Exit For\r\n      End If\r\n    Next\r\n  End If\r\n  'If Not root Is Nothing Then Debug.Print root.XML '\u78ba\u8a8d\u7528\r\nEnd Sub\r\n\r\nPrivate Function LoadCustomProperty(ByVal doc As Object, _\r\n                                    ByVal ns As String, _\r\n                                    ByVal property_name As String) As String\r\n'\u30ab\u30b9\u30bf\u30e0\u30d7\u30ed\u30d1\u30c6\u30a3\u8aad\u8fbc\r\n  Dim parts As Office.CustomXMLParts\r\n  Dim root As Office.CustomXMLNode\r\n  Dim target As Office.CustomXMLNode\r\n  Dim target_attr As Office.CustomXMLNode\r\n  \r\n  Set parts = doc.CustomXMLParts.SelectByNamespace(ns)\r\n  If parts.Count &gt; 0 Then\r\n    Set root = parts.Item(1).DocumentElement\r\n    Set target = root.SelectSingleNode(&quot;\/\/CustomProperty&#x5B;@id='&quot; &amp; property_name &amp; &quot;']&quot;)\r\n    If Not target Is Nothing Then\r\n      For Each target_attr In target.Attributes\r\n        If target_attr.BaseName = &quot;value&quot; Then LoadCustomProperty = target_attr.NodeValue\r\n      Next\r\n    End If\r\n  End If\r\nEnd Function\r\n\r\nPrivate Sub DeleteCustomProperty(ByVal doc As Object, _\r\n                                 ByVal ns As String, _\r\n                                 ByVal property_name As String)\r\n'\u30ab\u30b9\u30bf\u30e0\u30d7\u30ed\u30d1\u30c6\u30a3\u524a\u9664\r\n  Dim parts As Office.CustomXMLParts\r\n  Dim root As Office.CustomXMLNode\r\n  Dim target As Office.CustomXMLNode\r\n  \r\n  Set parts = doc.CustomXMLParts.SelectByNamespace(ns)\r\n  If parts.Count &gt; 0 Then\r\n    Set root = parts.Item(1).DocumentElement\r\n    Set target = root.SelectSingleNode(&quot;\/\/CustomProperty&#x5B;@id='&quot; &amp; property_name &amp; &quot;']&quot;)\r\n    If Not target Is Nothing Then target.Delete\r\n  End If\r\n  'If Not root Is Nothing Then Debug.Print root.XML '\u78ba\u8a8d\u7528\r\nEnd Sub\r\n\r\nPrivate Function InitCustomXMLParts(ByVal doc As Object, _\r\n                                    ByVal ns As String) As Office.CustomXMLPart\r\n'\u30ab\u30b9\u30bf\u30e0XML\u521d\u671f\u5316\r\n  Dim d As Object, root As Object\r\n  \r\n  Set d = CreateObject(&quot;MSXML2.DOMDocument.6.0&quot;)\r\n  Set root = d.createElement(&quot;CustomProperties&quot;)\r\n  root.setAttribute &quot;xmlns&quot;, ns\r\n  d.appendChild root\r\n  Set InitCustomXMLParts = doc.CustomXMLParts.Add(d.XML)\r\nEnd Function\r\n\r\nPrivate Sub DeleteCustomXMLPart(ByVal doc As Object, _\r\n                                ByVal ns As String)\r\n'\u30ab\u30b9\u30bf\u30e0XML\u524a\u9664\r\n  Dim parts As Office.CustomXMLParts\r\n  \r\n  Set parts = doc.CustomXMLParts.SelectByNamespace(ns)\r\n  If parts.Count &gt; 0 Then parts.Item(1).Delete\r\nEnd Sub<\/pre>\n<p>\u4e0a\u8a18\u300cSample\u300d\u3092\u5b9f\u884c\u3059\u308b\u3068\u3001\u4e0b\u8a18\u306e\u3088\u3046\u306aXML\u304c\u30c9\u30ad\u30e5\u30e1\u30f3\u30c8\u5185\u306b\u4fdd\u5b58\u3055\u308c\u307e\u3059\u3002<\/p>\n<pre class=\"brush: xml; title: ; notranslate\" title=\"\">&lt;CustomProperties xmlns=&quot;http:\/\/mynamespace\/CustomProperties&quot;&gt;\r\n  &lt;CustomProperty xmlns=&quot;&quot; id=&quot;CompanyName&quot; value=&quot;\u682a\u5f0f\u4f1a\u793eKA-NET&quot; \/&gt;\r\n&lt;\/CustomProperties&gt;<\/pre>\n<p>\u4fdd\u5b58\u3057\u305f\u30d5\u30a1\u30a4\u30eb\u3092Zip\u89e3\u51cd\u3059\u308b\u3068\u3001\u300ccustomXml\u300d\u30d5\u30a9\u30eb\u30c0\u5185\u306bXML\u30d5\u30a1\u30a4\u30eb\u3068\u3057\u3066\u4fdd\u5b58\u3055\u308c\u3066\u3044\u308b\u3053\u3068\u304c\u78ba\u8a8d\u3067\u304d\u307e\u3059\u3002<\/p>\n<p><a href=\"https:\/\/www.ka-net.org\/blog\/wp-content\/uploads\/VBA_CustomXML_01.jpg\"><img loading=\"lazy\" decoding=\"async\" src=\"https:\/\/www.ka-net.org\/blog\/wp-content\/uploads\/VBA_CustomXML_01.jpg\" alt=\"\" width=\"1092\" height=\"334\" class=\"alignnone size-full wp-image-11931\" srcset=\"https:\/\/www.ka-net.org\/blog\/wp-content\/uploads\/VBA_CustomXML_01.jpg 1092w, https:\/\/www.ka-net.org\/blog\/wp-content\/uploads\/VBA_CustomXML_01-300x92.jpg 300w, https:\/\/www.ka-net.org\/blog\/wp-content\/uploads\/VBA_CustomXML_01-768x235.jpg 768w, https:\/\/www.ka-net.org\/blog\/wp-content\/uploads\/VBA_CustomXML_01-1024x313.jpg 1024w\" sizes=\"auto, (max-width: 1092px) 100vw, 1092px\" \/><\/a><\/p>\n<p>\u4fdd\u5b58\u3055\u308c\u305fXML\u304b\u3089\u5024\u3092\u8aad\u307f\u8fbc\u3080\u5834\u5408\u306f\u3001\u300cSample2\u300d\u306e\u3088\u3046\u306b\u300cLoadCustomProperty\u300d\u3092\u4f7f\u7528\u3057\u307e\u3059\u3002<\/p>\n<h4 class=\"style4a\">\u4efb\u610f\u306e\u30d5\u30a1\u30a4\u30eb\u3092\u30c9\u30ad\u30e5\u30e1\u30f3\u30c8\u306b\u57cb\u3081\u8fbc\u3080\u65b9\u6cd5<\/h4>\n<p>\u307e\u305f\u3001\u4e0b\u8a18\u8a18\u4e8b\u3067\u7d39\u4ecb\u3057\u3066\u3044\u308b\u3088\u3046\u306a\u3001\u30d5\u30a1\u30a4\u30eb\u3092Base64\u30a8\u30f3\u30b3\u30fc\u30c9\u30fb\u30c7\u30b3\u30fc\u30c9\u3059\u308b\u51e6\u7406\u3092\u7d44\u307f\u8fbc\u3081\u3070\u3001\u4efb\u610f\u306e\u30d5\u30a1\u30a4\u30eb\u3092\u30c9\u30ad\u30e5\u30e1\u30f3\u30c8\u306b\u57cb\u3081\u8fbc\u3080\u3053\u3068\u3082\u3067\u304d\u307e\u3059\u3002<\/p>\n<div class=\"cardlink\"><a href=\"https:\/\/www.ka-net.org\/blog\/?p=4479\"><div class=\"cardlink_thumbnail\"><img src='https:\/\/www.ka-net.org\/blog\/wp-content\/uploads\/eyecatch-Excel-120x120.png' alt='\u30d5\u30a1\u30a4\u30eb\u3092Base64\u30a8\u30f3\u30b3\u30fc\u30c9\u30fb\u30c7\u30b3\u30fc\u30c9\u3059\u308bVBA\u30de\u30af\u30ed' width=120 height=120 \/><\/a><\/div><div class=\"cardlink_content\"><span class=\"timestamp\">2014.05.30<\/span><div class=\"cardlink_title\"><a href=\"https:\/\/www.ka-net.org\/blog\/?p=4479\">\u30d5\u30a1\u30a4\u30eb\u3092Base64\u30a8\u30f3\u30b3\u30fc\u30c9\u30fb\u30c7\u30b3\u30fc\u30c9\u3059\u308bVBA\u30de\u30af\u30ed <\/a><\/div><div class=\"cardlink_excerpt\">\u4ee5\u524d\u66f8\u3044\u305f\u30d5\u30a1\u30a4\u30eb\u306eBase64\u30a8\u30f3\u30b3\u30fc\u30c9\u30fb\u30c7\u30b3\u30fc\u30c9\u51e6\u7406\u3092\u884c\u3046VBA\u30de\u30af\u30ed\u3092\u30e1\u30e2\u3068\u3057\u3066\u6b8b\u3057\u3066\u304a\u304d\u307e\u3059\u3002\r\n\r\n[vb]Option Explicit\r\n\r\nPublic Sub Sample()\r\n  Sheet1.TextBox1.Text = Encode...<\/div><\/div><div class=\"cardlink_footer\"><\/div><\/div>\n<pre class=\"brush: vb; title: ; notranslate\" title=\"\">Public Sub Sample5()\r\n  SaveCustomProperty ActivePresentation, ns, &quot;Sample.png&quot;, EncodeBase64(&quot;C:\\Test\\Sample.png&quot;)\r\nEnd Sub\r\n\r\nPublic Sub Sample6()\r\n  Dim b64 As String\r\n  Const fn As String = &quot;Sample.png&quot;\r\n  \r\n  b64 = LoadCustomProperty(ActivePresentation, ns, fn)\r\n  DecodeBase64 b64, &quot;C:\\Test\\Picture\\&quot; &amp; fn\r\nEnd Sub<\/pre>\n<h5 class=\"style5a\">\u30a8\u30f3\u30b3\u30fc\u30c9\u3057\u305f\u30d5\u30a1\u30a4\u30eb\u3092\u57cb\u3081\u8fbc\u3093\u3060\u30ab\u30b9\u30bf\u30e0XML\u306e\u4f8b<\/h5>\n<pre class=\"brush: xml; title: ; notranslate\" title=\"\">&lt;CustomProperties xmlns=&quot;http:\/\/mynamespace\/CustomProperties&quot;&gt;\r\n  &lt;CustomProperty xmlns=&quot;&quot; id=&quot;Sample.png&quot; value=&quot;iVBORw0KGgoAAAANSUhEUgAAAIEAAABRCAIAAAB6\/FIoAAAAAXNSR0IArs4c6QAAAARnQU1B&amp;#xA;AACxjwv8YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAASoSURBVHhe7ZvrYaswDEYzFwNlnkzD&amp;#xA;MgxzrwwiwZJsS7agpNX51xY\/9B3bgTR5BEEQBEEQBEEQBEEQBEEQBIE70\/P5mucF+JezLK\/n&amp;#xA;hBcFpzBB9DR2xvIKC6cwPWHZY8gUth\/mJ7YKnEjxY7hHlmV+Tp8V\/5zx90DsBE\/E\/JdZOvSP&amp;#xA;EmIjOCHnX3zNnV7vq\/\/YPshz8lt\/h0TfNKL9bARHB9ME92AJuA+TeaW\/wmXY4HKO+3\/FR4Ig&amp;#xA;AA5\/\/GOR9WU7MY8p2G98cWQT6zF5qQ6elYMDScAFZwvc9irue5Wk2wXstwFsoA382Q7bB6Np&amp;#xA;XS4AjhpN9O8TJ2c7o+Qto5h3Xm1noc4OWHcnCoAAK+cNeeLQ5MnvIJqt2IrrKdfzMBK2gN9L&amp;#xA;fI50w5VILyV4iOTLQZkNLaE1f6Fke81+DnhP522BB47wYX3ewz9u5A60VZEqWiXwfZ+wRsh6&amp;#xA;6XPAJ9PrUgWOsSI\/8P2kA+vyY8u3Jzs2lRO3wMp2C8sX\/4EuB0YFRQeAIUcHB5cbUNHjgFbS&amp;#xA;bFVxYEnSPC6BSbyFgQ4HPYVUHeijoEPbHNzVgNUBq0NXSDZIakGl6OKgo5tCZOvAuota4KPU&amp;#xA;Cv5KidoBPOPR\/LUh5NltjboiIY0MDs7ZBOnBF558WS5GwRoH4iO2\/m0K0UGXhW4HdKwRA+s7&amp;#xA;Dq23HEwD5LNjTeV3OAz5J2QHgoXWzDsdsE1gWqUrquA\/QEDYUEPJQektjsJjRpWSA7 MFEqbS&amp;#xA;AVWgbYYHjTr4D8oRdlg+8spPpNVv6nun7ECwUFukXQ7oCNVWmDteWgMWY1qNsFTxFweM+4wu&amp;#xA;EpHu9DdqDqQZFFPqcUAzkvOpvrF5AJN\/I8fn6qDn5OHUHUhzKKWbB6pxoFBQj2BlzUEYTNoE&amp;#xA;gIsD8lmOQVoOxFmIdVgd0H7FFoUggVL0SFHemAMY1S\/7nbYDgCchXGh1QDrVDb29s99OoezO&amp;#xA;6MBcVgcqB1JN7FLjZGm4nsUVNwFwQwfqIYS68nJskz1TAek755sdiBaO15smS\/uyJlOhauDb&amp;#xA;HQC8vk8LEmu9VtKRnwIudzDEyx20sygfSRYH5Fq\/yojb1LGrA8fV8sa0eDcEC1thhmJPKkxS&amp;#xA;O6q7IyEjfSOQCIFUmt7BaC4ypFcs5v4OehckrReYyXuXlb5O2Qak0z3s3+sAIE0Zagcu24Au&amp;#xA;ivfot3dQnLmKuoVytaOxcCp1\/HIHvH1GsbPRWCh0FlmHo4OR9vdzAJQ3w0UOqga+wAEJsC8N&amp;#xA;GsLOJQ4aBsZL\/A4HgLgZLnDA9PMxnR0MTLYAmeCAZJZGZbr02t5hmXmpo+FlNtxBg+N\/XG2f&amp;#xA;NxCg0ZZn61EWk17oZXgsfVn3AL+72Pp+4vhGIMlWknF3MLpU7wKN0FYXE1BrP+wgraz9C7Gq&amp;#xA;\/+F9CewgUUuQPq9Sbezg4JeiPc1zWCug9bHCcFBEiLO6nNOHjPC6A4pEw0EF4VCBhNiqLn2w&amp;#xA;M93HaeIMB1UkCyvpK2LpK9dS9Bv6KMNBA\/mEqaNc\/ztUtO0W7I+g99D16U7qIDZCEfwSgQTc&amp;#xA;lndkv8MPvNgJlyO86oSFy6GnXRxHQRAEQRAEQRAEQRDcj8fjP8ue\/AX4jXxKAAAAAElFTkSu&amp;#xA;QmCC&quot; \/&gt;\r\n&lt;\/CustomProperties&gt;<\/pre>\n<p>5\u5e74\u307b\u3069\u524d\u306b\u66f8\u3044\u305f\u4e0b\u8a18\u8a18\u4e8b\u306e\u30b3\u30fc\u30c9\u3068\u540c\u69d8\u306e\u51e6\u7406\u3067\u3059\u306d\u3002<br \/>\n\u6d3b\u7528\u5834\u9762\u306f\u591a\u3044\u306e\u3067\u306f\u306a\u3044\u304b\u3068\u601d\u3044\u307e\u3059\u3002<\/p>\n<div class=\"cardlink\"><a href=\"https:\/\/www.ka-net.org\/blog\/?p=5079\"><div class=\"cardlink_thumbnail\"><img src='https:\/\/www.ka-net.org\/blog\/wp-content\/uploads\/eyecatch-Excel-120x120.png' alt='\u30d5\u30a1\u30a4\u30eb\u3092\u30d6\u30c3\u30af\u306b\u57cb\u3081\u8fbc\u3080Excel\u30de\u30af\u30ed' width=120 height=120 \/><\/a><\/div><div class=\"cardlink_content\"><span class=\"timestamp\">2014.11.21<\/span><div class=\"cardlink_title\"><a href=\"https:\/\/www.ka-net.org\/blog\/?p=5079\">\u30d5\u30a1\u30a4\u30eb\u3092\u30d6\u30c3\u30af\u306b\u57cb\u3081\u8fbc\u3080Excel\u30de\u30af\u30ed <\/a><\/div><div class=\"cardlink_excerpt\">\u5927\u5206\u524d\u306b\u66f8\u3044\u305f\u56de\u7b54\u7528\u306e\u30b3\u30fc\u30c9\u304c\u51fa\u3066\u304d\u305f\u306e\u3067\u3001\u8a18\u4e8b\u3068\u3057\u3066\u6b8b\u3057\u3066\u304a\u304d\u307e\u3059\u3002\r\n\u30d0\u30a4\u30ca\u30ea\u30d5\u30a1\u30a4\u30eb\u3092Base64\u30a8\u30f3\u30b3\u30fc\u30c9\u3057\u3001\u6587\u5b57\u5217\u3068\u3057\u3066\u30d6\u30c3\u30af\u5185\u306e\u30ab\u30b9\u30bf\u30e0XML\u306b\u683c\u7d0d\u3001\u307e\u305f\u683c\u7d0d\u3057\u305f\u30d5\u30a1\u30a4\u30eb\u3092\u5143\u306e\u5f62\u5f0f\u3067\u53d6\u308a\u51fa\u3059Excel\u30de\u30af\u30ed\u3067\u3059\u3002\r\n\r\n\r\n\u203b \u4e0b\u8a18\u30b3\u30fc\u30c9\u306fExce...<\/div><\/div><div class=\"cardlink_footer\"><\/div><\/div>\n<div id=\"single_banner_area2\" class=\"clearfix one_banner\">\n<div class=\"single_banner single_banner_left\">\n<script async src=\"https:\/\/pagead2.googlesyndication.com\/pagead\/js\/adsbygoogle.js\"><\/script>\r\n<!-- \u8a18\u4e8b\u4e2d(\u30c7\u30a3\u30b9\u30d7\u30ec\u30a4\u5e83\u544a\u30e6\u30cb\u30c3\u30c8) -->\r\n<ins class=\"adsbygoogle\"\r\n     style=\"display:block\"\r\n     data-ad-client=\"ca-pub-7306936664602087\"\r\n     data-ad-slot=\"5429724765\"\r\n     data-ad-format=\"auto\"\r\n     data-full-width-responsive=\"true\"><\/ins>\r\n<script>\r\n     (adsbygoogle = window.adsbygoogle || []).push({});\r\n<\/script>\n<\/div>\n<div class=\"single_banner single_banner_right\">\n<a href=\"\" target=\"_blank\"><img decoding=\"async\" src=\"\" alt=\"\" title=\"\" \/><\/a>\n<\/div>\n<\/div>\n\n<p>\u4ee5\u4e0a\u306e\u3088\u3046\u306b\u3001\u30ab\u30b9\u30bf\u30e0XML\u3092\u4f7f\u3048\u3070\u3001\u30c9\u30ad\u30e5\u30e1\u30f3\u30c8\u5185\u306b\u81ea\u7531\u306b\u60c5\u5831\u3092\u6301\u305f\u305b\u3066\u304a\u304f\u3053\u3068\u304c\u3067\u304d\u308b\u3088\u3046\u306b\u306a\u308a\u307e\u3059\u3002<br \/>\n\u3042\u307e\u308a\u4f7f\u308f\u308c\u3066\u3044\u306a\u3044\u3001\u30e1\u30b8\u30e3\u30fc\u3067\u306f\u306a\u3044\u6a5f\u80fd\u304b\u3082\u3057\u308c\u307e\u305b\u3093\u304c\u3001\u975e\u5e38\u306b\u4fbf\u5229\u306a\u6a5f\u80fd\u3067\u3059\u306e\u3067\u3001\u7686\u3055\u3093\u3082\u662f\u975e\u3054\u6d3b\u7528\u304f\u3060\u3055\u3044\uff01<\/p>\n","protected":false},"excerpt":{"rendered":"Twitter\u3067\u3001@akashi_keirin\u3055\u3093\u306e\u4e0b\u8a18\u30c4\u30a4\u30fc\u30c8\u3092\u898b\u304b\u3051\u307e\u3057\u305f\u3002 #ExcelVBA \u306e\u5834\u5408\u3001\u51e6\u7406\u306b\u5fc5\u8981\u306a\u8a2d\u5b9a\u306e\u985e\u306f\u96a0\u3057\u30b7\u30fc\u30c8\u3067\u3082\u4f5c\u3063\u3066\u305d\u306e\u30b7\u30fc\u30c8\u306b\u6301\u305f\u305b\u3066\u304a\u3051\u3070\u3088\u3044\u3002\u3057\u304b\u3057\u3001\u4ed6\u306e #VBA \u3067\u306f\u305d\u306e\u65b9\u6cd5 [&hellip;]","protected":false},"author":1,"featured_media":7120,"comment_status":"open","ping_status":"closed","sticky":false,"template":"","format":"standard","meta":{"_jetpack_memberships_contains_paid_content":false,"footnotes":"","jetpack_publicize_message":"[[Office VBA]\u30ab\u30b9\u30bf\u30e0XML\u3092\u4f7f\u3063\u3066\u8a2d\u5b9a\u60c5\u5831\u306a\u3069\u3092\u30c9\u30ad\u30e5\u30e1\u30f3\u30c8\u306b\u4fdd\u5b58\u3059\u308b\u65b9\u6cd5]","jetpack_publicize_feature_enabled":true,"jetpack_social_post_already_shared":true,"jetpack_social_options":{"image_generator_settings":{"template":"highway","default_image_id":0,"font":"","enabled":false},"version":2}},"categories":[4,48,49,58],"tags":[],"class_list":["post-11930","post","type-post","status-publish","format-standard","has-post-thumbnail","hentry","category-office","category-excel-office","category-word-office","category-powerpoint"],"aioseo_notices":[],"jetpack_publicize_connections":[],"jetpack_featured_media_url":"https:\/\/www.ka-net.org\/blog\/wp-content\/uploads\/eyecatch-OfficeVBA.png","jetpack_shortlink":"https:\/\/wp.me\/p4UZZr-36q","jetpack_sharing_enabled":true,"_links":{"self":[{"href":"https:\/\/www.ka-net.org\/blog\/index.php?rest_route=\/wp\/v2\/posts\/11930","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/www.ka-net.org\/blog\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/www.ka-net.org\/blog\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/www.ka-net.org\/blog\/index.php?rest_route=\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/www.ka-net.org\/blog\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=11930"}],"version-history":[{"count":1,"href":"https:\/\/www.ka-net.org\/blog\/index.php?rest_route=\/wp\/v2\/posts\/11930\/revisions"}],"predecessor-version":[{"id":11932,"href":"https:\/\/www.ka-net.org\/blog\/index.php?rest_route=\/wp\/v2\/posts\/11930\/revisions\/11932"}],"wp:featuredmedia":[{"embeddable":true,"href":"https:\/\/www.ka-net.org\/blog\/index.php?rest_route=\/wp\/v2\/media\/7120"}],"wp:attachment":[{"href":"https:\/\/www.ka-net.org\/blog\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=11930"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.ka-net.org\/blog\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=11930"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.ka-net.org\/blog\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=11930"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}