teratail header banner
teratail header banner
質問するログイン新規登録

回答編集履歴

1

誤字修正等

2017/06/21 06:22

投稿

退会済みユーザー
answer CHANGED
@@ -1,9 +1,8 @@
1
- 検証をしっかりしていませんが、`With ActiveSheet.ChartObjects`が悪さをしてforループの度に「グラフのオブジェクト全てを毎度一括で位置合わせ」います。
1
+ 恐らく、`With ActiveSheet.ChartObjects`となっいるので、forループの度に「グラフのオブジェクト全てを毎度一括で位置合わせ」をしています。つまるところ、forループの最後のグラフの位置に、すべてのグラフが重なっているようです。
2
2
 
3
- なので、やることは、グラフを作り終った後にforループの中でも外でも良いので、1つ1つ位置を合わせて行くことです。
3
+ なので、やることは、グラフを作り終った後に、作ったグラフに対してforループの中でも外でも良いので、1つ1つ位置を合わせて行くことです。
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
- 困ったら[VBAでのグラフ作成](http://www.atmarkit.co.jp/ait/articles/1409/18/news040.html)参照ください
44
+ ///こようにやらなくても、グラフるたびにグラフの名前拾って位置を合わせる、もできそうですね