dim strkey as string                       'bookmark的名稱

       '首先要在word中嵌入一個graph，然后把這個graph添加一個bookmark(書簽)，名字就是strkey的內容

       objshape = mobjdoc.bookmarks.item(strkey).range.inlineshapes.item(1)
       objshape.oleformat.doverb(verbindex:=word.wdoleverb.wdoleverbhide)
       objchart = objshape.oleformat.object()

       '設置橫軸的屬性   

       axis = objchart.axes(2, 1)

       '最小刻度
       axis.minimumscale = 0

       '主要刻度單位
       axis.majorunit = 10

       '次要刻度單位
       axis.minorunit = 10

       '最大刻度
       axis.maximumscale = 50

      '在graph的表格中填寫內容

       objdatasheet = objchart.application.datasheet
       objdatasheet.cells(1, 1) = "aa"

       '對表格進行更新

       objchart.application.update()

       '退出graph程序
       objchart.application.quit()