delphi 如何在Excel中修改藝術字的內容?

Question

delphi 如何在Excel中修改藝術字的內容?我想打開一個已經存在的EXCEL...已經有藝術字在上面...我也錄制了宏...代碼是:ActiveSheet.Shapes("WordArt 6").Select
          Selection.ShapeRange.TextEffect.Text = "123456"
          ActiveSheet.Shapes("WordArt 5").Select
          Selection.ShapeRange.TextEffect.Text = "Until 31.07.09"
          Range("D22:I26").Select
          ActiveCell.FormulaR1C1 = "'$60.00"
          With ActiveCell.Characters(Start:=1, Length:=6).Font
              .Name = "Arial"
              .FontStyle = "Regular"
              .Size = 46
              .Strikethrough = True
              .Superscript = False
              .Subscript = False
              .OutlineFont = False
              .Shadow = False
              .Underline = xlUnderlineStyleNone
              .ColorIndex = xlAutomatic
          End With
          Range("D27").Select
          ActiveSheet.Shapes("WordArt 2").Select
          Selection.ShapeRange.TextEffect.Text = "$50.00"
          ActiveWindow.SmallScroll Down:=15
          ActiveSheet.Shapes("WordArt 3").Select
          Selection.ShapeRange.TextEffect.Text = "1234546874981" & Chr(13) & "" & Chr(10) & ""
          ActiveWorkbook.Save我如何轉為Delphi的代碼!?
非常感謝