|
こんにちは。
凡例項目が全部見えるようにグラフを広げてから行ってみてください。
なんか項目名が見えるか見えないところまでくると、そこでエラーになりました。
こんな感じで試してみました。
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
それで、エラーになったらグラフのサイズを広げて、戻って同じ処理をし、エラーになったら、戻って同じ処理ってな感じにならなんとなくできそうですが...?
グラフも良く解りませんが、オートフィットって言うのがあれば良いんですけど...。
別案としては、始めのサイズを記録しておき、グラフのサイズをドバッと大きくして処理後元に戻す。
こんな程度しかわかりませんでした。
|
|