问题描述
excel中画完了图表,录制了宏如下:Charts.AddActiveChart.ChartType=xlXYScatterLinesActiveChart.SetSourceDataSource:=Sheets("Sheet1").Range("B9:L10"),PlotBy_:=xlRowsActiveChart.LocationWhere:=xlLocationAsNewSheetWithActiveChart.Axes(xlCategory).HasMajorGridlines=True.HasMinorGridlines=TrueEndWithWithActiveChart.Axes(xlValue).HasMajorGridlines=True.HasMinorGridlines=TrueEndWithActiveChart.Axes(xlCategory).SelectWithActiveChart.Axes(xlCategory).MinimumScaleIsAuto=True.MaximumScale=10.MinorUnit=0.1.MajorUnit=1.Crosses=xlAutomatic.ReversePlotOrder=False.ScaleType=xlLinear.DisplayUnit=xlNoneEndWithActiveChart.Axes(xlValue).SelectWithActiveChart.Axes(xlValue).MinimumScaleIsAuto=True.MaximumScale=2.MinorUnit=0.1.MajorUnit=1.Crosses=xlAutomatic.ReversePlotOrder=False.ScaleType=xlLinear.DisplayUnit=xlNoneEndWithActiveChart.ChartArea.SelectActiveChart.Axes(xlCategory).MinorGridlines.SelectActiveChart.ChartArea.SelectEndSub