Excel2010の棒グラフに数値以外のセルを表示

質問

お世話になります。
Excel2010の棒グラフです。記号のグラフを追加できないでしょうか。

A列　B列
10
20　　△
10
40　　△
30

20と40を示す棒グラフのどこかに△記号を表示させることはできないでしょうか。
データとして△記号になっているので、数字等に置き換えることはできません。

データラベルに数値以外のセルを表示したい
http://ciao.aoten.jp/ciao/2012/02/post-fd1c.html

方法としてはこれなのですが、600行ほどあるため、なにか別の手段はないかと思い質問しました。

回答No.5

mitarashi

#1です。
△をY=0の箇所に表示するニーズについて、X軸の目盛りのラベルを下端に設定した場合（当方の好みですが）に対応できるコードです。ご参考まで。
Sub test()
Dim myChart As Chart
Dim mySeries As Series
Dim yValueRange As Range
Dim i As Long

'ActiveSheetにグラフが一個ある事が前提
Set myChart = ActiveSheet.ChartObjects(1).Chart
'データ系列も一つだけが前提
Set mySeries = myChart.SeriesCollection(1)
With mySeries
'SeriesのFormulaからyvalueのセル範囲を取得
'例： =SERIES(Sheet1!$B$1,Sheet1!$A$2:$A$100,Sheet1!$B$2:$B$100,1)　の$B$2:$B$100を取得
Set yValueRange = ActiveSheet.Range(Split(Split(mySeries.Formula, ",")(2), "!")(1))
For i = 1 To .Points.Count
.Points(i).ApplyDataLabels
'各Y値のセルの一つ右隣の値をデータラベルに設定
.Points(i).DataLabel.Text = yValueRange.Cells(i).Offset(, 1).Value
'毎回計算する必要は無いのですが手抜きです。律速になる場合は、ループの外で計算して下さい...
.Points(i).DataLabel.Top = convertToPlotareaPosY(myChart, 0) - .Points(i).DataLabel.Height / 2
Next i
End With
End Sub

'軸目盛りの値→グラフ上の座標に変換
'xlCategory対応を改造したので名残があります...
Private Function convertToPlotareaPosY(targetGraph As Chart, SetScale As Single) As Single
Dim PIH As Single, PIW As Single, PIT As Single, PIL As Single
Dim MaxScale As Single, MinScale As Single
Dim x As Single

On Error GoTo ErrorHandler
If targetGraph Is Nothing Then Exit Function
With targetGraph
With .Axes(xlValue)
MinScale = .MinimumScale
MaxScale = .MaximumScale
End With
With .PlotArea
PIH = .InsideHeight
PIW = .InsideWidth
PIT = .InsideTop - 0.25
PIL = .InsideLeft - 0.25
End With
End With
convertToPlotareaPosY = (MaxScale - SetScale) / (MaxScale - MinScale) * PIH + PIT
ErrorHandler:
Exit Function
End Function