{"id":7356,"date":"2016-09-28T11:39:19","date_gmt":"2016-09-28T02:39:19","guid":{"rendered":"https:\/\/www.ka-net.org\/blog\/?p=7356"},"modified":"2016-09-28T11:39:19","modified_gmt":"2016-09-28T02:39:19","slug":"%e3%83%87%e3%82%a3%e3%82%b9%e3%83%97%e3%83%ac%e3%82%a4%e3%81%ae%e3%82%b5%e3%82%a4%e3%82%ba%e3%82%92%e5%8f%96%e5%be%97%e3%81%99%e3%82%8bvba%e3%83%9e%e3%82%af%e3%83%ad","status":"publish","type":"post","link":"https:\/\/www.ka-net.org\/blog\/?p=7356","title":{"rendered":"\u30c7\u30a3\u30b9\u30d7\u30ec\u30a4\u306e\u30b5\u30a4\u30ba\u3092\u53d6\u5f97\u3059\u308bVBA\u30de\u30af\u30ed"},"content":{"rendered":"<p>\u300c<span style=\"color: #ff0000; font-weight: bold;\">VBA \u30c7\u30a3\u30b9\u30d7\u30ec\u30a4 \u5e45 \u9ad8\u3055<\/span>\u300d\u3068\u3044\u3063\u305f\u30ad\u30fc\u30ef\u30fc\u30c9\u691c\u7d22\u3067\u306e\u30a2\u30af\u30bb\u30b9\u304c\u3042\u308a\u307e\u3057\u305f\u3002<br \/>\n\u30de\u30af\u30ed\u3067\u30c7\u30a3\u30b9\u30d7\u30ec\u30a4\u306e\u89e3\u50cf\u5ea6\u3092\u53d6\u5f97\u3059\u308b\u65b9\u6cd5\u3092\u63a2\u3057\u3066\u3044\u308b\u65b9\u3060\u308d\u3046\u3068\u601d\u3044\u307e\u3059\u3002<\/p>\n<p>\u30de\u30af\u30ed\u3067\u30c7\u30a3\u30b9\u30d7\u30ec\u30a4\u306e\u9ad8\u3055\u3084\u5e45\u3092\u53d6\u5f97\u3059\u308b\u5834\u5408\u3001\u624b\u8efd\u306a\u306e\u306fWMI\u306e\u300c<a href=\"https:\/\/msdn.microsoft.com\/ja-jp\/library\/aa394122.aspx\" title=\"Win32_DesktopMonitor class (Windows)\" target=\"_blank\">Win32_DesktopMonitor<\/a>\u300d\u30af\u30e9\u30b9\u3084\u300c<a href=\"https:\/\/msdn.microsoft.com\/ja-jp\/library\/aa394512.aspx\" title=\"Win32_VideoController class (Windows)\" target=\"_blank\">Win32_VideoController<\/a>\u300d\u30af\u30e9\u30b9\u3092\u5229\u7528\u3059\u308b\u65b9\u6cd5\u3067\u3059\u3002<\/p>\n<pre class=\"brush: vb; title: ; notranslate\" title=\"\">Public Sub Sample1()\r\n'Win32_DesktopMonitor\u30af\u30e9\u30b9\u5229\u7528\r\n  Dim items As Object\r\n  Dim item As Object\r\n\r\n  Set items = CreateObject(&quot;WbemScripting.SWbemLocator&quot;) _\r\n              .ConnectServer.ExecQuery(&quot;Select * From Win32_DesktopMonitor&quot;)\r\n  For Each item In items\r\n    Debug.Print &quot;Name:&quot; &amp; item.Name, _\r\n                &quot;DeviceID:&quot; &amp; item.DeviceID, _\r\n                &quot;ScreenWidth:&quot; &amp; item.ScreenWidth, _\r\n                &quot;ScreenHeight:&quot; &amp; item.ScreenHeight\r\n  Next\r\nEnd Sub\r\n\r\nPublic Sub Sample2()\r\n'Win32_VideoController\u30af\u30e9\u30b9\u5229\u7528\r\n  Dim items As Object\r\n  Dim item As Object\r\n  \r\n  Set items = CreateObject(&quot;WbemScripting.SWbemLocator&quot;) _\r\n              .ConnectServer.ExecQuery(&quot;Select * From Win32_VideoController&quot;)\r\n  For Each item In items\r\n    Debug.Print &quot;Caption:&quot; &amp; item.Caption, _\r\n                &quot;DeviceID:&quot; &amp; item.DeviceID, _\r\n                &quot;CurrentHorizontalResolution:&quot; &amp; item.CurrentHorizontalResolution, _\r\n                &quot;CurrentVerticalResolution:&quot; &amp; item.CurrentVerticalResolution\r\n  Next\r\nEnd Sub<\/pre>\n<p>\u305f\u3060\u3001<a href=\"http:\/\/p774.blog.fc2.com\/blog-entry-27.html\" title=\"[WSH Panel Mod] foobar2000\u304b\u3089\u8907\u6570\u306e\u30e2\u30cb\u30bf\u306e\u89e3\u50cf\u5ea6\u3068\u304b\u30d7\u30e9\u30a4\u30de\u30ea\u304b\u3069\u3046\u304b\u3092\u53d6\u5f97\u3059\u308b\" target=\"_blank\">\u3053\u3061\u3089\u306e\u8a18\u4e8b<\/a>\u306b\u3088\u308b\u3068\u3001\u6b63\u3057\u304f\u30b5\u30a4\u30ba\u3092\u53d6\u5f97\u3067\u304d\u306a\u3044\u5834\u5408\u3082\u3042\u308b\u3088\u3046\u306a\u306e\u3067\u3001PowerShell\u7d4c\u7531\u3067.NET\u306e\u300c<a href=\"https:\/\/msdn.microsoft.com\/ja-jp\/library\/system.windows.forms.screen.allscreens.aspx\" title=\"Screen.AllScreens \u30d7\u30ed\u30d1\u30c6\u30a3 (System.Windows.Forms)\" target=\"_blank\">Screen.AllScreens<\/a>\u300d\u30d7\u30ed\u30d1\u30c6\u30a3\u304b\u3089\u5024\u3092\u53d6\u5f97\u3059\u308b\u30b3\u30fc\u30c9\u3082\u8003\u3048\u3066\u307f\u307e\u3057\u305f\u3002<\/p>\n<pre class=\"brush: vb; title: ; notranslate\" title=\"\">Public Sub Sample3()\r\n'System.Windows.Forms.Screen.AllScreens\u30d7\u30ed\u30d1\u30c6\u30a3\u5229\u7528\r\n  Dim cmd As String\r\n  Dim ret As String\r\n  Dim v As Variant, vv As Variant\r\n  Dim i As Long\r\n   \r\n  'PowerShell\u306e\u5b9f\u884c\u78ba\u8a8d\r\n  On Error Resume Next\r\n  Shell &quot;PowerShell -Version&quot;, vbHide\r\n  If Err.Number &lt;&gt; 0 Then Exit Sub\r\n  On Error GoTo 0\r\n  \r\n  cmd = &quot;PowerShell -Command Add-Type -AssemblyName System.Windows.Forms;$str='';foreach($item in &#x5B;Windows.Forms.Screen]::AllScreens){$str+=$item.DeviceName+','+$item.BitsPerPixel+','+$item.Primary+','+$item.Bounds.Width+','+$item.Bounds.Height+':'};$str=$str.Remove($str.Length-1,1);Write-Host $str;&quot;\r\n  ret = CreateObject(&quot;WScript.Shell&quot;).Exec(cmd).StdOut.ReadLine\r\n  v = Split(ret, &quot;:&quot;) 'PowerShell\u306e\u5b9f\u884c\u7d50\u679c\u3092\u6307\u5b9a\u3057\u305f\u533a\u5207\u308a\u6587\u5b57\u3067\u5206\u5272\r\n  For i = LBound(v) To UBound(v)\r\n    vv = Split(v(i), &quot;,&quot;)\r\n    Debug.Print &quot;DeviceName:&quot; &amp; vv(0), _\r\n                &quot;BitsPerPixel:&quot; &amp; vv(1), _\r\n                &quot;Primary:&quot; &amp; vv(2), _\r\n                &quot;Width:&quot; &amp; vv(3), _\r\n                &quot;Height:&quot; &amp; vv(4)\r\n  Next\r\nEnd Sub<\/pre>\n<p>PowerShell\u304c\u5b9f\u884c\u3067\u304d\u308b\u74b0\u5883\u304c\u524d\u63d0\u3068\u306a\u308a\u307e\u3059\u304c\u3001WMI\u3067\u4e0a\u624b\u304f\u3044\u304b\u306a\u3044\u5834\u5408\u306f\u3001\u3053\u3061\u3089\u306e\u30b3\u30fc\u30c9\u3082\u304a\u8a66\u3057\u304f\u3060\u3055\u3044\u3002<\/p>\n<h4 class=\"style4a\">\u53c2\u8003Web\u30da\u30fc\u30b8<\/h4>\n<ul>\n<li>[WSH Panel Mod] foobar2000\u304b\u3089\u8907\u6570\u306e\u30e2\u30cb\u30bf\u306e\u89e3\u50cf\u5ea6\u3068\u304b\u30d7\u30e9\u30a4\u30de\u30ea\u304b\u3069\u3046\u304b\u3092\u53d6\u5f97\u3059\u308b<\/li>\n<li style=\"list-style-type:none;\"><a href=\"http:\/\/p774.blog.fc2.com\/blog-entry-27.html\" target=\"_blank\" title=\"[WSH Panel Mod] foobar2000\u304b\u3089\u8907\u6570\u306e\u30e2\u30cb\u30bf\u306e\u89e3\u50cf\u5ea6\u3068\u304b\u30d7\u30e9\u30a4\u30de\u30ea\u304b\u3069\u3046\u304b\u3092\u53d6\u5f97\u3059\u308b\">http:\/\/p774.blog.fc2.com\/blog-entry-27.html<\/a><\/li>\n<li>Get Screen resolution using WMI\/powershell in Windows 7<\/li>\n<li style=\"list-style-type:none;\"><a href=\"http:\/\/stackoverflow.com\/questions\/7967699\/get-screen-resolution-using-wmi-powershell-in-windows-7\" target=\"_blank\" title=\"Get Screen resolution using WMI\/powershell in Windows 7\">http:\/\/stackoverflow.com\/questions\/7967699\/get-screen-resolution-using-wmi-powershell-in-windows-7<\/a><\/li>\n<li>VBScript to read resolution of primary monitor not always working<\/li>\n<li style=\"list-style-type:none;\"><a href=\"https:\/\/social.technet.microsoft.com\/Forums\/en-US\/ITCG\/thread\/235c064b-10a6-4d2d-b24b-68ae60c1a506\" target=\"_blank\" title=\"VBScript to read resolution of primary monitor not always working\">https:\/\/social.technet.microsoft.com\/Forums\/en-US\/ITCG\/thread\/235c064b-10a6-4d2d-b24b-68ae60c1a506<\/a><\/li>\n<\/ul>\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","protected":false},"excerpt":{"rendered":"\u300cVBA \u30c7\u30a3\u30b9\u30d7\u30ec\u30a4 \u5e45 \u9ad8\u3055\u300d\u3068\u3044\u3063\u305f\u30ad\u30fc\u30ef\u30fc\u30c9\u691c\u7d22\u3067\u306e\u30a2\u30af\u30bb\u30b9\u304c\u3042\u308a\u307e\u3057\u305f\u3002 \u30de\u30af\u30ed\u3067\u30c7\u30a3\u30b9\u30d7\u30ec\u30a4\u306e\u89e3\u50cf\u5ea6\u3092\u53d6\u5f97\u3059\u308b\u65b9\u6cd5\u3092\u63a2\u3057\u3066\u3044\u308b\u65b9\u3060\u308d\u3046\u3068\u601d\u3044\u307e\u3059\u3002 \u30de\u30af\u30ed\u3067\u30c7\u30a3\u30b9\u30d7\u30ec\u30a4\u306e\u9ad8\u3055\u3084\u5e45\u3092\u53d6\u5f97\u3059\u308b\u5834\u5408\u3001\u624b\u8efd\u306a\u306e\u306fWM [&hellip;]","protected":false},"author":1,"featured_media":7120,"comment_status":"open","ping_status":"closed","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":"PowerShell\u7d4c\u7531\u3067.NET\u306eScreen.AllScreens\u30d7\u30ed\u30d1\u30c6\u30a3\u304b\u3089\u5024\u3092\u53d6\u5f97\u3059\u308b\u30b3\u30fc\u30c9\u3082\u8f09\u305b\u3066\u307f\u307e\u3057\u305f\u3002  [\u30c7\u30a3\u30b9\u30d7\u30ec\u30a4\u306e\u30b5\u30a4\u30ba\u3092\u53d6\u5f97\u3059\u308bVBA\u30de\u30af\u30ed]","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},"jetpack_post_was_ever_published":false},"categories":[4,48,49,58],"tags":[],"class_list":["post-7356","post","type-post","status-publish","format-standard","has-post-thumbnail","hentry","category-office","category-excel-office","category-word-office","category-powerpoint"],"aioseo_notices":[],"aioseo_head":"\n\t\t<!-- All in One SEO 4.9.10 - aioseo.com -->\n\t<meta name=\"description\" content=\"\u300cVBA \u30c7\u30a3\u30b9\u30d7\u30ec\u30a4 \u5e45 \u9ad8\u3055\u300d\u3068\u3044\u3063\u305f\u30ad\u30fc\u30ef\u30fc\u30c9\u691c\u7d22\u3067\u306e\u30a2\u30af\u30bb\u30b9\u304c\u3042\u308a\u307e\u3057\u305f\u3002 \u30de\u30af\u30ed\u3067\u30c7\u30a3\u30b9\u30d7\u30ec\u30a4\u306e\u89e3\u50cf\" \/>\n\t<meta name=\"robots\" content=\"max-image-preview:large\" \/>\n\t<meta name=\"author\" content=\"\u304d\u306c\u3042\u3055\"\/>\n\t<meta name=\"google-site-verification\" content=\"xy7uchdGM1SE5sADlVsdekXridA1vSaVWceffSwnE48\" \/>\n\t<link rel=\"canonical\" href=\"https:\/\/www.ka-net.org\/blog\/?p=7356\" \/>\n\t<meta name=\"generator\" content=\"All in One SEO (AIOSEO) 4.9.10\" \/>\n\t\t<meta property=\"og:locale\" content=\"ja_JP\" \/>\n\t\t<meta property=\"og:site_name\" content=\"\u521d\u5fc3\u8005\u5099\u5fd8\u9332 | Power Automate for desktop\u3084Microsoft Office\u958b\u767a\u306e\u60c5\u5831\u304c\u6e80\u8f09\" \/>\n\t\t<meta property=\"og:type\" content=\"article\" \/>\n\t\t<meta property=\"og:title\" content=\"\u30c7\u30a3\u30b9\u30d7\u30ec\u30a4\u306e\u30b5\u30a4\u30ba\u3092\u53d6\u5f97\u3059\u308bVBA\u30de\u30af\u30ed | \u521d\u5fc3\u8005\u5099\u5fd8\u9332\" \/>\n\t\t<meta property=\"og:description\" content=\"\u300cVBA \u30c7\u30a3\u30b9\u30d7\u30ec\u30a4 \u5e45 \u9ad8\u3055\u300d\u3068\u3044\u3063\u305f\u30ad\u30fc\u30ef\u30fc\u30c9\u691c\u7d22\u3067\u306e\u30a2\u30af\u30bb\u30b9\u304c\u3042\u308a\u307e\u3057\u305f\u3002 \u30de\u30af\u30ed\u3067\u30c7\u30a3\u30b9\u30d7\u30ec\u30a4\u306e\u89e3\u50cf\" \/>\n\t\t<meta property=\"og:url\" content=\"https:\/\/www.ka-net.org\/blog\/?p=7356\" \/>\n\t\t<meta property=\"article:published_time\" content=\"2016-09-28T02:39:19+00:00\" \/>\n\t\t<meta property=\"article:modified_time\" content=\"2016-09-28T02:39:19+00:00\" \/>\n\t\t<meta name=\"twitter:card\" content=\"summary\" \/>\n\t\t<meta name=\"twitter:title\" content=\"\u30c7\u30a3\u30b9\u30d7\u30ec\u30a4\u306e\u30b5\u30a4\u30ba\u3092\u53d6\u5f97\u3059\u308bVBA\u30de\u30af\u30ed | \u521d\u5fc3\u8005\u5099\u5fd8\u9332\" \/>\n\t\t<meta name=\"twitter:description\" content=\"\u300cVBA \u30c7\u30a3\u30b9\u30d7\u30ec\u30a4 \u5e45 \u9ad8\u3055\u300d\u3068\u3044\u3063\u305f\u30ad\u30fc\u30ef\u30fc\u30c9\u691c\u7d22\u3067\u306e\u30a2\u30af\u30bb\u30b9\u304c\u3042\u308a\u307e\u3057\u305f\u3002 \u30de\u30af\u30ed\u3067\u30c7\u30a3\u30b9\u30d7\u30ec\u30a4\u306e\u89e3\u50cf\" \/>\n\t\t<script type=\"application\/ld+json\" class=\"aioseo-schema\">\n\t\t\t{\"@context\":\"https:\\\/\\\/schema.org\",\"@graph\":[{\"@type\":\"Article\",\"@id\":\"https:\\\/\\\/www.ka-net.org\\\/blog\\\/?p=7356#article\",\"name\":\"\\u30c7\\u30a3\\u30b9\\u30d7\\u30ec\\u30a4\\u306e\\u30b5\\u30a4\\u30ba\\u3092\\u53d6\\u5f97\\u3059\\u308bVBA\\u30de\\u30af\\u30ed | \\u521d\\u5fc3\\u8005\\u5099\\u5fd8\\u9332\",\"headline\":\"\\u30c7\\u30a3\\u30b9\\u30d7\\u30ec\\u30a4\\u306e\\u30b5\\u30a4\\u30ba\\u3092\\u53d6\\u5f97\\u3059\\u308bVBA\\u30de\\u30af\\u30ed\",\"author\":{\"@id\":\"https:\\\/\\\/www.ka-net.org\\\/blog\\\/?author=1#author\"},\"publisher\":{\"@id\":\"https:\\\/\\\/www.ka-net.org\\\/blog\\\/#organization\"},\"image\":{\"@type\":\"ImageObject\",\"url\":\"https:\\\/\\\/www.ka-net.org\\\/blog\\\/wp-content\\\/uploads\\\/eyecatch-OfficeVBA.png\",\"width\":790,\"height\":480},\"datePublished\":\"2016-09-28T11:39:19+09:00\",\"dateModified\":\"2016-09-28T11:39:19+09:00\",\"inLanguage\":\"ja\",\"mainEntityOfPage\":{\"@id\":\"https:\\\/\\\/www.ka-net.org\\\/blog\\\/?p=7356#webpage\"},\"isPartOf\":{\"@id\":\"https:\\\/\\\/www.ka-net.org\\\/blog\\\/?p=7356#webpage\"},\"articleSection\":\"Office\\u95a2\\u9023, Excel, Word, PowerPoint\"},{\"@type\":\"BreadcrumbList\",\"@id\":\"https:\\\/\\\/www.ka-net.org\\\/blog\\\/?p=7356#breadcrumblist\",\"itemListElement\":[{\"@type\":\"ListItem\",\"@id\":\"https:\\\/\\\/www.ka-net.org\\\/blog#listItem\",\"position\":1,\"name\":\"Home\",\"item\":\"https:\\\/\\\/www.ka-net.org\\\/blog\",\"nextItem\":{\"@type\":\"ListItem\",\"@id\":\"https:\\\/\\\/www.ka-net.org\\\/blog\\\/?cat=4#listItem\",\"name\":\"Office\\u95a2\\u9023\"}},{\"@type\":\"ListItem\",\"@id\":\"https:\\\/\\\/www.ka-net.org\\\/blog\\\/?cat=4#listItem\",\"position\":2,\"name\":\"Office\\u95a2\\u9023\",\"item\":\"https:\\\/\\\/www.ka-net.org\\\/blog\\\/?cat=4\",\"nextItem\":{\"@type\":\"ListItem\",\"@id\":\"https:\\\/\\\/www.ka-net.org\\\/blog\\\/?cat=48#listItem\",\"name\":\"Excel\"},\"previousItem\":{\"@type\":\"ListItem\",\"@id\":\"https:\\\/\\\/www.ka-net.org\\\/blog#listItem\",\"name\":\"Home\"}},{\"@type\":\"ListItem\",\"@id\":\"https:\\\/\\\/www.ka-net.org\\\/blog\\\/?cat=48#listItem\",\"position\":3,\"name\":\"Excel\",\"item\":\"https:\\\/\\\/www.ka-net.org\\\/blog\\\/?cat=48\",\"nextItem\":{\"@type\":\"ListItem\",\"@id\":\"https:\\\/\\\/www.ka-net.org\\\/blog\\\/?p=7356#listItem\",\"name\":\"\\u30c7\\u30a3\\u30b9\\u30d7\\u30ec\\u30a4\\u306e\\u30b5\\u30a4\\u30ba\\u3092\\u53d6\\u5f97\\u3059\\u308bVBA\\u30de\\u30af\\u30ed\"},\"previousItem\":{\"@type\":\"ListItem\",\"@id\":\"https:\\\/\\\/www.ka-net.org\\\/blog\\\/?cat=4#listItem\",\"name\":\"Office\\u95a2\\u9023\"}},{\"@type\":\"ListItem\",\"@id\":\"https:\\\/\\\/www.ka-net.org\\\/blog\\\/?p=7356#listItem\",\"position\":4,\"name\":\"\\u30c7\\u30a3\\u30b9\\u30d7\\u30ec\\u30a4\\u306e\\u30b5\\u30a4\\u30ba\\u3092\\u53d6\\u5f97\\u3059\\u308bVBA\\u30de\\u30af\\u30ed\",\"previousItem\":{\"@type\":\"ListItem\",\"@id\":\"https:\\\/\\\/www.ka-net.org\\\/blog\\\/?cat=48#listItem\",\"name\":\"Excel\"}}]},{\"@type\":\"Organization\",\"@id\":\"https:\\\/\\\/www.ka-net.org\\\/blog\\\/#organization\",\"name\":\"\\u521d\\u5fc3\\u8005\\u5099\\u5fd8\\u9332\",\"description\":\"Power Automate for desktop\\u3084Microsoft Office\\u958b\\u767a\\u306e\\u60c5\\u5831\\u304c\\u6e80\\u8f09\",\"url\":\"https:\\\/\\\/www.ka-net.org\\\/blog\\\/\"},{\"@type\":\"Person\",\"@id\":\"https:\\\/\\\/www.ka-net.org\\\/blog\\\/?author=1#author\",\"url\":\"https:\\\/\\\/www.ka-net.org\\\/blog\\\/?author=1\",\"name\":\"\\u304d\\u306c\\u3042\\u3055\",\"image\":{\"@type\":\"ImageObject\",\"@id\":\"https:\\\/\\\/www.ka-net.org\\\/blog\\\/?p=7356#authorImage\",\"url\":\"https:\\\/\\\/secure.gravatar.com\\\/avatar\\\/1c6237fc3012b3da1f36fa6435b2ccea656e2ff69a51f709c7d8352c69356dc3?s=96&d=mm&r=g\",\"width\":96,\"height\":96,\"caption\":\"\\u304d\\u306c\\u3042\\u3055\"}},{\"@type\":\"WebPage\",\"@id\":\"https:\\\/\\\/www.ka-net.org\\\/blog\\\/?p=7356#webpage\",\"url\":\"https:\\\/\\\/www.ka-net.org\\\/blog\\\/?p=7356\",\"name\":\"\\u30c7\\u30a3\\u30b9\\u30d7\\u30ec\\u30a4\\u306e\\u30b5\\u30a4\\u30ba\\u3092\\u53d6\\u5f97\\u3059\\u308bVBA\\u30de\\u30af\\u30ed | \\u521d\\u5fc3\\u8005\\u5099\\u5fd8\\u9332\",\"description\":\"\\u300cVBA \\u30c7\\u30a3\\u30b9\\u30d7\\u30ec\\u30a4 \\u5e45 \\u9ad8\\u3055\\u300d\\u3068\\u3044\\u3063\\u305f\\u30ad\\u30fc\\u30ef\\u30fc\\u30c9\\u691c\\u7d22\\u3067\\u306e\\u30a2\\u30af\\u30bb\\u30b9\\u304c\\u3042\\u308a\\u307e\\u3057\\u305f\\u3002 \\u30de\\u30af\\u30ed\\u3067\\u30c7\\u30a3\\u30b9\\u30d7\\u30ec\\u30a4\\u306e\\u89e3\\u50cf\",\"inLanguage\":\"ja\",\"isPartOf\":{\"@id\":\"https:\\\/\\\/www.ka-net.org\\\/blog\\\/#website\"},\"breadcrumb\":{\"@id\":\"https:\\\/\\\/www.ka-net.org\\\/blog\\\/?p=7356#breadcrumblist\"},\"author\":{\"@id\":\"https:\\\/\\\/www.ka-net.org\\\/blog\\\/?author=1#author\"},\"creator\":{\"@id\":\"https:\\\/\\\/www.ka-net.org\\\/blog\\\/?author=1#author\"},\"image\":{\"@type\":\"ImageObject\",\"url\":\"https:\\\/\\\/www.ka-net.org\\\/blog\\\/wp-content\\\/uploads\\\/eyecatch-OfficeVBA.png\",\"@id\":\"https:\\\/\\\/www.ka-net.org\\\/blog\\\/?p=7356\\\/#mainImage\",\"width\":790,\"height\":480},\"primaryImageOfPage\":{\"@id\":\"https:\\\/\\\/www.ka-net.org\\\/blog\\\/?p=7356#mainImage\"},\"datePublished\":\"2016-09-28T11:39:19+09:00\",\"dateModified\":\"2016-09-28T11:39:19+09:00\"},{\"@type\":\"WebSite\",\"@id\":\"https:\\\/\\\/www.ka-net.org\\\/blog\\\/#website\",\"url\":\"https:\\\/\\\/www.ka-net.org\\\/blog\\\/\",\"name\":\"\\u521d\\u5fc3\\u8005\\u5099\\u5fd8\\u9332\",\"description\":\"Power Automate for desktop\\u3084Microsoft Office\\u958b\\u767a\\u306e\\u60c5\\u5831\\u304c\\u6e80\\u8f09\",\"inLanguage\":\"ja\",\"publisher\":{\"@id\":\"https:\\\/\\\/www.ka-net.org\\\/blog\\\/#organization\"}}]}\n\t\t<\/script>\n\t\t<!-- All in One SEO -->\n\n","aioseo_head_json":{"title":"\u30c7\u30a3\u30b9\u30d7\u30ec\u30a4\u306e\u30b5\u30a4\u30ba\u3092\u53d6\u5f97\u3059\u308bVBA\u30de\u30af\u30ed | \u521d\u5fc3\u8005\u5099\u5fd8\u9332","description":"\u300cVBA \u30c7\u30a3\u30b9\u30d7\u30ec\u30a4 \u5e45 \u9ad8\u3055\u300d\u3068\u3044\u3063\u305f\u30ad\u30fc\u30ef\u30fc\u30c9\u691c\u7d22\u3067\u306e\u30a2\u30af\u30bb\u30b9\u304c\u3042\u308a\u307e\u3057\u305f\u3002 \u30de\u30af\u30ed\u3067\u30c7\u30a3\u30b9\u30d7\u30ec\u30a4\u306e\u89e3\u50cf","canonical_url":"https:\/\/www.ka-net.org\/blog\/?p=7356","robots":"max-image-preview:large","keywords":"","webmasterTools":{"google-site-verification":"xy7uchdGM1SE5sADlVsdekXridA1vSaVWceffSwnE48","miscellaneous":""},"schema":{"@context":"https:\/\/schema.org","@graph":[{"@type":"Article","@id":"https:\/\/www.ka-net.org\/blog\/?p=7356#article","name":"\u30c7\u30a3\u30b9\u30d7\u30ec\u30a4\u306e\u30b5\u30a4\u30ba\u3092\u53d6\u5f97\u3059\u308bVBA\u30de\u30af\u30ed | \u521d\u5fc3\u8005\u5099\u5fd8\u9332","headline":"\u30c7\u30a3\u30b9\u30d7\u30ec\u30a4\u306e\u30b5\u30a4\u30ba\u3092\u53d6\u5f97\u3059\u308bVBA\u30de\u30af\u30ed","author":{"@id":"https:\/\/www.ka-net.org\/blog\/?author=1#author"},"publisher":{"@id":"https:\/\/www.ka-net.org\/blog\/#organization"},"image":{"@type":"ImageObject","url":"https:\/\/www.ka-net.org\/blog\/wp-content\/uploads\/eyecatch-OfficeVBA.png","width":790,"height":480},"datePublished":"2016-09-28T11:39:19+09:00","dateModified":"2016-09-28T11:39:19+09:00","inLanguage":"ja","mainEntityOfPage":{"@id":"https:\/\/www.ka-net.org\/blog\/?p=7356#webpage"},"isPartOf":{"@id":"https:\/\/www.ka-net.org\/blog\/?p=7356#webpage"},"articleSection":"Office\u95a2\u9023, Excel, Word, PowerPoint"},{"@type":"BreadcrumbList","@id":"https:\/\/www.ka-net.org\/blog\/?p=7356#breadcrumblist","itemListElement":[{"@type":"ListItem","@id":"https:\/\/www.ka-net.org\/blog#listItem","position":1,"name":"Home","item":"https:\/\/www.ka-net.org\/blog","nextItem":{"@type":"ListItem","@id":"https:\/\/www.ka-net.org\/blog\/?cat=4#listItem","name":"Office\u95a2\u9023"}},{"@type":"ListItem","@id":"https:\/\/www.ka-net.org\/blog\/?cat=4#listItem","position":2,"name":"Office\u95a2\u9023","item":"https:\/\/www.ka-net.org\/blog\/?cat=4","nextItem":{"@type":"ListItem","@id":"https:\/\/www.ka-net.org\/blog\/?cat=48#listItem","name":"Excel"},"previousItem":{"@type":"ListItem","@id":"https:\/\/www.ka-net.org\/blog#listItem","name":"Home"}},{"@type":"ListItem","@id":"https:\/\/www.ka-net.org\/blog\/?cat=48#listItem","position":3,"name":"Excel","item":"https:\/\/www.ka-net.org\/blog\/?cat=48","nextItem":{"@type":"ListItem","@id":"https:\/\/www.ka-net.org\/blog\/?p=7356#listItem","name":"\u30c7\u30a3\u30b9\u30d7\u30ec\u30a4\u306e\u30b5\u30a4\u30ba\u3092\u53d6\u5f97\u3059\u308bVBA\u30de\u30af\u30ed"},"previousItem":{"@type":"ListItem","@id":"https:\/\/www.ka-net.org\/blog\/?cat=4#listItem","name":"Office\u95a2\u9023"}},{"@type":"ListItem","@id":"https:\/\/www.ka-net.org\/blog\/?p=7356#listItem","position":4,"name":"\u30c7\u30a3\u30b9\u30d7\u30ec\u30a4\u306e\u30b5\u30a4\u30ba\u3092\u53d6\u5f97\u3059\u308bVBA\u30de\u30af\u30ed","previousItem":{"@type":"ListItem","@id":"https:\/\/www.ka-net.org\/blog\/?cat=48#listItem","name":"Excel"}}]},{"@type":"Organization","@id":"https:\/\/www.ka-net.org\/blog\/#organization","name":"\u521d\u5fc3\u8005\u5099\u5fd8\u9332","description":"Power Automate for desktop\u3084Microsoft Office\u958b\u767a\u306e\u60c5\u5831\u304c\u6e80\u8f09","url":"https:\/\/www.ka-net.org\/blog\/"},{"@type":"Person","@id":"https:\/\/www.ka-net.org\/blog\/?author=1#author","url":"https:\/\/www.ka-net.org\/blog\/?author=1","name":"\u304d\u306c\u3042\u3055","image":{"@type":"ImageObject","@id":"https:\/\/www.ka-net.org\/blog\/?p=7356#authorImage","url":"https:\/\/secure.gravatar.com\/avatar\/1c6237fc3012b3da1f36fa6435b2ccea656e2ff69a51f709c7d8352c69356dc3?s=96&d=mm&r=g","width":96,"height":96,"caption":"\u304d\u306c\u3042\u3055"}},{"@type":"WebPage","@id":"https:\/\/www.ka-net.org\/blog\/?p=7356#webpage","url":"https:\/\/www.ka-net.org\/blog\/?p=7356","name":"\u30c7\u30a3\u30b9\u30d7\u30ec\u30a4\u306e\u30b5\u30a4\u30ba\u3092\u53d6\u5f97\u3059\u308bVBA\u30de\u30af\u30ed | \u521d\u5fc3\u8005\u5099\u5fd8\u9332","description":"\u300cVBA \u30c7\u30a3\u30b9\u30d7\u30ec\u30a4 \u5e45 \u9ad8\u3055\u300d\u3068\u3044\u3063\u305f\u30ad\u30fc\u30ef\u30fc\u30c9\u691c\u7d22\u3067\u306e\u30a2\u30af\u30bb\u30b9\u304c\u3042\u308a\u307e\u3057\u305f\u3002 \u30de\u30af\u30ed\u3067\u30c7\u30a3\u30b9\u30d7\u30ec\u30a4\u306e\u89e3\u50cf","inLanguage":"ja","isPartOf":{"@id":"https:\/\/www.ka-net.org\/blog\/#website"},"breadcrumb":{"@id":"https:\/\/www.ka-net.org\/blog\/?p=7356#breadcrumblist"},"author":{"@id":"https:\/\/www.ka-net.org\/blog\/?author=1#author"},"creator":{"@id":"https:\/\/www.ka-net.org\/blog\/?author=1#author"},"image":{"@type":"ImageObject","url":"https:\/\/www.ka-net.org\/blog\/wp-content\/uploads\/eyecatch-OfficeVBA.png","@id":"https:\/\/www.ka-net.org\/blog\/?p=7356\/#mainImage","width":790,"height":480},"primaryImageOfPage":{"@id":"https:\/\/www.ka-net.org\/blog\/?p=7356#mainImage"},"datePublished":"2016-09-28T11:39:19+09:00","dateModified":"2016-09-28T11:39:19+09:00"},{"@type":"WebSite","@id":"https:\/\/www.ka-net.org\/blog\/#website","url":"https:\/\/www.ka-net.org\/blog\/","name":"\u521d\u5fc3\u8005\u5099\u5fd8\u9332","description":"Power Automate for desktop\u3084Microsoft Office\u958b\u767a\u306e\u60c5\u5831\u304c\u6e80\u8f09","inLanguage":"ja","publisher":{"@id":"https:\/\/www.ka-net.org\/blog\/#organization"}}]},"og:locale":"ja_JP","og:site_name":"\u521d\u5fc3\u8005\u5099\u5fd8\u9332 | Power Automate for desktop\u3084Microsoft Office\u958b\u767a\u306e\u60c5\u5831\u304c\u6e80\u8f09","og:type":"article","og:title":"\u30c7\u30a3\u30b9\u30d7\u30ec\u30a4\u306e\u30b5\u30a4\u30ba\u3092\u53d6\u5f97\u3059\u308bVBA\u30de\u30af\u30ed | \u521d\u5fc3\u8005\u5099\u5fd8\u9332","og:description":"\u300cVBA \u30c7\u30a3\u30b9\u30d7\u30ec\u30a4 \u5e45 \u9ad8\u3055\u300d\u3068\u3044\u3063\u305f\u30ad\u30fc\u30ef\u30fc\u30c9\u691c\u7d22\u3067\u306e\u30a2\u30af\u30bb\u30b9\u304c\u3042\u308a\u307e\u3057\u305f\u3002 \u30de\u30af\u30ed\u3067\u30c7\u30a3\u30b9\u30d7\u30ec\u30a4\u306e\u89e3\u50cf","og:url":"https:\/\/www.ka-net.org\/blog\/?p=7356","article:published_time":"2016-09-28T02:39:19+00:00","article:modified_time":"2016-09-28T02:39:19+00:00","twitter:card":"summary","twitter:title":"\u30c7\u30a3\u30b9\u30d7\u30ec\u30a4\u306e\u30b5\u30a4\u30ba\u3092\u53d6\u5f97\u3059\u308bVBA\u30de\u30af\u30ed | \u521d\u5fc3\u8005\u5099\u5fd8\u9332","twitter:description":"\u300cVBA \u30c7\u30a3\u30b9\u30d7\u30ec\u30a4 \u5e45 \u9ad8\u3055\u300d\u3068\u3044\u3063\u305f\u30ad\u30fc\u30ef\u30fc\u30c9\u691c\u7d22\u3067\u306e\u30a2\u30af\u30bb\u30b9\u304c\u3042\u308a\u307e\u3057\u305f\u3002 \u30de\u30af\u30ed\u3067\u30c7\u30a3\u30b9\u30d7\u30ec\u30a4\u306e\u89e3\u50cf"},"aioseo_meta_data":{"post_id":"7356","title":null,"description":null,"keywords":null,"keyphrases":null,"primary_term":null,"canonical_url":null,"og_title":null,"og_description":null,"og_object_type":"default","og_image_type":"default","og_image_url":null,"og_image_width":null,"og_image_height":null,"og_image_custom_url":null,"og_image_custom_fields":null,"og_video":null,"og_custom_url":null,"og_article_section":null,"og_article_tags":null,"twitter_use_og":false,"twitter_card":"default","twitter_image_type":"default","twitter_image_url":null,"twitter_image_custom_url":null,"twitter_image_custom_fields":null,"twitter_title":null,"twitter_description":null,"schema":{"blockGraphs":[],"customGraphs":[],"default":{"data":{"Article":[],"Course":[],"Dataset":[],"FAQPage":[],"Movie":[],"Person":[],"Product":[],"ProductReview":[],"Car":[],"Recipe":[],"Service":[],"SoftwareApplication":[],"WebPage":[]},"graphName":"","isEnabled":true},"graphs":[],"defaultGraph":"","defaultPostTypeGraph":""},"schema_type":null,"schema_type_options":null,"pillar_content":false,"robots_default":true,"robots_noindex":false,"robots_noarchive":false,"robots_nosnippet":false,"robots_nofollow":false,"robots_noimageindex":false,"robots_noodp":false,"robots_notranslate":false,"robots_max_snippet":null,"robots_max_videopreview":null,"robots_max_imagepreview":"large","priority":null,"frequency":null,"local_seo":null,"breadcrumb_settings":null,"limit_modified_date":false,"ai":null,"created":"2020-12-24 07:00:47","updated":"2022-09-14 04:22:17","seo_analyzer_scan_date":null},"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-1UE","jetpack_sharing_enabled":true,"_links":{"self":[{"href":"https:\/\/www.ka-net.org\/blog\/index.php?rest_route=\/wp\/v2\/posts\/7356","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=7356"}],"version-history":[{"count":1,"href":"https:\/\/www.ka-net.org\/blog\/index.php?rest_route=\/wp\/v2\/posts\/7356\/revisions"}],"predecessor-version":[{"id":7357,"href":"https:\/\/www.ka-net.org\/blog\/index.php?rest_route=\/wp\/v2\/posts\/7356\/revisions\/7357"}],"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=7356"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.ka-net.org\/blog\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=7356"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.ka-net.org\/blog\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=7356"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}