ActiveChart.Axes(xlCategory, xlPrimary).CategoryType = xlAutomatic '指定刚刚新加的EXCEL图表的坐标格式
ActiveWindow.Visible = False '把当前窗口隐藏，这句挺奇怪的
Windows("Industry_by_province.xls").Activate '激活指定EXCEL文件
Sheets("Sheet7").Select '激活指定的工作表，此处也就是数据源表
End Sub
---------------------------------------------------------
我给你做最最简单的修改吧，在开始由你指定数据源和图表所在工作表的名称 。有什么问题可以再问，关键是你想怎么做 。
Sub Macro7()
'
' Macro7 Macro
' 宏由 qx 录制，时间： 2007-4-2
'
'
strSheetName=InputBox（"请输入数据源Sheet名"）
Charts.Add '增加EXCEL图表
ActiveChart.ChartType = xlLineMarkers '指定刚刚新加的EXCEL图表类型
ActiveChart.SetSourceData Source:=Sheets(strSheetName).Range("G5:G34"), PlotBy _
:=xlColumns '指定刚刚新加的EXCEL图表数据源，如果数据源发生变化
ActiveChart.Location Where:=xlLocationAsObject, Name:=strSheetName
With ActiveChart
.HasAxis(xlCategory, xlPrimary) = True
.HasAxis(xlValue, xlPrimary) = True
End With '指定刚刚新加的EXCEL图表的坐标
ActiveChart.Axes(xlCategory, xlPrimary).CategoryType = xlAutomatic '指定刚刚新加的EXCEL图表的坐标格式
ActiveWindow.Visible = False '把当前窗口隐藏，这句挺奇怪的
Windows("Industry_by_province.xls").Activate '激活指定EXCEL文件
Sheets(strSheetName).Select '激活指定的工作表，此处也就是数据源表
End Sub
6.excel 宏代码怎么用在介绍学习VBA之前，应该花几分钟录制一个宏 。
新术语：“宏”，指一系列EXCEL能够执行的VBA语句 。以下将要录制的宏非常简单，只是改变单元格颜色 。
请完成如下步骤： 1）打开新工作簿，确认其他工作簿已经关闭 。2）选择A1单元格 。
调出“常用”工具栏 。3）选择“工具”—“宏”—“录制新宏” 。
4）输入“改变颜色”作为宏名替换默认宏名，单击确定，注意，此时状态栏中显示“录制”，特别是“停止录制”工具栏也显示出来 。替换默认宏名主要是便于分别这些宏 。