Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

63255 / 76738

←次へ　｜　前へ→


	【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

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

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

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

0 hits

▼

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