{"id":6917,"date":"2019-09-05T06:00:02","date_gmt":"2019-09-04T21:00:02","guid":{"rendered":"https:\/\/www.muscle-hypertrophy.com\/?p=6917"},"modified":"2019-10-24T10:22:58","modified_gmt":"2019-10-24T01:22:58","slug":"vba%e3%81%8b%e3%82%89%e8%a6%8b%e3%81%9fexcel%e3%81%ae%e6%95%a3%e5%b8%83%e5%9b%b3","status":"publish","type":"post","link":"https:\/\/www.muscle-hypertrophy.com\/?p=6917","title":{"rendered":"VBA\u304b\u3089\u898b\u305fEXCEL\u306e\u6563\u5e03\u56f3"},"content":{"rendered":"\n

\u3000EXCEL \u306e\u30b0\u30e9\u30d5\u306f\u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u306e\u95a2\u4fc2\u304c\u5206\u304b\u308a\u306b\u304f\u3044\uff0e\u7279\u306b\u6563\u5e03\u56f3\u306f\u3088\u304f\u4f7f\u3046\u3082\u306e\u3067\u3042\u308b\u3060\u3051\u306b\uff0c\u305d\u308c\u3092\u628a\u63e1\u3057\u3066\u304a\u304f\u3053\u3068\u304c\u5fc5\u8981\u3067\u3042\u308b\uff0e<\/p>\n

<\/p>\n

\u6563\u5e03\u56f3\u3092\u30b3\u30fc\u30c9\u304b\u3089\u751f\u6210<\/h3>\n

\u3000\u4e0b\u8a18\u306e\u30b3\u30fc\u30c9\u306f\u30ef\u30fc\u30af\u30b7\u30fc\u30c8\u306b\u57cb\u3081\u8fbc\u307f\u30b0\u30e9\u30d5\u3092\u4f5c\u6210\u3057\uff0c\u5927\u304d\u3055\u3092 400 x 400 \u3068\u3057\uff0c\u30de\u30fc\u30ab\u30fc\u306a\u3057\u6563\u5e03\u56f3\u306b\u5909\u66f4\u3057\u3066\u3044\u308b\uff0e<\/p>\n

Sub NewChart()\n\nDim Sh  As Worksheet\nDim ChtObj As ChartObjects\nDim Cht As Chart\n\nSet Sh = ActiveSheet\nSet ChtObj = Sh.ChartObjects\nSet Cht = ChtObj.Add(0, 0, 400, 400).Chart\n\nWith Cht\n'    .Name = \"test\"\n    .SetSourceData Sh.Range(\"A1:B3\")\n    .ChartType = xlXYScatterLinesNoMarkers\n    Debug.Print .Name\nEnd With\n\nEnd Sub\n<\/pre>\n
\u5404\u8981\u7d20\u3092\u9078\u629e\u3057\u305f\u30b3\u30fc\u30c9<\/h3>\n
\u3000\u3055\u3089\u306b\u4e0b\u8a18\u30b3\u30fc\u30c9\u3067\u306f\u4f5c\u6210\u3057\u305f\u6563\u5e03\u56f3\u306e\u5404\u8981\u7d20\u3092\u30af\u30ea\u30c3\u30af\u3057\u3066\u305f\u3069\u3063\u305f\u30de\u30af\u30ed\u8a18\u9332\u3092\u7de8\u96c6\u3057\u305f\u3082\u306e\u3067\u3042\u308b\uff0e\u51e1\u4f8b\u306e\u5404\u7cfb\u5217\u3068\u76ee\u76db\u7dda\u306e\u56f3\u304c\u306a\u3044\u304c\u52d8\u5f01\u3057\u3066\u307b\u3057\u3044\uff0e<\/p>\n
Sub Macro1()\n\nDim Sh As Worksheet\nDim Cht As Chart\n\nSet Sh = ActiveSheet\nSet Cht = Sh.ChartObjects(\"\u30b0\u30e9\u30d5 1\").Chart\n\nWith Cht\n    .PlotArea.Select\n    .Axes(xlValue).Select\n    .Axes(xlCategory).Select\n    .Legend.Select\n    .Legend.LegendEntries(1).Select\n    .Legend.LegendEntries(2).Select\n    .FullSeriesCollection(1).Select\n    .FullSeriesCollection(1).Points(3).Select\n    .FullSeriesCollection(2).Select\n    .FullSeriesCollection(2).Points(1).Select\n    .Axes(xlValue).MajorGridlines.Select\n    .ChartArea.Select\nEnd With\nEnd Sub<\/pre>\n
Worksheet.ChartObjects().Chart \u3067\u30b0\u30e9\u30d5\u306e\u8981\u7d20\u3092\u53d6\u5f97<\/h4>\n
\u30007 \u884c\u76ee\u306b\u3042\u308b\u3088\u3046\u306b, Worksheet \u306e\u76f4\u4e0b\u306b ChartObjects() \u304c\u3042\u308a\uff0c\u305d\u306e\u76f4\u4e0b\u306b Chart \u304c\u3042\u308b\uff0e\u3053\u308c\u306f\u304a\u4f5c\u6cd5\u306a\u306e\u3067\u899a\u3048\u308b\u3057\u304b\u306a\u3044\uff0e<\/p>\n
\u30d7\u30ed\u30c3\u30c8\u30a8\u30ea\u30a2\u306f .PlotArea<\/h4>\n
\u3000\u30d7\u30ed\u30c3\u30c8\u30a8\u30ea\u30a2\u306f .PlotArea \u3067\u53d6\u5f97\u3059\u308b\uff0e\u3053\u306e\u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u306b\u3082\u30d7\u30ed\u30d1\u30c6\u30a3\u3084\u30e1\u30bd\u30c3\u30c9\u306f\u3042\u308b\uff0e<\/p>\n
\"\u30d7\u30ed\u30c3\u30c8\u30a8\u30ea\u30a2\u306f.PltArea\u3067\u53d6\u5f97\"<\/a>
\u30d7\u30ed\u30c3\u30c8\u30a8\u30ea\u30a2\u306f.PlotArea\u3067\u53d6\u5f97<\/figcaption><\/figure>\n
Y \u8ef8\u306f .Axes(xlValue)<\/h4>\n
\u3000Y \u8ef8\u306f .Axes(xlValue) \u3067\u53d6\u5f97\u3059\u308b\uff0e\u8ef8\u305d\u306e\u3082\u306e\u3068\u6587\u5b57\u306b\u95a2\u308f\u308b\u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u304c\u4e0b\u306b\u7d9a\u304f\uff0e<\/p>\n
\"Y\u8ef8\u306f.Axes(xlValue)\u3067\u53d6\u5f97\"<\/a>
Y\u8ef8\u306f.Axes(xlValue)\u3067\u53d6\u5f97<\/figcaption><\/figure>\n
X \u8ef8\u306f .Axes(xlCategory)<\/h4>\n
\u3000X \u8ef8\u306f .Axes(xlCategory) \u3067\u53d6\u5f97\u3059\u308b\uff0e\u8ef8\u305d\u306e\u3082\u306e\u3068\u6587\u5b57\u306b\u95a2\u308f\u308b\u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u304c\u4e0b\u306b\u7d9a\u304f\uff0e<\/p>\n
\"X\u8ef8\u306f.Axes(xlXValue)\u3067\u53d6\u5f97\"<\/a>
X\u8ef8\u306f.Axes(xlXCategory)\u3067\u53d6\u5f97<\/figcaption><\/figure>\n
\u51e1\u4f8b\u306f .Legend<\/h4>\n
\u3000\u51e1\u4f8b\u306f .Legend \u3067\u53d6\u5f97\u3059\u308b\uff0e\u5857\u308a\u3064\u3076\u3057\u3084\u5916\u67a0\uff0c\u6587\u5b57\u306b\u95a2\u3059\u308b\u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u304c\u4e0b\u306b\u7d9a\u304f\uff0e<\/p>\n
\"\u51e1\u4f8b\u306f.Legend\u3067\u53d6\u5f97\"<\/a>
\u51e1\u4f8b\u306f.Legend\u3067\u53d6\u5f97<\/figcaption><\/figure>\n
\u3000\u51e1\u4f8b\u306e 1 \u756a\u76ee\u306e\u7cfb\u5217\u306f .Legend.LegendEntries(1), 2 \u756a\u76ee\u306e\u7cfb\u5217\u306f .Legend.LegendEntries(2) \u3067\u53d6\u5f97\u3059\u308b\uff0e() \u5185\u306e\u6570\u5b57\u306f\u30a4\u30f3\u30c7\u30c3\u30af\u30b9\u3067\u3042\u308b\uff0e<\/p>\n
1 \u756a\u76ee\u306e\u7cfb\u5217\u306f .FullSeriesCollection(1)<\/h4>\n
\u30001 \u756a\u76ee\u306e\u7cfb\u5217\u306f .FullSeriesCollection(1) \u3067\u53d6\u5f97\u3059\u308b\uff0e() \u5185\u306e\u6570\u5b57\u306f\u30a4\u30f3\u30c7\u30c3\u30af\u30b9\u3067\u3042\u308b\uff0e<\/p>\n
\"1\u756a\u76ee\u306e\u7cfb\u5217\u306f.FullSeriesCollection(1)\u3067\u53d6\u5f97\"<\/a>
1\u756a\u76ee\u306e\u7cfb\u5217\u306f.FullSeriesCollection(1)\u3067\u53d6\u5f97<\/figcaption><\/figure>\n
1 \u756a\u76ee\u306e\u7cfb\u5217\u306e 3 \u756a\u76ee\u306e\u70b9\u306f .FullSeriesCollection(1).Points(3)<\/h4>\n
\u30001 \u756a\u76ee\u306e\u7cfb\u5217\u306e 3 \u756a\u76ee\u306e\u70b9\u306f .FullSeriesCollection(1).Points(3) \u3067\u53d6\u5f97\u3059\u308b\uff0e() \u5185\u306e\u6570\u5b57\u306f\u30a4\u30f3\u30c7\u30c3\u30af\u30b9\u3067\u3042\u308b\uff0e<\/p>\n
\"1<\/a>
1 \u756a\u76ee\u306e\u7cfb\u5217\u306e 3 \u756a\u76ee\u306e\u70b9\u306f .FullSeriesCollection(1).Points(3) \u3067\u53d6\u5f97<\/figcaption><\/figure>\n
2 \u756a\u76ee\u306e\u7cfb\u5217\u306f .FullSeriesCollection(2)<\/h4>\n
\u30002 \u756a\u76ee\u306e\u7cfb\u5217\u306f .FullSeriesCollection(2) \u3067\u53d6\u5f97\u3059\u308b\uff0e() \u5185\u306e\u6570\u5b57\u306f\u30a4\u30f3\u30c7\u30c3\u30af\u30b9\u3067\u3042\u308b\uff0e<\/p>\n
\"2<\/a>
2 \u756a\u76ee\u306e\u7cfb\u5217\u306f .FullSeriesCollection(2) \u3067\u53d6\u5f97<\/figcaption><\/figure>\n
2 \u756a\u76ee\u306e\u7cfb\u5217\u306e 1 \u756a\u76ee\u306e\u70b9\u306f\u00a0 .FullSeriesCollection(2).Points(1)<\/h4>\n
\u30002 \u756a\u76ee\u306e\u7cfb\u5217\u306e 1 \u756a\u76ee\u306e\u70b9\u306f\u00a0 .FullSeriesCollection(2).Points(1) \u3067\u53d6\u5f97\u3059\u308b\uff0e() \u5185\u306e\u6570\u5b57\u306f\u30a4\u30f3\u30c7\u30c3\u30af\u30b9\u3067\u3042\u308b\uff0e<\/p>\n
\"2<\/a>
2 \u756a\u76ee\u306e\u7cfb\u5217\u306e 1 \u756a\u76ee\u306e\u70b9\u306f\u00a0 .FullSeriesCollection(2).Points(1) \u3067\u53d6\u5f97<\/figcaption><\/figure>\n","protected":false},"excerpt":{"rendered":"
\u3000EXCEL \u306e\u30b0\u30e9\u30d5\u306f\u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u306e\u95a2\u4fc2\u304c\u5206\u304b\u308a\u306b\u304f\u3044\uff0e\u7279\u306b\u6563\u5e03\u56f3\u306f\u3088\u304f\u4f7f\u3046\u3082\u306e\u3067\u3042\u308b\u3060\u3051\u306b\uff0c\u305d\u308c\u3092\u628a\u63e1\u3057\u3066\u304a\u304f\u3053\u3068\u304c\u5fc5\u8981\u3067\u3042\u308b\uff0e<\/p>\n","protected":false},"author":1,"featured_media":6954,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[2],"tags":[4526,4527,4542,4525,4524,4531,4533,265,4547,4545,4546,4528,4541,4548,4534,4530,4529,459,4523,4543,4544,4532,4329,4330,4539,4549,460,4392,1013,3891,4540,4255,4536,4552,663,4537,4522,3653,4550,4326,4216,4551,4538,4535],"class_list":["post-6917","post","type-post","status-publish","format-standard","has-post-thumbnail","hentry","category-technology","tag-activesheet","tag-add","tag-axes","tag-chart","tag-chartobjects","tag-charttype","tag-debug","tag-excel","tag-fullseriescollection","tag-legend","tag-legendentries","tag-name","tag-plotarea","tag-points","tag-print","tag-range","tag-setsourcedata","tag-vba","tag-worksheet","tag-xlcategory","tag-xlvalue","tag-xlxyscatterlinesnomarkers","tag-x","tag-y","tag-4539","tag-4549","tag-460","tag-4392","tag-1013","tag-3891","tag-4540","tag-4255","tag-4536","tag-4552","tag-663","tag-4537","tag-4522","tag-3653","tag-4550","tag-4326","tag-4216","tag-4551","tag-4538","tag-4535"],"_links":{"self":[{"href":"https:\/\/www.muscle-hypertrophy.com\/index.php?rest_route=\/wp\/v2\/posts\/6917","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/www.muscle-hypertrophy.com\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/www.muscle-hypertrophy.com\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/www.muscle-hypertrophy.com\/index.php?rest_route=\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/www.muscle-hypertrophy.com\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=6917"}],"version-history":[{"count":26,"href":"https:\/\/www.muscle-hypertrophy.com\/index.php?rest_route=\/wp\/v2\/posts\/6917\/revisions"}],"predecessor-version":[{"id":8885,"href":"https:\/\/www.muscle-hypertrophy.com\/index.php?rest_route=\/wp\/v2\/posts\/6917\/revisions\/8885"}],"wp:featuredmedia":[{"embeddable":true,"href":"https:\/\/www.muscle-hypertrophy.com\/index.php?rest_route=\/wp\/v2\/media\/6954"}],"wp:attachment":[{"href":"https:\/\/www.muscle-hypertrophy.com\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=6917"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.muscle-hypertrophy.com\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=6917"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.muscle-hypertrophy.com\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=6917"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}