Egloos | Log-in


엑셀(Excel)에서 셀에 그림 삽입하기..

엑셀을 쓰다보면 셀에 그림을 삽입하고 싶을 때가 있습니다.
3번째 줄의 셀에 그림을 삽입했다가, 
그 위에 새로운 줄을 추가하면 그림도 같이 내려가게 말이죠...

그를 위한 매크로는 다음과 같습니다.
어떤 분이 올려두셨던 매크로를 바탕으로 아주 살짝만 고친 건데.. 
원작자는 모르겠네요. 심심한 감사의 말씀을 드립니다.
그림 파일을 셀에 딱 크기를 맞출 수도 있고, 아래 예제와 같이 높이만 맞추게 되어 있습니다.

Sub InsertPicture()
  Dim iRange As Range
  Dim strMessage As String
    Set iRange = ActiveCell
    Application.ScreenUpdating = False
    strMessage = Application.GetOpenFilename(filefilter:="picture(*.JPG;*.GIF;*.BMP;*.PNG),*.JPG;*.GIF;*.BMP;*.PNG", _
                  Title:="선택된 셀에 삽입할 사진을 선택하세요")
        If strMessage = "False" Then
         MsgBox "사진이 선택되지 않았습니다.", 64, "Error"
           Exit Sub
        End If
        With ActiveSheet.Pictures.Insert(strMessage)
            .Width = iRange.Next.Left - iRange.Left
            .Height = iRange(2).Top - iRange.Top
            .Top = iRange.Top
            .Left = iRange.Left
       End With
     Application.ScreenUpdating = True
   End Sub

by 열린세계 | 2011/04/15 16:10 | 트랙백 | 덧글(1)

트랙백 주소 : http://stworld.egloos.com/tb/4562379
☞ 내 이글루에 이 글과 관련된 글 쓰기 (트랙백 보내기) [도움말]
Commented by 독백 at 2012/01/31 14:52
찾고 있던 내용인데 고맙습니다.

그런데 셀 크기에 딱 맞게 그림을 삽입하려면 어떻게 해야 하나요?

.width 부분을 고쳐봐도 아랫줄 .height 부분에서 높이에 맞게 그림이 다시 변경되어

결국엔 높이만 맞는 그림이 되어 버리네요.

:         :

:

비공개 덧글

◀ 이전 페이지          다음 페이지 ▶