使用VBA将单词图与单词表链接

Question

我正在尝试可视化我存储在单词表中的数据。我可以用ThisDocument.Tables(6).Cell(i,j).Range.Text调用表格数据。我试图将这些数据复制到单词图的数据表中，但这没有成功。

Word table with data

图表必须在时间轴上以x轴显示时间，在y轴上显示货币量。我已经准备好在Word文档中插入图表，但是我需要访问其数据表。

Graph in word that i want to show

有人可以使用示例代码来解决此问题吗？

谢谢！

Answer 1

我正在尝试构建这样的代码：

Dim graph As Word.Chart

Set graph = ThisDocument.InlineShapes(1).Chart

If Not Len(ThisDocument.Tables(3).Cell(2, 1).Range.Text) = 2 Then
    Dim temp As String
    For i = 0 To ThisDocument.Tables(3).Rows.Count - 2
        graph.ChartData.Workbook.Worksheets(1).Cells(1 + i, 1).Value = Left(ThisDocument.Tables(3).Cell(2 + i, 3).Range.Text, Len(ThisDocument.Tables(3).Cell(2 + i, 3).Range.Text) - 2)
        temp = Left(ThisDocument.Tables(3).Cell(2 + i, 4).Range.Text, Len(ThisDocument.Tables(3).Cell(2 + i, 4).Range.Text) - 2)
        graph.ChartData.Workbook.Worksheets(1).Cells(1 + i, 2).Value = Right(temp, Len(temp) - 2)
    Next i
End If