[엑셀 VBA] 활성셀에 그림삽입하기

매크로를 이용하여 그림을 삽입하고자 하실때 유용한 예제소스입니다. 

■  활성셀에 그림삽입하기

※ 아래 예제는 엑사모 latinum님이 만든 소스입니다. 

제가 필요에 의해서 블로그에 정리하는 차원에서 올린소스이니 착오없으시길 바랍니다. 

Option Explicit
 
Const Es As String = "MagicSheet & 엑사모"
Sub dhInsertPicinActiveCell()
Dim strFile As String
Dim rngAct As Range
Dim s As Shape
Const cFile As String = "Image Files (*.bmp;*.gif;*.tif;*.jpg;*.jpeg;*.wmf;*.png)," & _
  "*.bmp;*.gif;*.tif;*.jpg;*.jpeg;*.wmf;*.png"
    strFile = Application.GetOpenFilename(fileFilter:=cFile, Title:=Es)
    If strFile = "False" Then
    Else
        Set rngAct = ActiveCell
        Set rngAct = rngAct.MergeArea
        With rngAct
            Set s = ActiveSheet.Shapes.AddPicture(Filename:=strFile, _
                                                  LinkToFile:=msoFalse, _
                                                  SaveWithDocument:=msoTrue, _
                                                  Left:=.Left, _
                                                  Top:=.Top, _
                                                  Width:=.Width, _
                                                  Height:=.Height)
            s.LockAspectRatio = msoFalse
        End With
        Set s = Nothing
        Set rngAct = Nothing
    End If
End Sub