{"id":2652,"date":"2017-09-28T11:16:40","date_gmt":"2017-09-28T02:16:40","guid":{"rendered":"http:\/\/anada.cloudfree.jp\/?p=2652"},"modified":"2017-10-20T17:27:00","modified_gmt":"2017-10-20T08:27:00","slug":"excelvba%e8%a6%9a%e6%9b%b8-%e5%9b%b3%e5%bd%a2%e3%82%b3%e3%83%94%e3%83%bc","status":"publish","type":"post","link":"http:\/\/anada.cloudfree.jp\/?p=2652","title":{"rendered":"ExcelVBA\u899a\u66f8 \u56f3\u5f62\u30b3\u30d4\u30fc"},"content":{"rendered":"<p>\u30ef\u30fc\u30af\u30b7\u30fc\u30c8\u4e0a\u306b\u3042\u308b\u300cSHP1\u300d\u3068\u3044\u3046\u540d\u524d\u306e\u56f3\u5f62\u3092\u30b3\u30d4\u30fc\u3057\u3066\u3001\u300cSUB_SHP1\u300d\u3068\u3044\u3046\u540d\u524d\u3092\u4ed8\u3051\u3001B2\u30bb\u30eb\u5185\u306b\u914d\u7f6e\u3059\u308b\u30ed\u30b8\u30c3\u30af\u3092\u8003\u3048\u3066\u307f\u305f\u3002<br \/>\n\u30b3\u30d4\u30fc\u5143\u306e\u56f3\u5f62\u306eDuplicate\u30e1\u30bd\u30c3\u30c9\u3092\u3064\u304b\u3063\u3066\u3001\u65b0\u3057\u3044\u56f3\u5f62(\u30b3\u30d4\u30fc\u5148:\u4ee5\u4e0b\u30b5\u30f3\u30d7\u30eb\u3067\u306f\u5909\u6570\u300cshp\u300d\u306e\u3053\u3068)\u3092\u4f5c\u308a\u3001\u305d\u306e\u65b0\u3057\u3044\u56f3\u5f62\u306e\u30d7\u30ed\u30d1\u30c6\u30a3\u3092\u3044\u3058\u3063\u3066\u3001\u56f3\u5f62\u306e\u4f4d\u7f6e\u3068\u304b\u3001\u56f3\u5f62\u306e\u540d\u524d\u3001\u56f3\u5f62\u306b\u7d10\u3065\u304f\u30de\u30af\u30ed\u306e\u8a2d\u5b9a\u306a\u3069\u3092\u884c\u3046\u3002<br \/>\n\u30b5\u30f3\u30d7\u30eb\u3067\u306f\u3001\u30bb\u30ebB2\u306e\u4e0b\u90e8\u4e2d\u592e\u306b\u914d\u7f6e\u3059\u308b\u65b9\u6cd5\u3002<\/p>\n<pre class=\"brush: vb; title: ; notranslate\" title=\"\">\r\nDim ws  As Worksheet\r\nDim shp As Shape\r\n\r\nSet ws = Thisworkbook.Worksheets(&quot;Sheet1&quot;)\r\nSet shp = ws.Shapes(&quot;SHP1&quot;).Duplicate\r\nWith shp\r\n  .Top = ws.Range(&quot;B2&quot;).Top - .Height -5\r\n  .Left = ws.Range(&quot;B2&quot;).Left + (ws.Range(&quot;B2&quot;).Width - .Width) \/ 2\r\n  .Name = &quot;SUB_SHP1&quot;\r\n  .Visible = msoTrue\r\n  .OnAction = &quot;RunXXX&quot;\r\nEnd With\r\nSet shp = Nothing\r\nSet ws = Nothing\r\n<\/pre>\n<p>\u56f3\u5f62\u306e\u30b3\u30d4\u30fc\u306b\u300cDuplicate\u300d\u3092\u4f7f\u3046\u3068\u3044\u3046\u306e\u306f\u521d\u3081\u3066\u77e5\u3063\u305f\u3002duplicate\u306e\u610f\u5473\u304c\u300c\u8907\u5199\u3059\u308b\u300d\u3063\u3066\u3053\u3068\u3089\u3057\u3044\u3002<\/p>\n","protected":false},"excerpt":{"rendered":"<p>\u30ef\u30fc\u30af\u30b7\u30fc\u30c8\u4e0a\u306b\u3042\u308b\u300cSHP1\u300d\u3068\u3044\u3046\u540d\u524d\u306e\u56f3\u5f62\u3092\u30b3\u30d4\u30fc\u3057\u3066\u3001\u300cSUB_SHP1\u300d\u3068\u3044\u3046\u540d\u524d\u3092\u4ed8\u3051\u3001B2\u30bb\u30eb\u5185\u306b\u914d\u7f6e\u3059\u308b\u30ed\u30b8\u30c3\u30af\u3092\u8003\u3048\u3066\u307f\u305f\u3002 \u30b3\u30d4\u30fc\u5143\u306e\u56f3\u5f62\u306eDuplicate\u30e1\u30bd\u30c3\u30c9\u3092\u3064\u304b\u3063\u3066\u3001\u65b0\u3057\u3044\u56f3\u5f62(\u30b3\u30d4\u30fc\u5148: [&hellip;]<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"closed","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[5],"tags":[43,74],"class_list":["post-2652","post","type-post","status-publish","format-standard","hentry","category-excelvba","tag-excel","tag-vba"],"_links":{"self":[{"href":"http:\/\/anada.cloudfree.jp\/index.php?rest_route=\/wp\/v2\/posts\/2652","targetHints":{"allow":["GET"]}}],"collection":[{"href":"http:\/\/anada.cloudfree.jp\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"http:\/\/anada.cloudfree.jp\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"http:\/\/anada.cloudfree.jp\/index.php?rest_route=\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"http:\/\/anada.cloudfree.jp\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=2652"}],"version-history":[{"count":1,"href":"http:\/\/anada.cloudfree.jp\/index.php?rest_route=\/wp\/v2\/posts\/2652\/revisions"}],"predecessor-version":[{"id":2653,"href":"http:\/\/anada.cloudfree.jp\/index.php?rest_route=\/wp\/v2\/posts\/2652\/revisions\/2653"}],"wp:attachment":[{"href":"http:\/\/anada.cloudfree.jp\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=2652"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"http:\/\/anada.cloudfree.jp\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=2652"},{"taxonomy":"post_tag","embeddable":true,"href":"http:\/\/anada.cloudfree.jp\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=2652"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}