エクセル2000のグラフについて

質問

エクセル2000のグラフについて

お世話になります。
エクセルにてレーダーチャートを作っているのですが、例えば・・・

　　　　　【作業者別スキル表】
　　　　　作業A　　作業B　　作業c
作業者A　　5　　　　1　　　　3
作業者B　　1　　　　3　　　　0
作業者c　　3　　　　3　　　　3

のデータで、グラフの中でスキル1以下の作業者が1人でもいる場合
作業名を赤で自動で表示させたいのですが可能でしょうか。
(このデータだと、レーダーチャートの作業A・Bを赤色に表示したい)

数値を自動で赤で表示させる方法は、データラベルの書式設定のユーザー定義で
コマンドを入力するやり方でできたのですが、出来れば作業名も自動で赤で表示したいです。

よろしくお願いいたします。

回答No.1

xls88 · ベストアンサー

個々に書式設定は無理っぽいです。
以下、代案です。

項目軸ラベルは非表示とする
ダミー系列を追加
全要素の値は最大値とする
追加した系列のデータラベルを項目軸ラベルに代用

手作業でダミー系列を追加してください。
あとはVBAコードを組んでみました。
グラフを選択して置いて実行してください。

≫まず、追加した系列のデータラベルを表示し作業名を入力

Dim xval As Variant
Dim i As Integer

With ActiveChart
xval = .SeriesCollection(1).XValues
With .SeriesCollection(4)
.ApplyDataLabels
For i = 1 To .Points.Count
.Points(i).DataLabel.TEXT = xval(i)
Next i
End With
End With

≫次に、1以下のデータがある場合作業名を赤色にします。

Dim ser As Series
Dim xval As Variant
Dim i As Integer

With ActiveChart
.SeriesCollection(4).DataLabels.Font.ColorIndex = xlAutomatic
For Each ser In .SeriesCollection
xval = ser.values
For i = 1 To ser.Points.Count
If xval(i) <= 1 Then
.SeriesCollection(4).Points(i).DataLabel.Font.ColorIndex = 3
End If
Next i
Next
End With

お礼

ありがとうございました。

マクロ初心者ですが、やってみます。
本当にありがとうございました。