안녕 하세요.
이번에 Excel로 리포트를 하려고 하는데 데이타는 넘어가는데 포멧 작업이
힘드네요.. 일단 제목을 셀 병합하려고 하는데 어떻게야 하는지...
ExcelWS.Range['A1', 'G1'].Select;
Rnge := ExcelApp.ActiveCell;
with ExcelApp.ActiveCell do
begin
Font.Size := 14;
Font.Name := '굴림체';
Font.FontStyle := 'Bold';
HorizontalAlignment := xlCenter;
VerticalAlignment := xlBottom;
WrapText := False;
Orientation := 0;
AddIndent := False;
ShrinkToFit := False;
MergeCells := False;
end;
ExcelApp.ActiveCell.Merge(Rnge);
위와 같이 하면 font는 바뀌는데 셀병합에서 에러가 발생하네요...
그리고 선그리기나 행높이,열넓이등 문서 포멧에 관한 것도 알려 주시면 감사..(염치없음)
고수님들의 가르침을 바랍니다. 꾸벅....
ExcelWS.Range['A1', 'G1'].Merge(EmptyParam);
라고 써 주시면 되던데요 .
최락중 wrote:
> 안녕 하세요.
>
> 이번에 Excel로 리포트를 하려고 하는데 데이타는 넘어가는데 포멧 작업이
> 힘드네요.. 일단 제목을 셀 병합하려고 하는데 어떻게야 하는지...
>
>
> ExcelWS.Range['A1', 'G1'].Select;
> Rnge := ExcelApp.ActiveCell;
> with ExcelApp.ActiveCell do
> begin
> Font.Size := 14;
> Font.Name := '굴림체';
> Font.FontStyle := 'Bold';
> HorizontalAlignment := xlCenter;
> VerticalAlignment := xlBottom;
> WrapText := False;
> Orientation := 0;
> AddIndent := False;
> ShrinkToFit := False;
> MergeCells := False;
> end;
> ExcelApp.ActiveCell.Merge(Rnge);
>
> 위와 같이 하면 font는 바뀌는데 셀병합에서 에러가 발생하네요...
>
> 그리고 선그리기나 행높이,열넓이등 문서 포멧에 관한 것도 알려 주시면 감사..(염치없음)
>
> 고수님들의 가르침을 바랍니다. 꾸벅....