怎样在word文档里添加图表(word文档中添加图表图形对象)

【分享成果，随喜正能量】一切随缘就叫解脱。不执着、不攀缘，苦乐完全取决于自己。不能贪求任何东西，一旦喜欢就执着在那里，应该心无挂碍。看人是好人，看事是好事，看境是好境，一切都是自己的心。。

《VBA 之 Word 应用》，是我推出第八套教程，教程是专门讲解 VBA 在 Word 中的应用，围绕“面向对象编程”讲解，首先让大家认识 Word 中 VBA 的对象，以及对象的属性、方法，然后通过实例让大家感受到 Word VBA 的妙处。本套教程共三册十六章，今日内容是第五章“Word 中的 Range 对象（上）”第 6 节：Word文档中添加图表、图形对象。

第六节 Range 对象的属性（五）

大家好，我们继续讲解 Range 对象的属性，这节的内容是 Range 属性的最后一节，这章的 Range 对象是我们掌握 Word VBA 的重要内容，我们要特别的掌握。

1 Range.Tables 属性

这个属性返回一个 tables 集合, 该集合代表指定区域中的所有表格。

语法：expression. Tables

其中 expression 为一个表示 Range 对象的变量。

2 Range.Underline 属性

返回或设置应用于一系列的下划线的类型。

语法：expression.Underline

其中 expression 为一个表示 Range 对象的变量。

3 Range.ShapeRange 属性

这个属性返回一个 ShapeRange 集合, 该集合代表指定区域中的所有 Shape 对象。

语法： expression.ShapeRange

其中 expression 为一个表示 Range 对象的变量。

• 图形范围可以包含绘图、图形、图片、OLE 对象、ActiveX 控件、文本对象和标注。

4 实例：添加下划线、添加图表、添加图形颜色

下面我们举个实例，这个实例中将给当前活动文档的某个段落添加上下划线，并在当前文档中添加一个表格，在表格中添加文本，最后在当前文档中添加两个图形，并给图形添加颜色。下面我们看代码：

Sub mynzE()

[详细代码见教程]

End Sub

代码截图：

代码解读：

1）\'将文档的第三段加上双下划线

ActiveDocument.Paragraphs(3).Range.Underline = wdUnderlineDouble

以上代码将当前文档的第三个段落添加上双下划线，wdUnderlineDouble 是双下划线。

下面我们看一下 WdUnderline 的 枚举值：

wdUnderlineDash 7 划线。

wdUnderlineDashHeavy 23 粗划线。

wdUnderlineDashLong 39 长划线。

wdUnderlineDashLongHeavy 55 长粗划线。

wdUnderlineDotDash 9 点划相间线。

wdUnderlineDotDashHeavy 25 粗点划相间线。

wdUnderlineDotDotDash 10 点-点-划线相间模式。

wdUnderlineDotDotDashHeavy 26 粗点-点-划线相间模式。

wdUnderlineDotted 4 点。

wdUnderlineDottedHeavy 20 粗点。

wdUnderlineDouble 3 双线。

wdUnderlineNone 0 无下划线。

wdUnderlineSingle 1 单线。 默认值。

wdUnderlineThick 6 单粗线。

wdUnderlineWavy 11 单波浪线。

wdUnderlineWavyDouble 43 双波浪线。

wdUnderlineWavyHeavy 27 粗波浪线。

wdUnderlineWords 2 仅为单个字加下划线。

2）\'添加两个矩形，填充紫色

ActiveDocument.Shapes.AddShape msoShapeRectangle, 50, 50, 100, 200

ActiveDocument.Shapes.AddShape msoShapeRectangle, 150, 150, 100, 200

ActiveDocument.Content.ShapeRange.Fill.ForeColor.RGB = _

RGB(255, 0, 255)

以上代码会添加两个矩形图形，关于图形的添加我们会在以后讲解到，msoShapeRectangle

是指矩形，后面跟的四个数值分别指图形的位置 Left, Top 大小 Width,Height。

添加图形后给图形添加上紫色 RGB(255, 0, 255)，大家要注意添加颜色的写法： ActiveDocument.Content.ShapeRange.Fill.ForeColor

3） \'添加图表，图表的第一列填上数据

ActiveDocument.Paragraphs.Add

以上代码添加一个新的段落

4） Set myTable = ActiveDocument.Tables.Add(Range:=ActiveDocument.Paragraphs(ActiveDocument.Paragraphs.Count).Range, NumRows:=3, NumColumns:=3, DefaultTableBehavior:=wdWord9TableBehavior)

以上代码是添加一个图表

5）Num = 100

For Each myCell In ActiveDocument.Tables(1).Columns(1).Cells

myCell.Range.Text = Num & \" VBA\"

Num = Num + 1

Next

以上代码是在图表的首列填上内容，

下面看代码的运行情况：

今日内容回向：

1 什么是 Word 中 Range 对象的 Tables 属性、Underline 属性、ShapeRange 属性的意义是什么？

2 如何设置段落的图表、图形及下划线？

本讲内容参考程序文件：Doc 005 文档.docm

我 20 多年的 VBA 实践经验，全部浓缩在下面的各个教程中：

【分享成果，随喜正能量】人生有更多美好的东西在等待我们，对他人不指责，不计较，其实也是放过了自己。纠缠你的是你的执着和猜疑，解放你的只有你的轻松与放手。一个人如果不能从内心去原谅别人，那他就永远不会心安理得。