用於設置X軸以基於單元格值穿過Y軸的宏

Question

我期待根據單元格中的值將x軸設置爲穿過y軸。有沒有我可以用來完成這個宏？

感謝，娜塔莉

Answer 1

想通了的情況下，任何人都好奇：

Sub Set_Analyst_Medians() 
ActiveSheet.ChartObjects("Chart 23").Activate 
ActiveChart.PlotArea.Select 
ActiveChart.SetElement (msoElementPrimaryValueAxisShow) 
ActiveSheet.ChartObjects("Chart 23").Activate 
ActiveChart.Axes(xlValue).Select 
ActiveChart.Axes(xlValue).CrossesAt = Range("D38") 
ActiveChart.Axes(xlValue).MaximumScale = Range("D49") 
ActiveChart.Axes(xlValue).MinimumScale = Range("D50") 
Selection.Delete 
End Sub