如何实例化图表？

Question

我目前正在尝试创建图表，例如通过单词vba的一个饼图。

问题在于将运行单词vba的计算机没有可用的excel，只有单词和ms图形。

我试图用ms图创建一个图表，但是我无法使其工作。

从下面的代码中，我可以创建具有inlineshapes和图表的图表，并且在单词窗口中会显示一个漂亮的条形图。

我无法实例化Graph女士的图表元素。我找到了一个法语指南，该指南显示了应如何做，但是我无法理解“ me.graphique1”部分。

Inlineshapes

Dim vlChart As Chart

Set vlChart = ActiveDocument.InlineShapes.AddChart2.Chart

图表

Dim vlChart As Graph.Chart

Set vlChart = Me.Graphique1.Object.Application.Chart

我希望能够创建一个图形对象，但是我不知道自己在做什么。

Answer 1

由于MS Graph长期以来已被弃用，因此不能保证它仍然会起作用。以下代码示例演示了如何插入MS Graph对象并访问其数据表。

此代码要求引用VBA工具/参考中的MS Graph对象库。我强烈建议您至少在编写代码时使用它，以便拥有Intellisense。

Dim grph as Graph.Chart
Dim grphData as Graph.DataSheet
Dim grphApp as Graph.Application
Dim doc as Word.Document
Dim oleF as Word.OLEFormat
Dim rng as Word.Range

Set doc = ActiveDocument
Set rng = doc.Content
Set oleF = doc.InlineShapes.AddOLEObject(ClassType:="MSGraph.Chart.8", Range:=rng).OLEFormat
oleF.DoVerb
Set grphChart = oleF.Object
Set grphApp = grphChart.Application
Set grphData = grphApp.DataSheet
grphData.Cells.Clear
'Now start entering the data and formatting the chart