软件:ExcelVBA
版本:2007
小弟最近要做Chart
以下是程式码
chart.add
activechart.chartType = xlColumnClustered
activeChart.SetSourceData Source := Sheets("table").Range("A1:D8"),PlotBy := _
xlRows
activeChart.Location Where := xlLocationAsObject , Name := "table"
小弟的问题
1.
有没有办法将Range("A1:D8")改成Range(cells(1,1),cells(8,4))
因为没有成功，也不知到哪里出问题.......
2.
原本想设计成 xlLocationNewChart 让生成的图都在一个分页，而且图很大
但是发现没办法看过一次就删掉
请问删掉那个chart的分页的语法是哪个
3.
因为第二个问题的关系，所以我改成贴在工作表上，然后每个新生成的图
都会附盖之前生成的旧的图....，因为也不会删掉贴在工作表上的图，
所以用覆蓋的...，
请问怎么将图放大到很大有第三个问题的效果
4.
有没有办法将之前生成的图删掉的语法
希望各位大大能够抽空帮我解答，先在这边谢谢大大了！

问题1先将位置暂存字串再丢到range内http://goo.gl/RuAbvc2.删掉分页想到的是sheets.delete3.删掉贴在工作表上的图，有命名的话就ActiveSheet.Shapes("chart1").Delete4.删掉之前生成的图，假设都没有命名的话用for each shp in activesheet.shapes ...next循环内加上if shp.type = msochart thenshp.delete 来删除，shp是自订变量，宣告类型为shape

谢谢大大帮忙!! 我待会试试看!大大给的例子正是我要的功能!!! 谢谢大大!!!!

^^

小弟后来测试 usedrange 可以用，跟大大分享这个资讯也谢谢大大额外分享 当Chart 在sheet上怎么删图

感谢分享^^也可用currentregion