大家好!    請問用Delphi怎樣控制同一儲存格設兩種不同的字體大小? 如: A1的儲存格內容為:電子郵件:zxy666666@hotmail.com 我想在zxy666666@hotmail.com增加下線並且與'電子郵件'字體大小不一樣. 謝謝!    各位版主大人好! 非常抱歉,我用的是Delphi,可是剛才發現不小心貼錯至(C Builder)，如果可以請哪位版主大人幫忙移動一下,謝謝! 發表人 -

您好: 請參考以下這篇 http://delphi.ktop.com.tw/topic.php?topic_id=69132 您說的底線,如果他是一個電子郵件就自動會出現底線了. 另外我額外測試自己去加底線,發現行不通,目前還不知道為什麼. 下面是他的VBA

    With Selection.Font
        .Name = "新細明體"
        .FontStyle = "標準"
        .Size = 12
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleSingle
        .ColorIndex = xlAutomatic
    End With
    Range("B5").Select
End Sub

根據VBA理論上 eclApp.Columns[1].Select;//選取一整行 eclApp.Selection.Font.Underline:=xlUnderlineStyleSingle; eclApp.Selection.Font.Size:=32; 這樣就可以把自行設定底線,但實測卻不行,而設定字型大小的地方卻可以,搞不太懂. 我看在C Builder也是這樣用勒,怪怪. http://delphi.ktop.com.tw/topic.php?topic_id=22668 發表人 - supman 於 2005/07/05 15:15:33

試了一下因該是可以 以下是VBA code 改為Delphi 的因該可以

  Range("A1").Select
    ActiveSheet.Paste
    Range("A1").Select
    ActiveCell.FormulaR1C1 = "電子郵件:zxy666666@hotmail.com"
    Range("A1").Select
    ActiveCell.FormulaR1C1 = "電子郵件:zxy666666@hotmail.com"
    With ActiveCell.Characters(Start:=1, Length:=5).Font
        .Name = "新細明體"
        .FontStyle = "標準"
        .Size = 12
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ColorIndex = xlAutomatic
    End With
    With ActiveCell.Characters(Start:=6, Length:=21).Font
        .Name = "新細明體"
        .FontStyle = "粗斜體"
        .Size = 36
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleSingle
        .ColorIndex = xlAutomatic
    End With
    Range("A4:A6").Select
    Range("A6").Activate  

非常感謝supman大大與jeffreck大大的熱心幫助, 我已測試OK，再次謝謝兩位大大!    現將代碼貼出來，供與我有同樣的問題的朋友們做參考:

如: A1的儲存格內容為:電子郵件:zxy666666@hotmail.com        ExcelApp.ActiveSheet.Range['A1'].Value := '電子郵件:zxy666666@hotmail.com' ;
    ExcelApp.ActiveSheet.Range['A1'].Characters(Start:=1, Length:=4).Font.Name := '新細明體' ;
    ExcelApp.ActiveSheet.Range['A1'].Characters(Start:=1, Length:=4).Font.FontStyle := '標準';
    ExcelApp.ActiveSheet.Range['A1'].Characters(Start:=1, Length:=4).Font.Size := 12         ;
    ExcelApp.ActiveSheet.Range['A1'].Characters(Start:=5, Length:=25).Font.Name := 'Arial' ;
    ExcelApp.ActiveSheet.Range['A1'].Characters(Start:=5, Length:=25).Font.FontStyle := '標準';
    ExcelApp.ActiveSheet.Range['A1'].Characters(Start:=5, Length:=25).Font.Size := 14         ;
    ExcelApp.ActiveSheet.Range['A1'].Characters(Start:=5, Length:=25).Font.Underline := 2    ;  //底線 不可用xlUnderlineStyleSingle    

發表人 - zxy666666 於 2005/07/06 20:58:07 發表人 - zxy666666 於 2005/07/06 21:00:01