Quantcast
Channel: 日曜大工、DIY、Excel VBAのページ
Viewing all articles
Browse latest Browse all 83

グラフにデータラベルを付ける

$
0
0

グラフにデータラベルを付ける

手動でグラフを描画し、このプロットごとにラベルを付けようとすると苦労します。
ところがVBAを利用するとプロット一つづつに任意の文字列を自由にラベルに付けられます。ラベルを表示する位置も指定できます。
 
下記はこのコード例です。
 

    With ActiveChart.SeriesCollection(1).Points
        For i = 2 To LastRow - 2
            'ラベルとして表示する文字列を取得する
            strLabel = Workbooks(GraphBookName).Sheets("graph").Cells(2, 2)
            With .Item(i - 1)         ' Itemとはプロットのこと
                  .HasDataLabel = True 'データラベルを表示します
                  .dataLabel.Text = strLabel '任意の文字列をラベルにできる
                  .dataLabel.Interior.Color = QBColor(11)
                  .dataLabel.Font.Size = 12 'Fontサイズ変更
                  .dataLabel.Top = .dataLabel.Top + 50  'ラベルの表示位置指定
                  .Border.LineStyle = xlDash '枠線種類指定
            End With
        Next i
    End With

Viewing all articles
Browse latest Browse all 83

Trending Articles