Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


11101 / 13646 ツリー ←次へ | 前へ→

【18048】グラフの凡例について kei 04/9/13(月) 19:32 質問[未読]
【18081】Re:グラフの凡例について Jaka 04/9/14(火) 15:48 回答[未読]
【18082】Re:グラフの凡例について Asaki 04/9/14(火) 15:51 発言[未読]
【18125】Re:グラフの凡例について kei 04/9/16(木) 10:17 お礼[未読]

【18048】グラフの凡例について
質問  kei  - 04/9/13(月) 19:32 -

引用なし
パスワード
   初めて投稿します。

グラフの凡例の形状と色を変化させるときに、
LegendEntryというオブジェクトを使うのですが、
20個までしか変化できません。21個以上になるとエラーが出てきてしまいます。
これはデータ型の問題なのでしょうか?

よく分からないので、分かる方がいらしたら、
教えていただきたいです。
お願いします。

【18081】Re:グラフの凡例について
回答  Jaka  - 04/9/14(火) 15:48 -

引用なし
パスワード
   こんにちは。
凡例項目が全部見えるようにグラフを広げてから行ってみてください。
なんか項目名が見えるか見えないところまでくると、そこでエラーになりました。

こんな感じで試してみました。

Sub dkk()
For i = 1 To 30
With Worksheets("sheet1").ChartObjects(1).Chart
  .Legend.LegendEntries(i).Font.Italic = True
  .Legend.LegendEntries(i).Font.Size = 8
End With
Next
End Sub

データ
 1 2 3 4 5 ・・・・ 29 30
A 1 1 1 1 1     1 1
B 1 1 1 1 1     1 1
C 1 1 1 1 1     1 1
D 1 1 1 1 1     1 1
E 1 1 1 1 1     1 1

それで、エラーになったらグラフのサイズを広げて、戻って同じ処理をし、エラーになったら、戻って同じ処理ってな感じにならなんとなくできそうですが...?
グラフも良く解りませんが、オートフィットって言うのがあれば良いんですけど...。

別案としては、始めのサイズを記録しておき、グラフのサイズをドバッと大きくして処理後元に戻す。

こんな程度しかわかりませんでした。

【18082】Re:グラフの凡例について
発言  Asaki  - 04/9/14(火) 15:51 -

引用なし
パスワード
   みなさま こんにちは。

他サイトで解決されたようです。
http://hpcgi1.nifty.com/kenzo30/b_cbbs/cbbs.cgi?mode=al2&namber=11088&rev=&no=0

【18125】Re:グラフの凡例について
お礼  kei  - 04/9/16(木) 10:17 -

引用なし
パスワード
   ありがとうございます。

ご指摘されたとおりに行ったら、
問題は解決されました。本当にありがとうございました。

11101 / 13646 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free