各位大大：
請問要如何在Delphi轉Excel時控制Cell的文字方向，如：
『注意事項』要顯示為

『
注
意
事
項
』

謝謝！

1.Excel好像沒有這個功能吧! 我只曾在word上有看過亞洲配置的格式，excel2003我仔細找過所有現存功能看不到
2.此版面為資料庫相關，下回請移到其他版面

版主你好：
1.雖然我在Excel的Cell中儲存格格式裡的對齊方式中有方向的選項可以設定，但是我想從Delphi中轉過去就可以設定好所以才提這個問題
2.因為是由資料庫轉資料到Excel所以放在這個版面，不好意思。

再請教這種問題該放在哪個版面較洽當？

謝謝！

===================引 用 P.D. 文 章===================
1.Excel好像沒有這個功能吧! 我只曾在word上有看過亞洲配置的格式，excel2003我仔細找過所有現存功能看不到
2.此版面為資料庫相關，下回請移到其他版面

如果你是用OleObject的方式
有一個屬性可用
WorkSheet.Select.Orientation := xlVertical; // xlVertical = -4166

------
先查HELP
再查GOOGLE
最後才發問

沒人有義務替你解答問題
在標題或文章中標明很急
並不會增加網友回答速度

Developing Tool:
1.Delphi 6
2.Visual Studio 2005
3.Visual Studio 2008
DBMS:
MS-SQL

編輯記錄

eaglewolf你好：
因為我是要某個Cell文字用垂直排列，我試著加入程式中，但都無法使用Orientaion，因此節錄部份程式碼，請多指教，謝謝！

procedure Tform1.Button1Click(Sender: TObject);
var MyExcel: Variant;
ExcelFileName1: String;
begin
ExcelFileName1 := 'C:\TEST.xls';
MyExcel := CreateOleOBject('Excel.Application');
MyExcel.WorkBooks.Add;
MyExcel.Visible := True;
MyExcel.WorkBooks[1].Saveas(ExcelFileName1);
//合併儲存格
MyExcel.Range['A5:A20'].Merge;
//設定文字格式
MyExcel.WorkBooks[1].WorkSheets[1].Cells[1, 1].Columns.NumberFormatLocal := '@';
MyExcel.WorkBooks[1].WorkSheets[1].Cells[1, 1] := '注意事項';
// 將該欄設為標選
MyExcel.WorkBooks[1].WorkSheets[1].Cells[1, 1].Select;
// 將標題欄位變粗體字
MyExcel.Selection.Font.Bold := True;
//加入控制文字排列部份
MyExcel.WorkBooks[1].WorkSheets[1].Cells[1, 1].Orientaion := xlVertical;
end;

===================引 用 eaglewolf 文 章===================
如果你是用OleObject的方式
有一個屬性可用
WorkSheet.Select.Orientaion := xlVertical; // xlVertical = -4166

抱歉. 手誤
應該是Orientation才對

------
先查HELP
再查GOOGLE
最後才發問

沒人有義務替你解答問題
在標題或文章中標明很急
並不會增加網友回答速度

Developing Tool:
1.Delphi 6
2.Visual Studio 2005
3.Visual Studio 2008
DBMS:
MS-SQL

非常感謝eaglewolf的幫忙，成功解決問題，在此補上修正後的程式：

[code delphi]

procedure Tform1.Button1Click(Sender: TObject);
var MyExcel: Variant;
ExcelFileName1: String;
begin
ExcelFileName1 := 'C:\TEST.xls';
MyExcel := CreateOleOBject('Excel.Application');
MyExcel.WorkBooks.Add;
MyExcel.Visible := True;
MyExcel.WorkBooks[1].Saveas(ExcelFileName1);
//合併儲存格
MyExcel.Range['A5:A20'].Merge;
//設定文字格式
MyExcel.WorkBooks[1].WorkSheets[1].Cells[1, 1].Columns.NumberFormatLocal := '@';
MyExcel.WorkBooks[1].WorkSheets[1].Cells[1, 1] := '注意事項';
// 將該欄設為標選
MyExcel.WorkBooks[1].WorkSheets[1].Cells[1, 1].Select;
// 將標題欄位變粗體字
MyExcel.Selection.Font.Bold := True;
//加入控制文字排列部份
MyExcel.Selection.Orientation := xlVertical;
end;

[/code]
===================引 用 eaglewolf 文 章===================
抱歉. 手誤
應該是Orientation才對

編輯記錄