将一个词图与一个词表连接起来

Question

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

带数据的字表

这个图表必须在时间轴上显示时间的货币量，而在Y轴上显示货币量。我已经在word文档中插入了一个图表，但我需要访问它的数据表。

我想在word中显示图表

有没有人有一个例子代码，我可以用它来解决这个问题？

我试图建立这样的代码。

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

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