excel的宏教程免费下载

.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警告提示的方法以免其自动弹出提示框。