dim objshape as word.inlineshape
dim strkey as string 'bookmark的名称
'首先要在word中嵌入一个graph,然后把这个graph添加一个bookmark(书签),名字就是strkey的内容
objshape = mobjdoc.bookmarks.item(strkey).range.inlineshapes.item(1)
objshape.oleformat.doverb(verbindex:=word.wdoleverb.wdoleverbhide)
objchart = objshape.oleformat.object()
'设置横轴的属性
axis = objchart.axes(2, 1)
'最小刻度
axis.minimumscale = 0
'主要刻度单位
axis.majorunit = 10
'次要刻度单位
axis.minorunit = 10
'最大刻度
axis.maximumscale = 50
'在graph的表格中填写内容
objdatasheet = objchart.application.datasheet
objdatasheet.cells(1, 1) = "aa"
'对表格进行更新
objchart.application.update()
'退出graph程序
objchart.application.quit()
新闻热点
疑难解答