엑셀함수
엑셀 VBA에서 그림을 불러와 삽입하는 코드
페이지 정보
작성자 :강하넷 작성일 :25-08-14 09:23 조회 :227회 댓글 :1건첨부파일
그림을 불러오는 코드.xlsm
(39.7K) 관련링크
본문
엑셀 VBA에서 그림을 불러와 삽입하는 코드
Sub 그림삽입하기()
Dim imgPath As String
If ActiveSheet.Pictures().Count > 0 Then ActiveSheet.Pictures.Delete
imgPath = "C:\Temp\Kanghanet_Logo.jpg" ' 불러올 그림 파일 경로
' '-- 위치 및 크기 지정
' ActiveSheet.Shapes.AddPicture _
' Filename:=imgPath, _
' LinkToFile:=msoFalse, _
' SaveWithDocument:=msoCTrue, _
' Left:=50, _
' Top:=50, _
' Width:=200, _
' Height:=150
'-- 원본크기로 삽입
' ActiveSheet.Shapes.AddPicture _
' Filename:=imgPath, _
' LinkToFile:=msoFalse, _
' SaveWithDocument:=msoCTrue, _
' Left:=50, _
' Top:=70, _
' Width:=-1, _
' Height:=-1
'-- 셀 위치 지정
ActiveSheet.Shapes.AddPicture _
Filename:=imgPath, _
LinkToFile:=msoFalse, _
SaveWithDocument:=msoCTrue, _
Left:=Range("b7").Left, _
Top:=Range("b7").Top, _
Width:=-1, _
Height:=-1
End Sub
댓글목록
버미군님의 댓글
버미군 작성일좋은 기능입니다. 입맛에 맞춰 살짝 수정했는데 정말 편하게 작업하네요.
