액셀 2003에서 잘써왔던 그림넣기 매크로예요.
Sub InsertPyogisagin()
'
' InsertPyogisagin Macro
' global88이(가) 2008-12-13에 기록한 매크로
'
Dim strFile As String
Dim sht As Worksheet
Dim pic As Object
Application.ScreenUpdating = True
Set sht = ActiveSheet
ActiveSheet.Pictures.Delete
strFile = Application.GetOpenFilename(filefilter:="모든파일(*.*),*.*", _
Title:="삽입할 그림을 선택하세요//BEST & FIRST !!")
If strFile = "False" Then
MsgBox "아무 그림도 선택되지 않았습니다", , "BEST PARTNER! FIRST COMPANY!"
Exit Sub
End If
Cells(10, 10).Select
sht.Pictures.Insert(strFile).Select
Selection.ShapeRange.LockAspectRatio = msoFalse '사진의 종횡비 무시
Selection.ShapeRange.Width = 468 '가로길이 변경
Selection.ShapeRange.Height = 360 '세로길이 변경
'
End Sub
즉, 셀 10,10을 기준으로 가로세로크기 지정해서 그림 넣는 매크론데...
엑셀 2007에서는 Cells(10, 10).Select 안의 숫자를 뭐로 해도 같은 자리로만 계속들어갑니다..
왜이러는 건지...해결방법은 무엇인지 알고 싶습니다.