回答編集履歴
1
誤字修正等
answer
CHANGED
|
@@ -1,9 +1,8 @@
|
|
|
1
|
-
|
|
1
|
+
恐らく、`With ActiveSheet.ChartObjects`となっているので、forループの度に「グラフのオブジェクト全てを毎度一括で位置合わせ」をしています。つまるところ、forループの最後のグラフの位置に、すべてのグラフが重なっているようです。
|
|
2
2
|
|
|
3
|
-
なので、やることは、グラフを作り終
|
|
3
|
+
なので、やることは、グラフを作り終った後に、作ったグラフに対してforループの中でも外でも良いので、１つ１つ位置を合わせて行くことです。
|
|
4
4
|
|
|
5
|
-
|
|
5
|
+
下の例はグラフを作り終わった後に、最後にすべてのグラフを位置合わせしています。
|
|
6
|
-
|
|
7
6
|
```VBA
|
|
8
7
|
Sub Macro1()
|
|
9
8
|
'
|
|
@@ -40,5 +39,6 @@
|
|
|
40
39
|
|
|
41
40
|
```
|
|
42
41
|
|
|
42
|
+
困ったら[VBAでのグラフ作成](http://www.atmarkit.co.jp/ait/articles/1409/18/news040.html)を参照ください。
|
|
43
43
|
|
|
44
|
-
|
|
44
|
+
///このようにやらなくても、グラフを作るたびにグラフの名前を拾って位置を合わせる、もできそうですね。
|