[VB6.0] VB로 Excel에 이미지 호출후 붙여넣기

사실 궁금하긴 했지만

아무나 잘 알려주지 않는

VB에 대한 궁금증...

게다가 검색어 자체도 생소한

VB로 이미지를 호출한 후 Excel에

붙여넣는 코드에 대해서 소개하려고 한다.

VB로 실무를 하다보면 Excel을 핸들링 할 기회가 참 많은 것이 사실이다.

Excel자체에 매크로라는 기능이 있어서 VB코드를 직접 짜넣을 수도 있을만큼

VB와 Excel은 가까운 사이라고도 할 수 있다.

바로 본론으로 들어가서

오늘의 예제는

Excel에 결재자 도장을 VB를 사용해서 찍는것이다.

아래 이미지를 보도록 하자.

이처럼 결재도장 이미지를 호출한 후 엑셀에 찍어주는 것이 오늘의 예제이다.


그럼 바로 코드를 적어가면 설명하겠다.



먼저 Excel 개체를 생성하고

해당 파일, 해당 sheet를 호출한다.

그리고 아래 코드를 삽입하면 원하는 이미지가 원하는 위치에 제대로 표시가 될 것이다.



Set ExcelDB = New Excel.Application
ExcelDB.Workbooks.Open ("아무개.xls")
ExcelDB.Worksheets("sheet1").Select
ExcelDB.Cells("", "").Select
ExcelDB.Worksheets("sheet1").Pictures.Insert("이미지파일 경로와 이름").Select

일을 하다보면  VB로 Excel을 핸들링해야 할 경우가 많이 생기는데

업무를 하면서 알게된 노하우를 하나하나 포스팅해 나가기로 하고

오늘은 여기까지 함.