我無法將xlPrimaryANDxlSecondary軸設定為百分比。只有 1/2 設定為百分比，我不明白為什么。
我試過這行代碼將我的軸設定為百分比：
Set cht = Output.ChartObjects("Chart 1").Chart
With cht
.ChartArea.ClearContents
.ChartType = xlColumnClustered
xdata = EnregistrementsSecteurs
ydata = EnregistrementsValeurs
.SeriesCollection.NewSeries
.SeriesCollection(1).XValues = xdata
.SeriesCollection(1).Values = ydata
.SeriesCollection(1).Name = "Rating"
.Axes(xlPrimary).TickLabels.NumberFormat = "0.0%"
End With
Set cht = Output.ChartObjects("Chart 1").Chart
With cht
.SeriesCollection.NewSeries
.SeriesCollection(2).AxisGroup = xlSecondary
.FullSeriesCollection(2).ChartType = xlLine
.SeriesCollection(2).Values = TValues
.SeriesCollection(2).Name = "Y"
.SeriesCollection.NewSeries
.SeriesCollection(3).AxisGroup = xlSecondary
.FullSeriesCollection(3).ChartType = xlLine
.SeriesCollection(3).Values = ThisWorkbook.Sheets("sheet").Range("D3:D12").Value
.SeriesCollection(3).Name = "T"
.Axes(xlSecondary).TickLabels.NumberFormat = "0.0%"
End With
只有當我有一個秤時它才有效。當我在同一圖表上獲得 2 個比例時，只有一個軸設定為 %。
上面代碼的輸出：
uj5u.com熱心網友回復：
你很接近。指定軸Type：
.Axes(xlValue, xlSecondary).TickLabels.NumberFormat = "0.0%"
uj5u.com熱心網友回復：
正如Bigben提到的，我們需要在申請之前申請資料標簽。我已經檢查了下面的代碼，它對我有用。我使用了樣本范圍。
Sub test1()
For Each ws In Worksheets("sheet1").Shapes
Debug.Print ws.Name
Dim EnregistrementsSecteurs As Range
Dim EnregistrementsValeurs As Range
Set EnregistrementsValeurs = Worksheets("sheet1").Range("B2:B6")
Set EnregistrementsSecteurs = Worksheets("sheet1").Range("A2:A6")
Next
Set cht = ActiveSheet.ChartObjects("Chart 1").Chart
With cht
.ChartArea.ClearContents
.ChartType = xlColumnClustered
xdata = EnregistrementsSecteurs
ydata = EnregistrementsValeurs
.SeriesCollection.NewSeries
.SeriesCollection(1).XValues = xdata
.SeriesCollection(1).Values = ydata
.SeriesCollection(1).Name = "Rating"
.SeriesCollection(1).ApplyDataLabels
.SeriesCollection(1).DataLabels.NumberFormat = "0.0%"
End With
End Sub
轉載請註明出處，本文鏈接：https://www.uj5u.com/qukuanlian/342823.html
上一篇：如何將其壓縮為For回圈？