.Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = \轴标题\End With
With ActiveChart.Axes(xlCategory)
.HasMajorGridlines = True '显示x轴主网格线，默认情况下为显示 .HasMinorGridlines = True '显示x轴次网格线，默认情况下为不显示 End With
With ActiveChart.Axes(xlValue)
.HasMajorGridlines = True '标出x轴主网格值，默认情况下为标注 .HasMinorGridlines = False '取消x轴次网格值标注，默认情况下为不标注 End With
ActiveChart.Legend.Position = xlRight '图例显示在图表右侧
2、嵌入式图表
嵌入式图表仅在添加方式及引用格式上与工作表图表有所不同，而对图表的设置基本类似。详见下例。
Set嵌入表=ActiveSheet.ChartObjects.Add(0,0,200,300) '在当前工作表(0,0)坐标处添加宽200，高300的嵌入式图表
嵌入表.Chart.ChartType = xlColumnClustered '图表类型为簇状柱形图
嵌入表.Chart.SetSourceData Source:=Sheets(1).Range(\PlotBy:=xlRows '设置图表数据来源
With 嵌入表.Chart
.HasTitle = False '无图表标题
.Axes(xlCategory, xlPrimary).HasTitle = False '无x轴标题 .Axes(xlValue, xlPrimary).HasTitle = False '无y轴标题
End With[dvnews_page]
五)、工作表 1、添加
Sheets.Add before:=Sheets(1) '在第1工作表前添加新工作表
Sheets.Add after:=Sheets(Sheets.Count) '在最后工作表后添加新工作表 2、移动
ActiveSheet.Move before:=Sheets(2) '将当前工作表移动至第2工作表之前
3、命名
ActiveSheet.Name=\工作表名\将当前工作表命名为\工作表名\
4、删除
可以用以下语句删除当前工作表。
ActiveSheet.Delete
但在删除前excel会自动弹出提示框，需在用户确认后方可执行删除。为避免这一干扰，可以先用以下语句关闭excel的警告提示。 Application.DisplayAlerts = False 在删除完成后，再重新打开excel的警告提示 Application.DisplayAlerts = True
六)、工作簿
excel的宏对工作簿的操作主要为保存。 Dim 存盘文件名 As String
ActiveWorkbook.Save '保存当前工作簿 存盘文件名=\工作表名\
ActiveWorkbook.SaveAs Filename:= 存盘文件名 '当前工作簿另存为\工作表
名.xls\
在另存时，若指定的存盘文件名不包含路径，则保存在该工作簿的打开目录下。而若此存盘文件已存在，也可用关闭excel警告提示的方法以免其自动弹出提示框。
相关推荐：
loading