很多属性都是readonly的
解决方案 »
- VB打包中的"丢失相关信息",和"过期相关信息"两个对话框是什么意思呀?没太明白.
- 请教高手COMAdmin接口使用,按下面代码运行后“组件服务”中没有对应名称生成。
- WebBrowser问题
- 请问如何在KEY DOWN中获取ctrl + z ?
- 如何調用一個需要傳遞參數的應用程序?
- 关于导入数据的一个很急的问题
- 关于在延时中使用DoEvents的问题
- 关于VB中Combo控件获得SQL数据库中某一列全部内容
- 请问有没有查看AUTOCAD的VB控件
- 怎样获得treeview中指定key的index?谢了
- 如何将Ado获取的数据显示在DataGrid控件上?急!!!
- 如何知道让程序得到自己的句柄,然后在退出的时候,kill掉自身的进程线程?
... '生成各种所需要Excel对象 books.charts.Add
With books.Charts(1)
.ChartType = xlLineMarkers
.SetSourceData Source:=xs.Range("M13:W13,M15:W16"), _
PlotBy:=xlRows
end with
xs.Select
books.Charts(1).Location Where:=xlLocationAsObject, Name:="h"
books.Sheets(1).ChartObjects(1).width = 445.5
books.Sheets(1).ChartObjects(1).height = 117
books.Sheets(1).ChartObjects(1).Cut
xs.Select
xs.Range("M17").Select
xs.Paste Destination:=xs.Range("M17")
With xs.ChartObjects(1)
.left = xs.Range("M17").left
.top = xs.Range("M17").top
End With