Sub 宏1()'' 宏1 Macro' 调整坐标轴'' 快捷键: Ctrl+a' ActiveSheet.ChartObjects("图表 2").Activate ActiveChart.Axes(xlCategory).Select With ActiveChart.Axes(xlCategory) .MaximumScale = 2250 End With ActiveSheet.ChartObjects("图表 1").Activate ActiveChart.SeriesCollection(1).Select ActiveChart.Axes(xlCategory).Select With ActiveChart.Axes(xlCategory) .MinimumScale = 38666.34 .MaximumScale = 38669.88 End WithEnd Sub如何将上述程序改成VC程序？
