VBA: Returnere korrekt type ved activeX/OLE-objekter

Jeg har en MSGraph i et dokument, men jeg kan ikke finde ud af at referere til den i VBA (det går fint, hvis jeg indsætter en ny med CreateObject, men jeg ønsker at ændre en eksisterende graf).

Jeg har forsøgt nedenstående, men får meddelelsen:
"Class does not support Automation or does not support expected interface"


Dim Curve As Graph.Application

Sub GetCurve()
    Dim s As InlineShape
    On Error GoTo ErrorLabel
    For Each s In ActiveDocument.InlineShapes
        If s.AlternativeText = "Curve1" Then
            Set Curve = s.OLEFormat.Object
            Exit For
        End If
    Next
    Exit Sub
ErrorLabel:
    'Display error message (with possibillity to copy message to clipboard):
    InputBox Error, "Fejl", Error
End Sub