¾Æ·¡ÀÇ ÄÚµùÀº ÀÎÅͳÝÀ¸·Î °Ë»öÇؼ »ç¿ëÁßÀε¥
Çѹø¿¡ »çÁø ÆÄÀÏ ÇÑÀ徿¸¸ ³ÖÀ» ¼ö Àֳ׿ä.
ÀÌ°É Çѹø¿¡ ¿©·¯ÀåÀÇ ¼±ÅÃÇؼ »ðÀÔÇÒ ¼ö ÀÖ´Â ¹æ¹ýÀº ¾øÀ»±î¿ä?
============================
============================
============================
============================
Sub ImportPictureFile()
Dim strFile As String
Dim sht As Worksheet
Dim pic As Object
Application.ScreenUpdating = True
Set sht = ActiveSheet
strFile = Application.GetOpenFilename(filefilter:="¸ðµçÆÄÀÏ(*.*),*.*", _
Title:="»ðÀÔÇÒ ±×¸²À» ¼±ÅÃÇϼ¼¿ä"
If strFile = "False" Then
MsgBox "¾Æ¹« ±×¸²µµ ¼±ÅõÇÁö ¾Ê¾Ò½À´Ï´Ù"
Exit Sub
End If
Dim obj As Object
Dim rnginsert As Range
Set obj = sht.Pictures.Insert(strFile)
Set rnginsert = Selection
With obj
.ShapeRange.LockAspectRatio = msoFalse
.Top = rnginsert.Top
.Left = rnginsert.Left
.Height = rnginsert.Height
.Width = rnginsert.Width
End With
End Sub
============================
============================
============================
============================
À§ÀÇ ¸ÅÅ©·Î·Î ÀÛ¾÷ÇÏ¸é ¿øº» »çÁøÀÇ °æ·Î³ª ÆÄÀϸíÀÌ º¯°æµÇ¸é ¿¢¼¿ ÆÄÀÏ¿¡¼ ¼öÁ¤ÀÌ ¾ÈµÇ´Â°Ç ¾Ë°í ÀÖ½À´Ï´Ù.
À̺κÐÀº ¼öÁ¤¾øÀÌ Çö»óÅ¿¡¼ Çѹø¿¡ »ðÀÔÇÒ ¼ö ÀÖ´Â ÆÄÀÏÀÇ °¹¼ö¸¦ ¿©·¯Àå »ðÀÔÇÒ ¼ö ÀÖÀ¸¸é ÇÕ´Ï´Ù.