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
[解决办法]
帮顶