[Vbscript]Drawtext op een OWC Chart

[DarkShadow]

Hallo, ik heb met owc chart een mooie grafiek gemaakt, en nu wil ik hier ook wat tekst bij zetten. Nu kan dit op bepaalde vaste plaatsen wel, zoals het label van de grafiek, maar ik wil gewoon willekeurig ergens de tekst plaatsen. Nu leek me dit niet zo'n probleem.

Ik dacht dat het wel zoiets als dit zou zijn:

code:

objChart.drawObject.drawtext "poep", 10, 10

Maar dan krijg ik de volgende error:

Deze eigenschap of methode wordt niet ondersteund door dit object: 'drawObject'

Nu weet ik dus niet hoe ik dit moet doen in vbscript (heb al heel veel dingen geprobeerd, bovenstaande was een van de voorbeeldjes), maar ik heb wel op de pagina van microsoft gevonden hoe het in visual basic .net moet:

code:

Private Sub AxChartSpace1_AfterFinalRender(ByVal sender As Object, ByVal _
  e As AxMicrosoft.Office.Interop.OWC.IChartEvents_AfterFinalRenderEvent) _
  Handles AxChartSpace1.AfterFinalRender

    Debug.WriteLine("AfterFinalRender Event")

    ' Draw two separate lines of custom text below the plot area and 
    ' center the text with the chart space.
    Dim sText As String = "Custom Chart Text"
    e.drawObject.Font.Size = 16
    e.drawObject.Font.Bold = True
    e.drawObject.DrawText(sText, _
        (m_Chart.Right - m_Chart.Left) / 2 - e.drawObject.TextWidth( _
        sText) / 2, m_nPlotBottom + 40)
    e.drawObject.Font.Size = 9
    e.drawObject.Font.Bold = False
    e.drawObject.Font.Color = "Navy"
    sText = "Additional custom chart text that is a subtitle"
    e.drawObject.DrawText(sText, _
        (m_Chart.Right - m_Chart.Left) / 2 - e.drawObject.TextWidth( _
        sText) / 2, m_nPlotBottom + 70)

End Sub

Nu vraag ik me dus af hoe ik dat stukje van drawtext vertaal naar vbscript. Kan iemand me hier mee helpen? alvast bedankt!