게시판과 맞지 않는 글일 수도 있습니다. 죄송합니다.
엑셀에 사진 넣는 일이 많은데
예전에는 직접 사진을 컨트롤 c v 로 붙여넣기 한 뒤 사진크기를 조절했었는데
우연히 사진넣는 매크로를 알게 되어서 현재 사용중입니다.
그런데 사진이 셀 크기에 꽉 차게 들어가는 건 좋은데
사진 비율이 원본사진이랑 다르게 됩니다.
길쭉한 사진이 넓게 펴진다거나 넓은 사진이 위 아래로 늘려진다거나 등등..
그래서 혹시 셀 크기를 벗어나지 않도록 하되 좌우 비율이 원본사진이랑 달라지지 않게 할 수 있을까요?
사진 경로를 저장하는 것이 아니라 사진 자체가 엑셀파일에 저장되야 합니다.
기존에 쓰던 매크로 코드는 이렇습니다.
Sub ImportPictureFile()
Dim strFile As String
Dim sht As Worksheet
Dim pic As Object
Dim rnginsert As Range
Application.ScreenUpdating = False
Set rnginsert = Selection
Set sht = ActiveSheet
strFile = Application.GetOpenFilename(filefilter:="모든파일(*.*),*.*", Title:="삽입할 그림을 선택하세요")
If strFile = "False" Then
Exit Sub
End If
With rnginsert
Set pic = sht.Shapes.AddPicture(strFile, 1, 1, .Left, .Top, .Width, .Height)
pic.LockAspectRatio = msoFalse
.Cells(1).Select
End With
Application.ScreenUpdating = True
Set sht = Nothing: Set pic = Nothing: Set rnginsert = Nothing
End Sub
여기까지 입니다.
그리고 추가로 지금은 셀 하나당 매크로를 계속 실행해서 사진을 넣는데
만약에 셀을 3개 차례로 선택한 뒤 매크로를 실행하고 사진을 3장 선택하면 셀을 선택한 순서대로 사진3장이 삽입되게 할 수도 있나요?
첨부파일에 A3,A5,A7 C3,C5,C7 셀에 사진을 삽입하는 겁니다.
등록안내
등록안내
.Width = size