|
こんにちは。
>さて、グラフについて、11支店の達成率の折れ線グラフ作成を自動化したのですが、右につけたラベルがどの支店も達成率100%になると重なってしまい大変見苦しくなります。
>
>ラベルだけ重ならないようにずらすことって出来るんでしょうか。
DataLabelsオブジェクトでラベルは取得出来ますから
Left、Topプロパティで取得、設定が出来ます。
任意の位置にずらすことも簡単です。
一例を以下に示します。
Sub test1_DataLabel()
Dim ii&, lbl As DataLabels, distance!, gap!
Set lbl = ActiveChart.SeriesCollection(1).DataLabels
distance = lbl.Font.Size * 0.8
For ii = 2 To lbl.Count
gap = lbl(ii).Top - lbl(ii - 1).Top
If Abs(gap) < distance Then lbl(ii).Top = lbl(ii - 1).Top + distance * (IIf(Sgn(gap) = 1, 1, -1))
Next
End Sub
|
|