VB操纵Excel时,为什么生成的Chart不能定位到指定的Sheet?

Question

Set ExApp = CreateObject("Excel.Application")
ExApp.Workbooks.Add with ExApp
..........
.Sheets("Sheet3").Select
szSheet = .ActiveSheet.Name
szRang = "B1:H5"
.Range(szRang).Select
.Charts.Add
.ActiveChart.ChartType = xlLineMarkers
.ActiveChart.SetSourceData Source:=Sheets(szSheet).Range(szRang), PlotBy:=xlRows
.ActiveChart.Location Where:=xlLocationAsObject, Name:=szSheet '好象这句不起什么作用'**********
.ActiveChart.Location Where:=xlLocationAsObject, Name:="Sheet3" '将上面改成这样也不行
'***********......
End With为什么生成的图表不能定位到Sheet3??????????

Answer 1

用Workbooks("???").Charts.Add
不要用ExApp.Charts.Add

Answer 2

.ActiveChart.Location Where:=xlLocationAsNewSheet, Name:=szSheet