最新下载
热门教程
- 1
- 2
- 3
- 4
- 5
- 6
- 7
- 8
- 9
- 10
在word中如何控制graph控件
时间：2022-07-02 11:53:16 编辑：袖梨 来源：一聚教程网
Dim objShape As .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
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
相关文章
- 《光与影 33号远征队》周年纪念销售数据更新 05-13
- 《光与影 33号远征队》的结局是这款RPG最精彩的部分 05-13
- 异环自选S级角色推荐 05-13
- 唐门技能攻略（唐门技能攻略详解，助你成为顶级强者） 05-13
- 她收藏的稀有宝可梦传说 阿尔宙斯卡牌数量史无前例 引发了广泛关注 05-13
- 据报道 早期玩家认为 Fairgames 试玩体验“乏味” 05-13