在word中如何控制graph控件

阳光的昔溪面膜

阳光的昔溪面膜

2016-01-29 12:32

在word中如何控制graph控件,在word中如何控制graph控件

Dim objShape As Word.InlineShape Dim objChart As Object Dim objDataSheet As Object Dim axis As Graph.Axis
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()
展开更多 50%)
分享

猜你喜欢

在word中如何控制graph控件

电脑网络
在word中如何控制graph控件

怎样在VB中控制WORD

编程语言 网络编程
怎样在VB中控制WORD

s8lol主宰符文怎么配

英雄联盟 网络游戏
s8lol主宰符文怎么配

在Word2024中制作打钩控件框

word
在Word2024中制作打钩控件框

在word中如何画图

电脑入门
在word中如何画图

lol偷钱流符文搭配推荐

英雄联盟 网络游戏
lol偷钱流符文搭配推荐

Word2024中制作按钮控件

word
Word2024中制作按钮控件

在Word中如何画横线

电脑入门
在Word中如何画横线

lolAD刺客新符文搭配推荐

英雄联盟
lolAD刺客新符文搭配推荐

使用CommandBuilder为DataAdaper生成的Command更新数据源时的注意事项!

使用CommandBuilder为DataAdaper生成的Command更新数据源时的注意事项!

网页设计配色精彩十例

网页设计配色精彩十例
下拉加载更多内容 ↓