Experts Exchange connects you with the people and services you need so you can get back to work.
Dim msGraph As Object
Dim i As Integer
For i = 1 To ActiveDocument.InlineShapes.Count
If ActiveDocument.InlineShapes(i).Type = wdInlineShapeEmbeddedOLEObject Then
If InStr(1, ActiveDocument.InlineShapes(i).OLEFormat.ProgID, "MSGraph.Chart", vbTextCompare) <> 0 Then
Set msGraph = ActiveDocument.InlineShapes(i).OLEFormat.Object
msGraph.Application.Datasheet.Range("A1").Value = 50
Set msGraph = Nothing
Open in new window
Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.
Have a better answer? Share it in a comment.
Please enter a first name
Please enter a last name
Must be at least 4 characters long.
Join and Comment
From novice to tech pro — start learning today.
Premium members can enroll in this course at no extra cost.