Excel VBA質問箱 IV

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

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


26816 / 76732 ←次へ | 前へ→

【55242】Re:表のラベルが重ならないようにするには?
質問  ラメーン  - 08/4/23(水) 17:46 -

引用なし
パスワード
   ▼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
7 hits

【55021】表のラベルが重ならないようにするには? ラメーン 08/4/11(金) 15:06 質問
【55169】Re:表のラベルが重ならないようにするには? VBWASURETA 08/4/18(金) 15:54 質問
【55193】Re:表のラベルが重ならないようにするには? yuu1 08/4/22(火) 11:28 回答
【55242】Re:表のラベルが重ならないようにするには? ラメーン 08/4/23(水) 17:46 質問
【55250】Re:表のラベルが重ならないようにするには? yuu1 08/4/24(木) 13:06 回答
【55252】Re:表のラベルが重ならないようにするには? VBWASURETA 08/4/24(木) 15:34 発言

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