CategoryTitle:分类轴标题文字。
ValueTitle:数值轴标题文字。
ExtraTitle:三维图表的系列轴标题,或二维图表的第二数值轴标题。
可组合使用
Add方法和
ChartWizard方法,以创建包含工作表中数据的图表工作表。下例基于工作表
“Sheetl”中单元格区域
“A1:
A20”中的数据生成新的折线图并打印。
With Charts.Add
.ChartWizard source:
=Worksheets ("sheet1").Range ("a1:
a20"),gallery:
=xlLine, title:
=“折线图表
”
.Printout
End With
5、使用
Excel工作表函数
在
VB语句中可使用大部分的
Excel工作表函数,可通过
WorksheetFunction对象调用
Excel工作表函数。下面的
Sub过程用
Min工作表函数求出指定区域中单元格的最小值,并通过消息框显示结果值。
Sub UseFunction()
Dim myRange As Range
Set myRange=Worksheets ("Sheet1").Range("B2:
F10")
answer=Application.WorksheetFunction.Min(myRange)
MsgBox answer
End Sub
如果使用以区域引用为参数的工作表函数,必须指定一个
Range对象。如可用
Match工作表函数对
A1:
A10区域的所有单元格进行搜索。
Sub FindFirst()
my Var=Application.WorksheetFunction.Match (9, Worksheets( 1).Range("A1:
A10"),
0)
MsgBox myVar
End Sub
要在单元格中插人工作表函数,可将该函数指定为对应于
Range对象的
Formula属性值。在以下示例中,将当前工作簿
Sheetl内
A1:
B3区域的
Formula属性指定为
RAND工作表函数
(此函数产生二个随机数
)。
Sub InsertFormula()
Worksheets ("Sheet1" ).Range("A1:
B3").Formula="RAND()"End Sub
以上简要介绍了
Excel对象模型中部分对象及其属性和方法,更详细的信息可参阅
Excel 2000帮助中的
“Microsoft Excel Visual Basic参考
”一节的内容。实际上,
Microsoft Office家族的
Word,PowerPoint, Access和
Project等应用程序都可以在
VB应用程序中调用,其原理和步骤完全相同,只是其对象模型有所不同而已。