如何用VBA设置次坐标轴的大小值？

lk710618 · 发表于 2022-6-10 16:44

各位老师，下面这个是一段设置柱形图坐标轴大小的VBA，非常好用，可是我现在的图形是双轴图形，次坐标轴也需要根据单元格B1、B2来自动调节大小，我这段VBA该如何改写？
麻烦路过老师出手相助

Private Sub Worksheet_Change(ByVal Target As Range)
  ActiveSheet.ChartObjects("图表 1").Activate
ActiveChart.Axes(xlValue).Select
With ActiveChart.Axes(xlValue)
      .MaximumScale = Range("A1")
      .MinimumScale = Range("A2")
  End With
End Sub

493861364 · 发表于 2022-6-10 18:57

录制宏，然后改吧改吧就行，主要坐标轴及次要坐标轴都要时可见状态的仅供参考

ActiveSheet.ChartObjects("图表 1").Activate
ActiveChart.Axes(xlValue).Select
ActiveChart.Axes(xlValue).MinimumScale = Range("A1")
ActiveChart.Axes(xlValue).MaximumScale = Range("A2")
ActiveChart.Axes(xlValue, xlSecondary).Select
ActiveChart.Axes(xlValue, xlSecondary).MinimumScale = Range("A3")
ActiveChart.Axes(xlValue, xlSecondary).MaximumScale = Range("A4")

lk710618 · 发表于 2022-6-10 21:35

其实，主要是不知道在VBA中怎么表达次坐标轴，希望如果的高手指点

lk710618 · 发表于 2022-6-11 07:00

493861364 发表于 2022-6-10 18:57
录制宏，然后改吧改吧就行，主要坐标轴及次要坐标轴都要时可见状态的仅供参考

非常感谢

经你一改，反而还变得简单一些了，太棒了

493861364 · 发表于 2022-6-11 09:56

本帖最后由 493861364 于 2022-6-11 10:46 编辑

lk710618 发表于 2022-6-11 07:00
非常感谢
经你一改，反而还变得简单一些了，太棒了

互相学习，互相帮助

		自动登录	找回密码
密码			免费注册

[求助] 如何用VBA设置次坐标轴的大小值？

评分