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程序？