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
위의 소스는 엑셀화일에서 vba로 선택한 셀에 그림을 맞추어 넣는 소스 입니다..
전 이걸 이용해서 Microsoft Visual Basic 6.0에서 exe화일을 만들려고 합니다.
exe화일을 실행해서
버튼을 누르고
열려져있는 엑셀화일의 임의의 셀을 마우스로 선택하고
그셀에 넣고자 하는 이미지 화일을 찾아서 선택하면
그셀에 딱 맞게 들어 가는 exe화일을 만드려고 하는데 좀처럼 안되내요....
위의 소스를 어떻게 어떤 부분을 바꾸어야 하는지 좀 알려 주세요....^&^