VBAでグラフの凡例を任意の場所に設定する方法xlLegendPositionCustomの使い方を教えてください。

Question

お疲れ様です。
Takkoです。

下記サイトに書かれているような、

https://msdn.microsoft.com/ja-jp/library/office/ff196251.aspx

xlLegendで指定できるポジションの位置なのですが、
なぜxlLegendPositionCorner という右上隅のオプションがあるのにもかかわらず、
左上のオプションがないのでしょう。

また下記サイトを参考にして任意の場所に凡例を追加したい場合、
実装するとなるとこうなるのでしょうか？

http://excel.style-mods.net/tips_vba/tips_vba_6_08.htm

' グラフの凡例の位置を設定
ActiveSheet.ChartObjects(1).Chart.Legend.Position = xlLegendPositionCustom

任意の場所という割には、ポジションを入力する場所がないと思うのですが、
どう指定すればよいのでしょうか。

よろしくお願いします。

Answer 1

凡例の場所指定について、Chart.Legend.PositionにxlLegendPositionCustomを設定することはできません。
凡例のオフセットをChart.Legend.LeftおよびChart.Legend.Topによって指定すると、
Chart.Legend.Positionの値がxlLegendPositionCustomとなります。

要は、Chart.Legend.Positionと（Chart.Legend.LeftおよびChart.Legend.Top）が排他の関係にあるということです。

Comments

[King_of_Flies]

なるほど
理解しました。
つまりはカスタムして任意の場所に凡例の位置を指定すると自動でxlLegendPositionCustomになるだけで、
ユーザがxlLegendPositionCustomを使用して、任意の箇所に設定するわけではないのですね。

なんかこいつだけ使うためのオプションではなく、
勝手に設定されるオプションていうような感じですね。

[sazi]

補足すると、Chart.Legend.Positionを設定しても、.Leftや.Topの値はクリアされません。
.Leftや.Topの値が有効なものかどうかの判定などを行う場合の考慮だと思われます。

[King_of_Flies]

つまり、kikukikuさんの提示してくださったスタックオーバーフローの回答者の使い方で正しいということですよね？

[sazi]

任意の場所に設定するという場合はそれしかないですね。

[King_of_Flies]

ありがとうございました。
またわからないことがありましたらよろしくお願いします。

Answer 2

Excel2013　を使っています

xlLegendで指定できるポジションの位置なのですが、

なぜxlLegendPositionCorner という右上隅のオプションがあるのにもかかわらず、
左上のオプションがないのでしょう

エクセルの仕様ですね

実際にグラフのデザインオプションを確認してみると、凡例に対する位置の指定は上下左右＋右上の５つしか選択がありません

任意の場所に凡例を追加したい場合

   ActiveSheet.ChartObjects("グラフ 1").Activate
   ActiveChart.SetElement (msoElementLegendRight) '右に出す

任意の場所という割には、ポジションを入力する場所がないと思うのですが、

どう指定すればよいのでしょうか。

    ActiveSheet.ChartObjects("グラフ 1").Activate
    ActiveChart.Legend.Select
    Selection.Left = 50
    Selection.Top = 100

これらはネットで調べたわけでなく、「マクロ記録」を使って実際に凡例についての操作を行って吐き出されたコードです

VBAの場合「マクロではどうすればよいのだろう」と思った時、「マクロ記録」を使ってみるのも案外解決が早いものです
是非お試しください

Comments

[King_of_Flies]

問題解決ありがとうございます。

マクロの記録で実行できたので、質問自体の解決は致しました。

ただ、リファレンスのxlLegendPositionCustom ←こいつの使用例が見つけられず、
とても気になっています。

Answer 3

検証していないので動作するかわかりませんが、
下記記事を見つけました。
https://stackoverflow.com/questions/18495821/using-excel-xllegendposition-xllegendpositioncustom-in-c-sharp

Comments

[King_of_Flies]

サイトを見る限りだと、xlLegendPositionCustom の使用方法がわからなかったので、
chart.Legend.Left = 375;
chart.Legend.Top = 450;のようにして、
任意の場所に凡例の位置を強制するような作りになっているみたいですねｗ

xlLegendPositionCustom ←こいつどうやって使うんだ・・・ｗ

[kikukiku]

xlLegendPositionCustomに設定した上で、LeftとTopを設定する使い方と思ったのですが、動作しないのかな？

[King_of_Flies]

いえ。
翻訳すると先ほどのサイトで回答を提示しているひとの言っている内容は下記に要約されます。

凡例を任意の場所に設定するために使用する、xlLegendPositionCustomの使い方はわかりませんでしたが、chart.Legend.Left = 375;
chart.Legend.Top = 450;このようにすると、凡例の位置を強制的に設定できますよ。と。

結果的に確かに、私の質問事項である凡例の設定はクリアできたのですが、
結局のところxlLegendPositionCustom ←これはどう使うの？っていうのがサイトではわかりません。

[kikukiku]

なるほど。不明ですね。

[King_of_Flies]

どうやら、最新の回答が答えに行き着いているみたいです。

chart.Legend.Left = 375;
chart.Legend.Top = 450;をすると勝手にxlLegendPositionCustom が設定されるようです。

知らずに使っていました的なオチですね。ｗ