|
▼yuu1 さん:
埋もれた中から拾っていただき感謝です。
でもでも、なかなかうまく出来ません(@_*)
以下のように書いているのですが、どのように応用したらよいでしょうか。
' label_add endr:取得行 endc:取得列 【右端の項目のみにデータラベル付加】
Dim x As Integer ' x=現在行
Dim ii&, lbl As DataLabels, distance!, gap!
x = 1
Do While x < endc
ActiveChart.SeriesCollection(x).Points(endr).ApplyDataLabels AutoText:=True, _
LegendKey:=False, ShowSeriesName:=True, ShowCategoryName:=False, _
ShowValue:=False, ShowPercentage:=False, ShowBubbleSize:=False
x = x + 1
Set lbl = ActiveChart.SeriesCollection(1).DataLabels
distance = lbl.Font.Size * 0.8
For ii = 2 To lbl.Count
gap = lbl(ii).Top - lbl(ii - 2).Top
If Abs(gap) < distance Then lbl(ii).Top = lbl(ii - 1).Top + distance * (IIf(Sgn(gap) = 1, 1, -1))
Next
Loop
' label_add end
|
|