我试图在宏中使用Max函数使我的图表垂直轴自动调整到一系列单元格中的最大数字。我已经开始了一个不起作用的宏，但下面是我想要的一点点。非常感谢任何帮助。
ActiveSheet.ChartObjects(1).Chart.Axes(xlValue).MaximumScale = Application.WorksheetFunction.Max(Range("D26:D100"))
答案 0 :(得分：1)
以下是正确的编码VBA Pete帮助我提出的，再次感谢！
ActiveSheet.ChartObjects(1).Chart.Axes(xlValue).MaximumScale = Application.WorksheetFunction.Max(Range("D26:D100"))
答案 1 :(得分：0)
对于未来的案例和良好的编码实践，请尽量避免使用/usr/bin/env python
Python 2.7.10 (default, Jul 14 2015, 19:46:27)
[GCC 4.2.1 Compatible Apple LLVM 6.0 (clang-600.0.39)] on darwin
Type "help", "copyright", "credits" or "license" for more information.
>>>
并使用引用的对象。
ActiveSheet