用VBA控制图表的坐标轴刻度的最小值

wjpsz

如何设置一段VBA代码，让EXCEL中的图表坐标轴刻度的最小值等于单元格E2的值？而且触发这段代码的事件为该单元格E2的值发生改变的时候，自动重新设置坐标轴刻度的最小值。谢谢。

KrystalSteal

1. Private Sub Worksheet_Change(ByVal Target As range)
   
2.   ActiveSheet.ChartObjects("图表 1").Activate
   
3.     ActiveChart.Axes(xlValue).Select
   
4.     With ActiveChart.Axes(xlValue)
   
5.         .MinimumScale = range("A1")
   
6.     End With
   
7. End Sub

复制代码

KrystalSteal

KrystalSteal 发表于 2013-6-24 20:32

把最小值填进A1

wjpsz

感谢KrystalSteal的帮忙