Excel　マクロでグラフの凡例の位置を変更したい

Question

はじめまして。
Excelマクロ初心者です。
現在、Excelのグラフの凡例の位置を変更するマクロが作れなくて困っております。

＝前提条件＝
　　　　・マクロを記録するbook(1)とグラフを含むbook(2)は別のファイル
　　　　・book(1)よりマクロを実行し、book(2)を開き、グラフの凡例の位置を変えたい
＝book(2)の構成＝
　　　　・複数のシートが存在（Hiddenも存在）
　　　　・各シートにグラフが複数存在
＝現時点で作成したマクロ＝
Sub graph()
　　Workbooks.open "C:\********\book(2).xls"
　　Workbooks("book(2).xls").Active
　　Dim i AS Integer, wsCnt AS Integer
        i = 0
        wsCnt = Worksheets.Count
　　For i = 0 To wsCnt
      Worksheets(i).Active
      If ActiveSheet.Visible = -1 - xlSheetVisibe Then

        For Each ChartObject In ActiveSheet.ChartObjects
　　　　　With ActiveChart
            ActiveChart.ChartArea.Select
            ActiveChart.HasLegend = True
            ActiveChart.Legend.Select
            Selection.Position = xlBottom
          End With
        Next ChartObject
      End If
    Next i
End Sub

現在、各シートがActiveになることまでは確認できています。
各グラフを掴めているかは確認できておりません。

以上となります。
ご多忙とは思いますが、ご教授いただけると幸いです。
宜しくお願い致します。

xls88 · Accepted Answer

手動操作できて、コードも得られるのですから、普通なら回答番号：No.2のマクロが効くはずだと思います。
知識不足で、何故効かないのかよく解りません。

「マクロの記録」したシートで下記マクロを試してみてください。
Sub testグラフ凡例3()
　　Dim mycht As Variant
　　Dim i As Integer
　　
　　mycht = Array("グラフ 2", "グラフ 7", "グラフ 12")
　　For i = LBound(mycht) To UBound(mycht)
　　　　With ActiveSheet.ChartObjects(mycht(i)).Chart
　　　　　　.HasLegend = True
　　　　　　.Legend.Position = xlBottom
　　　　End With
　　Next i
End Sub

グラフ名の連番が、5飛びになっているのは他の種類のオブジェクトが描画挿入されていると思います。
オートシェイプとかも含めて、オブジェクトが描画挿入された順に連番が振られるようです。

xls88 · Answer

≪グラフの名前の件≫
＞新規グラフを作成したところ、このグラフも「グラフエリア」と表示されました。
＞このBook自体に何か設定がなされているのでしょうか。
新規グラフで、何故「グラフエリア」という名前になるのか理解できません。
デフォルトで、そのような設定が出来るとは聞いたことがありません。
グラフウイザードとかで、普通にグラフを作成した場合、「グラフ 1」のように連番付きの名前になります。
ただ、この名前は自由に変えることができます。
もしかして、マクロでグラフを作成しているとかで、コード内で名前を付けているとか
あるいは、名前を変更された「元のグラフ」をコピーして使っているとかはないでしょうか？

≪マクロが動作しないシートの件≫
マクロが動作しないシートで、グラフを選択する作業を「マクロの記録」してみてください。
得られたコードを拝見したいのですが、提示していただけないでしょうか。

xls88 · Answer

＞名前ボックスとは、Excelの画面.左上部のウィンドウでしょうか。
＞（ex. デフォルトのA1セルの場合、[A1]と表示されるウィンドウ)
その通りです。
グラフが選択されると、グラフオブジェクトの名前が表示されます。

＞こちらには、各グラフ（全シートにおける）にて、
＞「グラフ エリア] と表示されます。
普通「グラフ 1」とかなら解るのですが、「グラフ エリア」となりますか？
もしかするとグラフオブジェクトの名前が「グラフ エリア」ですか？
名前が？ですが、グラフオブジェクトの名前が表示されているようですから、掴めていると思います。

下記マクロをF8キーでステップ実行してみてください。
ステップ実行
http://hp.vector.co.jp/authors/VA016119/step/step01.html

Sub testグラフ凡例2()
　　Dim cht As ChartObject
　　Dim i As Integer, wsCnt As Integer
　　wsCnt = Worksheets.Count
　　For i = 1 To wsCnt
　　　　If Worksheets(i).Visible = True Then
　　　　　　Worksheets(i).Select
　　　　　　For Each cht In Worksheets(i).ChartObjects
　　　　　　　　cht.Select
　　　　　　　　Exit For
　　　　　　　　'With cht.Chart
　　　　　　　　　　'.HasLegend = True
　　　　　　　　　　'.Legend.Position = xlBottom
　　　　　　　　　　'.Legend.Position = xlLegendPositionBottom
　　　　　　　　'End With
　　　　　　Next cht
　　　　End If
　　Next i
End Sub

先のコメントで訂正があります。
.Legend.Position = xlBottom
と
.Legend.Position = xlLegendPositionBottom
どちらも、項目軸と重なる場合と項目軸の更に下方に配置される場合が確認されました。
どういう条件でそうなるのか解りません。

xls88 · Answer

＞しかし、最初の１シート目は上記の様に動作をしてくれるのですが、
＞２シート目以降はアクティヴになることは確認できたのですが、
＞どうやらグラフを掴めていないようです。
おかしいです。該当シートにグラフは存在していますか？

試しに
Worksheets(i).Select
cht.Select
を入れてみてください。
名前ボックスにグラフ名が表示されるかどうか確認してください。

xls88 · Answer

Sub testグラフ凡例1()
　　Dim cht As ChartObject
　　Dim i As Integer, wsCnt As Integer
　　wsCnt = Worksheets.Count
　　For i = 1 To wsCnt
　　　　If Worksheets(i).Visible = True Then
　　　　　　For Each cht In Worksheets(i).ChartObjects
　　　　　　　　With cht.Chart
　　　　　　　　　　.HasLegend = True
　　　　　　　　　　.Legend.Position = xlLegendPositionBottom
　　　　　　　　End With
　　　　　　Next cht
　　　　End If
　　Next i
End Sub

.Legend.Position = xlBottom
↑の場合、項目軸と重なってしまいます。
.Legend.Position = xlLegendPositionBottom
↑の場合、項目軸の更に下方に配置されました。

hige_082 · Answer

対象のグラフを選択した状態で

    ActiveChart.Legend.Left = 310
    ActiveChart.Legend.Top = 18

参考までに

Excel マクロでグラフの凡例の位置を変更したい

手動操作できて、コードも得られるのですから、普通なら回答番号：No.2のマクロが効くはずだと思います。

≪グラフの名前の件≫

＞名前ボックスとは、Excelの画面.左上部のウィンドウでしょうか。

＞しかし、最初の１シート目は上記の様に動作をしてくれるのですが、

この回答への補足

Sub testグラフ凡例1()

対象のグラフを選択した状態で

似たような質問が見つかりました

このQ&Aを見た人はこんなQ&Aも見ています

関連するカテゴリからQ&Aを探す

このQ&Aを見た人がよく見るQ&A

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング

Excel　マクロでグラフの凡例の位置を変更したい