bushcollyqr

契瓦文翻譯13-4) 設定百分比格式
ExcelApplication1.ActiveSheet.Rows[1].Font.Bold := True;
ExcelApplication1.Workbooks.Open (c:a.xls EmptyParam翻譯社EmptyParam翻譯社EmptyParam翻譯社EmptyParam,
c.從A1位置入手下手粘貼：
achart.chart.charttype:=4;
ExcelApplication1.ActiveSheet.PageSetup.TopMargin := 2/0.035;
ExcelApp.ActiveSheet.PageSetup.HeaderMargin := 3/0.035; e.頂邊距2cm：
if not ExcelApp.ActiveWorkBook.Saved then ExcelApp.ActiveSheet.PrintPreview;
ExcelApplication1.ActiveSheet.Range['B3:D4'].Borders[2].Weight :=
10) 在第8列之前刪除分頁符：
15) 拷貝操作：
23) 工作表另存為：
一.利用動態建立的方式 起首建立 Excel 對象，利用ComObj:
13-2) 跨欄置中：
ExcelApplication1.ActiveSheet.PageSetup.HeaderMargin := 2/0.035;
5) 添加新工作表：
b. ExcelApp.ActiveSheet.Columns[1].Delete;
ExcelApplication1.ActiveSheet.Rows[2].RowHeight := 1/0.035; // 1厘米
7) 設置指定列的寬度（單元：字符個數），以第一列為例：
ExcelApplication1.Quit; ExcelApplication1.Disconnect;
e.頂邊距2cm：
1) 顯示當前窗口：
a.頁眉：
b.拷貝指定區域：
或
ExcelApplication1.ActiveSheet.Rows[1].Font.Name := '隸書';
ExcelApp.ActiveSheet.PageSetup.CenterFooter := '第&P頁'; c.頁眉到頂端邊距2cm：
asheet1:=ExcelApplication1.Workbooks[1].Worksheets[1];
ExcelApp.ActiveSheet.PageSetup.CenterHeader := '報表演示'; b.頁腳：
5) 設置第2個工作表為流動工作表：
15) 設置第一行字體屬性：
ExcelApplication1.WorkSheets[2].Activate;
16) 插入一行或一列：
ExcelWorkSheet1.ConnectTo(Temp_WorkSheet);
b.頁腳：
ExcelApp.Visible := True;
ExcelApp.ActiveSheet.Range['A1:V1'].Interior.Color:=33023;
range:=sheet1!r2c3:r3c9; series.add(range翻譯社true);
ExcelApplication1.WorkBooks.Close;
ExcelApplication1.WorkSheets[1].Rows[8].PageBreak := 1;
18) 打印預覽工作表：
ExcelApp.ActiveSheet.PageSetup.CenterHorizontally := 2/0.035; j.頁面垂直居中：
ExcelWorkbook1.ConnectTo(ExcelApplication1.Workbooks.Add(EmptyParam,0));

