[파워빌더][엑셀] 엑셀파일에 이미지 삽입하기...
//오브젝트 선언
OLEObject export_object
//오브젝트 생성
export_object = Create OLEObject
ret = export_object.ConnectToNewObject( "Excel.Application" )
//엑셀 파일오픈
export_object.Application.Workbooks.Open('c:\test.xls')
export_object.Application.Visible = True
export_object.Worksheets[1].Activate;
//이미지를 등록 해주고 select해서 선택되도록 한다.
export_object.Worksheets(1).Pictures.Insert("C:\hyukworld.jpg").select
//선택된 이미지 위치 조정
export_object.Selection.ShapeRange.IncrementTop(10);
export_object.Selection.ShapeRange.IncrementLeft(200);
//비율로 조정 true면 원래크기의 비율로서 조정됨 false 이면 원하는 크기로 변경가능함.
export_object.Selection.ShapeRange.LockAspectRatio = false
//선택된 이미지 크기 조정
export_object.Selection.ShapeRange.Height = 800
export_object.Selection.ShapeRange.Width = 1000
//연결종료
export_object.DisConnectObject()
//오브젝트 제거
Destroy export_object
OLEObject export_object
//오브젝트 생성
export_object = Create OLEObject
ret = export_object.ConnectToNewObject( "Excel.Application" )
//엑셀 파일오픈
export_object.Application.Workbooks.Open('c:\test.xls')
export_object.Application.Visible = True
export_object.Worksheets[1].Activate;
//이미지를 등록 해주고 select해서 선택되도록 한다.
export_object.Worksheets(1).Pictures.Insert("C:\hyukworld.jpg").select
//선택된 이미지 위치 조정
export_object.Selection.ShapeRange.IncrementTop(10);
export_object.Selection.ShapeRange.IncrementLeft(200);
//비율로 조정 true면 원래크기의 비율로서 조정됨 false 이면 원하는 크기로 변경가능함.
export_object.Selection.ShapeRange.LockAspectRatio = false
//선택된 이미지 크기 조정
export_object.Selection.ShapeRange.Height = 800
export_object.Selection.ShapeRange.Width = 1000
//연결종료
export_object.DisConnectObject()
//오브젝트 제거
Destroy export_object