カスタマイズしたデータ ラベルを Excel グラフに配置するために記述した VBA コードの一部に苦労しています。
Sub LabelPnt() 'change
Dim nm As Variant
Dim rate As Variant
Dim i As Integer
Dim r As Integer
Dim n As Integer
Dim b As Boolean
With Sheets("Rates") 'change as needed
r = .Range("C13:C30").Rows.Count 'change as needed
ReDim nm(r)
nm = .Range("C13:C30") 'num/den change
ReDim rate(r)
rate = .Range("B13:B30") 'rate change
End With
With Sheets("Fairview Northland Rate") 'change
For n = 1 To 1
With .SeriesCollection(n)
.ApplyDataLabels
For i = 1 To r
With .Points(i)
Select Case n
Case 1
.DataLabel.Text = rate(i, n) & Chr10 & "(" & nm(i, n) & ")"
.DataLabel.Font.Bold = False
.DataLabel.Font.Size = 7.5
.DataLabel.HorizontalAlignment = xlCenter
End Select
End With
Next i
End With
Next n
End With
End Sub
このステートメント ".DataLabel.Text = rate(i, n) & Chr10 & "(" & nm(i, n) & ")"" では、レートは元のデータ シートのように小数点以下 3 桁にする必要がありますが、シートのデータ ラベルの小数点を除外します。これは、データ ラベルがテキストであるためだと思います。
誰かがこれを修正するのを手伝ってくれますか? ありがとうございます。私は何時間も費やしましたが、この部分を理解できませんでした。
必要に応じて、さらに詳しい情報や説明を提供できます。