用Delphi節制Excel2000
13-1) 合併貯存格：
if not ExcelApplication1.ActiveWorkBook.Saved then ExcelApplication1.ActiveSheet.PrintPreview;
ExcelApp.ActiveSheet.Range['B3:D4'].Borders[2].Weight := 3; 1-左 2-右 3-頂 4-底 5-斜( ) 6-斜( / )
ExcelApplication1.Cells[1,4].Value := '第一行第四列';
ExcelApp.Selection.NumberFormatLocal:='@';
ExcelApplication1.ActiveSheet.Range['A1:E2'].Copy;
ExcelApp.Selection.Borders[1].Weight := 3;
24) 摒棄存盤：
k.打印單位格網線：
21) 工作表另存為：
二.使用Delphi 控件方式
c.頁眉到頂端邊距2cm：
18) 插入一行或一列：
b. ExcelApplication1.ActiveSheet.Columns[1].Insert;
ExcelApp.Cells[1翻譯社4].Value := '第一行第四列';
ExcelApp.Quit;
ExcelApp.ActiveSheet.Range['H13'].NumberFormatLocal:='0.00%';
ExcelApp.ActiveWorkBook.Saved := True;
ExcelApplication1.ActiveSheet.Rows[1].Font.UnderLine := True;
ExcelApp.Selection.Borders[1].ColorIndex := 1;
d.從文件尾部起頭粘貼：
b. ExcelApplication1.ActiveSheet.Columns[1].Delete;
//將儲存格改成文字格式
3）選擇二維圖的形態
ExcelApplication1.ActiveSheet.PageSetup.BottomMargin := 2/0.035;
2) 顯示當前窗口：
20-1) 儲存時不提醒
ExcelApp.ActiveSheet.Used.Range.Copy;
ExcelApplication1.ActiveSheet.PageSetup.CenterFooter := '第&P頁';
var ExcelApp: Variant;
ExcelApp.ActiveSheet.Range['A1','V1'].HorizontalAlignment := $FFFFEFF4;
19) 打印輸出工作表：
11) 在第8行之前插入分頁符：
ExcelApplication1.ActiveSheet.Columns[4].PageBreak := 0;
ExcelApp.ActiveSheet.Rows[2].RowHeight := 1/0.035; // 1厘米
ExcelApp.ActiveSheet.PageSetup.RightMargin := 2/0.035; i.頁面程度居中：
5）加上二維圖的題目
// color green 13-3 凍結 ExcelApp.ActiveSheet.Cells[3,3].Select;
2) 更改 Excel 題目欄：
ExcelApplication1.ActiveSheet.PageSetup.CenterHeader := '報表演示';
End;
c.從A1位置入手下手粘貼：
b. ExcelApp.ActiveSheet.Columns[1].Insert;
ExcelApplication1.WorksSheets['Sheet2'].Activate;
ExcelApplication1.ActiveSheet.Rows[1].Font.Color := clBlue;
2）增添一個二維圖
ExcelApplication1.ActiveSheet.PageSetup.RightMargin := 2/0.035;
1）選擇當第一個工作薄第一個工作表
ExcelApp.WorksSheets['Sheet2'].Activate;
7) 設置第2個工作表為流動工作表：
ExcelApp.ActiveSheet.Range.[ 'A1' ].PasteSpecial;
ExcelApp.Caption := '運用法式挪用 Microsoft Excel';
25) 封閉工作簿：
ExcelApp.ActiveSheet.PageSetup.LeftMargin := 2/0.035; h.右側距2cm：
9) 在第8行之前插入分頁符：
12) 在第8列之前刪除分頁符：
d.從文件尾部起頭粘貼：
ExcelApp.ActiveSheet.PrintOut;
ExcelApp.ActiveSheet.PageSetup.PrintGridLines := True;
ExcelApp.ActiveSheet.Range['A1:C3'].Merge;
ExcelApplication1.ActiveSheet.Used.Range.Copy;
ExcelApp.ActiveSheet.Range[ 'A1:E2' ].Copy;
9) 設置指定列的寬度（單元：字符個數），以第一列為例：
3) 更改 Excel 題目欄：
ExcelApplication1.ActiveSheet.PrintPreview;
(1:黑色, 2:白色, 3:紅色, 4:綠色, 5:藍色, 6:黃色, 7:紫色翻譯社 8:青藍色翻譯社 9:棕色…)
ExcelApplication1.ActiveSheet.PageSetup.PrintGridLines := True;
13-3) 設定色彩
d.頁腳到底端邊距3cm：
Temp_Worksheet:=ExcelWorkbook1.
ExcelApp.ActiveSheet.Rows[1].Font.Bold := True; ExcelApp.ActiveSheet.Rows[1].Font.UnderLine := True;
a. ExcelApplication1.ActiveSheet.Rows[2].Insert;
ExcelApp.ActiveSheet.Columns[1].ColumnWidth := 5;
ExcelApp.ActiveSheet.Rows[1].Font.Name := '隸書'; ExcelApp.ActiveSheet.Rows[1].Font.Color := clBlue;
三.利用Delphi節制Excle二維圖


ExcelApp.WorkBooks.Close;
16) 進行頁面設置：
a. ExcelApp.ActiveSheet.Rows[2].Insert;
ExcelApp.WorkBooks.Open('C:ExcelDemo.xls');
ExcelApplication1.Visible[0]:=True;

ExcelApplication1.ActiveSheet.Cells[1,4].ClearContents;
ExcelApplication1.ActiveSheet.Columns[1].ColumnsWidth := 5;
11-1 指定邊框的style (1:實線翻譯社 2:虛線)
ExcelApplication1.SaveAs('C:ExcelDemo1.xls');
ExcelApp := CreateOleObject('Excel.Application');

begin
a.拷貝全部工作表：

3; 1-左 2-右 3-頂 4-底 5-斜( ) 6-斜( / )
14) 肅清第一行第四列單元格公式：
ExcelApp.WorkSheets[1].Rows[8].PageBreak := 1;
ExcelApp.ActiveSheet.PageSetup.CenterVertically := 2/0.035; k.打印單元格網線：
26) 退出 Excel：
h.右側距2cm：
achart.Chart.HasTitle:=True; achart.Chart.ChartTitle.Characters.Text:=』 Excle二維圖』

