◆◆◆急::: VBA_Excel:为什么在生成折线图的时候,以新建图表方式不能成功呢? ◆◆◆

[xarrow]

代码如下:
失败的创建 -> ActiveChart.Location Where:=xlLocationAsNewSheet, Name:="图表名称"
成功的创建 -> ActiveChart.Location xlLocationAsNewSheet

[xarrow]

UPUP

[xarrow]

早起,UP下

[xarrow]

UPa

[icechj]

帮顶，同问!

[xarrow]

高手帮帮忙啊

[xarrow]

二次早起UP

[xarrow]

UPUP

[arrowy]

察看VBA

[sdrcxzy]

xarrow(HELLO WORLD)睡了回龙觉？幸福啊

[crycoming]

Sub MoveChart()
Dim x As Chart
' Create an embedded chart on a chart sheet.
Set x = Charts.Add
x.ChartType = xlColumnClustered
x.SetSourceData Source:=Sheets("Sheet1").Range("A1:C4")
Set x = x.Location(where:=xlLocationAsObject, Name:="Sheet1")
' Move chart to new sheet and reset the chart object variable x.
Set x = x.Location(where:=xlLocationAsNewSheet, Name:="Chart1")

' Move chart to back to the chart sheet.
Set x= x.Location(where:=xlLocationAsObject, Name:="Sheet1")
End Sub