아래 소스는 엑셀에서 그림 insert후 size를 조정한 macro 입니다.

가지고 계신 엑셀 양식이 어떻게 되어 있는지 모르겠는데..

excel에서 직접 macro를 만들어서 그 소스를 사용하시면 될 듯 합니다.

 

Sub load_picture01()
    ActiveSheet.Pictures.Insert( _
        "C:Documents and SettingsAll UsersDocumentsMy Pictures그림 샘플석양.jpg"). _
        Select
    Selection.ShapeRange.ScaleWidth 0.2, msoFalse, msoScaleFromTopLeft
    ActiveWindow.SmallScroll Down:=6
    Selection.ShapeRange.ScaleHeight 0.15, msoFalse, msoScaleFromTopLeft
    ActiveWindow.SmallScroll Down:=-6
End Sub

감사합니다^^

참.. 추가적으로 물어볼게 있는데..
위치 조절을 할 수 있나요 ?

처음엔 제 위치에 뿌려지다
지금은 맨 하단에 나오는데.

이것저것 수정해서 다시 시도해봐도 도통 변경이 안되네요 ㅠ

아래와 같이 Range select를 추가하면

B2~C6 셀에 그림이 보이고

B7 셀에 커서가 가게 됩니다.

 

Sub load_picture01()

    Range("B2").Select
    ActiveSheet.Pictures.Insert( _
        "C:Documents and SettingsAll UsersDocumentsMy Pictures그림 샘플석양.jpg"). _
        Select
    Selection.ShapeRange.ScaleWidth 0.2, msoFalse, msoScaleFromTopLeft
    ActiveWindow.SmallScroll Down:=6
    Selection.ShapeRange.ScaleHeight 0.15, msoFalse, msoScaleFromTopLeft
    ActiveWindow.SmallScroll Down:=-6

    Range("B7").Select
End Sub

참고로 excel에서 매크로 기록은

도구 -> 매크로 -> 새매크로 기록을 선택하신 후
원하는 작업을 하신 후
기록정지 버튼을 누르시면 매크로가 만들어지며,
매크로 내용은
도구 -> 매크로 -> 매크로를 선택하신후
기록하신 매크로 선택후 편집을 누르시면 작성된 매크로 소스를 보실수 있습니다.

감사합니다^^