delphi 怎么在Excel中修改藝術字的內容

delphi 如何在Excel中修改藝術字的內容?
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的代碼!?
非常感謝

------解决方案--------------------
up
------解决方案--------------------
帮顶