일 | 월 | 화 | 수 | 목 | 금 | 토 |
---|---|---|---|---|---|---|
1 | 2 | 3 | 4 | 5 | 6 | |
7 | 8 | 9 | 10 | 11 | 12 | 13 |
14 | 15 | 16 | 17 | 18 | 19 | 20 |
21 | 22 | 23 | 24 | 25 | 26 | 27 |
28 | 29 | 30 |
- xml
- 데이터베이스
- 설치
- VB.NET
- Delphi
- 인스톨
- winsock
- 시리얼 통신
- 델파이
- Visual Studio 2005
- Firebird
- 문자열
- PostgreSQL
- SDK
- WIN32 SDK
- MFC
- 기초
- 예제
- 입문
- 파라미터
- Visual Basic
- 셋업
- 초보
- 파이어버드
- MySQL
- 소니
- vb
- dll
- SQL
- c#
- Today
- Total
프로그래밍 노트
델파이에서 엑셀 파일에 선그리기 본문
델파이에서 엑셀 파일에 선그리기
procedure TForm1.Button1Click(Sender: TObject);
var
Excel: OleVariant;
WorkBook: OleVariant;
WorkSheet: OleVariant;
i : integer;
Const
xlNone = -4142;
xlDiagonalDown = 5;
xlDiagonalUp = 6;
xlEdgeLeft = 7;
xlEdgeTop = 8;
xlEdgeBottom = 9;
xlEdgeRight = 10;
xlContinuous = 1;
xlThin = 2;
xlThick = 4;
xlAutomatic = -4105;
begin
Excel := CreateOleObject('Excel.Application');
Excel.Visible := True;
// 워크북 추가
Excel.WorkBooks.Add;
WorkBook := Excel.ActiveWorkBook;
// 워크시트 추가
Workbook.sheets.add;
// 작업할 워크시트 선택
WorkSheet := WorkBook.WorkSheets[1];
// 선그리기
WorkSheet.Range['B5:E10'].Borders[xlDiagonalDown].LineStyle := xlNone;
WorkSheet.Range['B5:E10'].Borders[xlDiagonalUp].LineStyle := xlNone;
WorkSheet.Range['B5:E10'].Borders[xlEdgeLeft].LineStyle := xlContinuous;
WorkSheet.Range['B5:E10'].Borders[xlEdgeTop].LineStyle := xlContinuous;
WorkSheet.Range['B5:E10'].Borders[xlEdgeBottom].LineStyle := xlContinuous;
WorkSheet.Range['B5:E10'].Borders[xlEdgeBottom].Weight := xlThick;
WorkSheet.Range['B5:E10'].Borders[xlEdgeBottom].ColorIndex := xlAutomatic;
WorkSheet.Range['B5:E10'].Borders[xlEdgeRight].LineStyle := xlContinuous;
end;
델파이에서 엑셀에 선그리려면 위에 같이 하면 된다.
각 상수값을 알기 위해서는 엑셀의 메크로의 Visual Basic Editor를 열어서
소스에서 오른 쪽 클릭하면 "개체 찾아보기"가 나온다.
그것을 선택하면 개체 찾아보기 창이 뜨고 거기서
찾고자 하는 상수를 입력하면 상수값을 알 수 있다.