你能帮我解决这个问题吗?我想根据单元格引用为我的图表生成最小轴值。
这是我的代码。
Private Sub Worksheet_calculate()
With ActiveChart.Axes(xlValue)
.MinimumScale = Worksheets("Chart Data").Range("E111").Value
End With
End Sub
答案 0 :(得分:1)
我这样做:
Private Sub Worksheet_calculate()
Dim cht As Chart
Set cht = Worksheets("Chart").ChartObjects("Chart 1").Chart
cht.Axes(xlValue).MinimumScale = Worksheets("Chart Data").Range("E111").Value
End Sub
ActiveChart
ChartObjects("Chart 1")
你的图表ChartObjects(1)