Public Sub MSGraphObjectBearbeiten()
  Const cBMName As String = "tmGraph1"

  Dim objWDDoc      As Word.Document
  Dim objIShape     As Word.InlineShape

  Dim objOLEChart   As Object
  Dim objOLEDataSht As Object

  Dim nRow  As Long
  Dim nCol  As Integer

  Set objWDDoc = ActiveDocument
  If objWDDoc.Bookmarks.Exists(cBMName) Then
    On Error Resume Next
    Set objIShape = _
          objWDDoc.Bookmarks(cBMName).Range.InlineShapes(1)

    If Err.Number <> 0 Then
      MsgBox "Es ist ein Fehler aufgetreten !!" & vbCrLf & _
             Err.Description, vbOKOnly + vbExclamation, _
             Title:="Demo - MS-Graph-Objekt bearbeiten"

      Set objWDDoc = Nothing
      Exit Sub

    Else
      If objIShape.OLEFormat.ClassType <> "MSGraph.Chart.8" Then
        MsgBox "Es ist ein Fehler aufgetreten !!" & vbCrLf & _
               "Das Element ist kein MS-Graph-Objekt !!", _
               vbOKOnly + vbExclamation, _
               Title:="Demo - MS-Graph-Objekt bearbeiten"

        Set objIShape = Nothing
        Set objWDDoc = Nothing
        Exit Sub
      End If
    End If
    On Error GoTo 0
  End If

  objIShape.OLEFormat.DoVerb wdOLEVerbHide

  Set objOLEChart = objIShape.OLEFormat.Object
  With objOLEChart
    .HasTitle = True
    .ChartTitle.Text = "Demo - MS-Graph-Objekt bearbeiten"
    .ChartTitle.Font.Size = 12
  End With

  Set objOLEDataSht = objOLEChart.Application.DataSheet
  With objOLEDataSht
    For nRow = 2 To 4
      For nCol = 2 To 5
        .Cells(nRow, nCol).Value = Int((100 * Rnd) + 1)
      Next nCol
    Next nRow
  End With

  With objOLEChart.Application
    .Update
    .Quit
  End With

  Set objOLEDataSht = Nothing
  Set objOLEChart = Nothing
  Set objIShape = Nothing
  Set objWDDoc = Nothing
End Sub