axes - 用于根据单元格值设置 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