用于设置 X 轴以根据单元格值穿过 Y 轴的宏

【问题标题】：Macro for Setting X axis to cross the Y Axis based on a cell value用于设置 X 轴以根据单元格值穿过 Y 轴的宏
【发布时间】：2012-09-12 15:21:31
【问题描述】：

我希望根据单元格中的值将 x 轴设置为与 y 轴交叉。有没有我可以使用的宏来完成这个？

谢谢，娜塔莉

【问题讨论】：

标签： axes

【解决方案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

【讨论】：