ExcelApp.ActiveWindow.FreezePanes := True;
ExcelApp.WorkBooks.Add;
ExcelApp.ActiveSheet.Range.PasteSpecial;
8) 給單位格賦值：
6) 給單位格賦值：
在Form平分別放入ExcelApplication, ExcelWorkbook和ExcelWorksheet var asheet1,achart, range:variant;
ExcelApp.ActiveSheet.PageSetup.HeaderMargin := 2/0.035; d.頁腳到底端邊距3cm：
ExcelApp.ActiveSheet.PrintPreview;
WorkSheets.Add(EmptyParam,EmptyParam,EmptyParam,EmptyParam翻譯社0) as _WorkSheet;
f.底邊距2cm：
4) 打開已存在的工作簿：
// color orange ExcelApp.ActiveSheet.Range['A2:V2'].Interior.Color:=clLime;
series:=achart.chart.seriescollection;
ExcelApplication1.ActiveWorkBook.Saved := True;
11) 指定邊框線寬度：
13) 指定邊框線寬度：
ExcelApp.Application.DisplayAlerts := False;
4) 添加新工作簿：
ExcelApplication1.ActiveSheet.PageSetup.LeftMargin := 2/0.035;
3) 添加新工作簿：
b.拷貝指定區域：
ExcelApplication1.ActiveSheet.PrintOut;
ExcelApplication1.Caption := '應用法式挪用 Microsoft Excel';

22) 抛卻存盤：
ExcelApplication1.ActiveSheet.Range.PasteSpecial;
20) 打印預覽工作表：
11-2 指定邊框的 Weight (1~4)
ExcelApp.ActiveSheet.Cells[1,4].ClearContents;
22) 工作表保留：
24) 退出 Excel：
1） 打開Excel
g.左側距2cm：
//將貯存格改成文字花樣
19) 刪除一行或一列：

ExcelApplication1.ActiveSheet.PageSetup.CenterHorizontally := 2/0.035;
14) 進行頁面設置： a.頁眉：
12) 消滅第一行第四列單位格公式：
a. ExcelApplication1.ActiveSheet.Rows[2].Delete;
ExcelApp.ActiveSheet.PageSetup.BottomMargin := 2/0.035; g.左邊距2cm：
ExcelApp.SaveAs( 'C:ExcelDemo1.xls' );
ExcelApp.Selection.Borders[1].LineStyle := 1;
17) 刪除一行或一列：
ExcelApp.ActiveSheet.Range['A1','V1'].VerticalAlignment := $FFFFEFF4;
ExcelApp.WorkSheets[2].Activate; 或
j.頁面垂直居中：
6) 打開已存在的工作簿：
a. ExcelApp.ActiveSheet.Rows[2].Delete;
23) 封閉工作簿：
ExcelApplication1.ActiveSheet.PageSetup.HeaderMargin := 3/0.035;
11-3 指定邊框的 ColorIndex (0~56)
achart:=asheet1.chartobjects.add(100,100,200翻譯社200);
17) 拷貝操作：
4）給二維圖賦值
8) 設置指定行的高度（單元：磅）（1磅＝0.035厘米），以第二行為例：
i.頁面水平居中：
EmptyParam,EmptyParam,EmptyParam,EmptyParam, EmptyParam,EmptyParam翻譯社EmptyParam,EmptyParam翻譯社0)
20) 工作表保存：
10) 設置指定行的高度（單元：磅）（1磅＝0.035厘米），以第二行為例：
ExcelApplication1.ActiveSheet.PageSetup.CenterVertically := 2/0.035;
ExcelApp.ActiveSheet.Columns[4].PageBreak := 0;
ExcelApp.ActiveSheet.PageSetup.TopMargin := 2/0.035; f.底邊距2cm：
a.拷貝全部工作表：
21) 打印輸出工作表：
ExcelApp.ActiveSheet.Rows[1].Font.Size:= 12; ExcelApp.ActiveSheet.Rows[1].NumberFormatLocal:='@';
13) 設置第一行字體屬性：
var Temp_Worksheet: _WorkSheet;
在Form平分別放入ExcelApplication, ExcelWorkbook和ExcelWorksheet翻譯
ExcelApplication1.ActiveSheet.Range.['A1'].PasteSpecial;
ExcelApplication1.Connect;


以下文章來自: http://mypaper.pchome.com.tw/alvin200266/post/1312822473有關各國語文翻譯公證的問題歡迎諮詢華頓翻譯公司02-77260932