나눔터  
  HOME > 나눔터 > 묻고답하기 > 엑셀
엑셀
엑셀에 대한 질문과 답변을 올려주세요. 단, 취지에 맞지 않는 글은 운영자가 삭제합니다.
 "000 님, 도와주세요", "부탁 드립니다.", "급합니다!" 등과 같이 막연한 제목을 달지 말아주세요.
[필독] 빠르고 정확한 답변을 얻는 16가지 Tip !
[필독] 저작권법 개정에 따른 이용안내

작성자:  

 이도 (kach)

추천:  2
파일:     조회:  1335
제목:   이미지 넣을 때 오류 발생 시 msgbox 띄우고 싶어요.
　 　 　
　 * 답변하시는 분들께 도움이 되도록 자신의 환경을 아래 항목 옆에 기재해 주세요.

 - 엑셀 버전(95,97,2000,xp,2003,2007): 

* 아래줄에 질문을 작성하세요 >>
아래의 picture.insert() 에서 오류가 날 때 msgbox를 보여주고 싶은데
on error resume next 를 해도 .. 전부 msgbox가 떠요.. 도와주세요... 

Dim wchi As String
Dim filename As String

ActiveSheet.Pictures.Delete

Range("ad1") = Range("ad1") - 1

wchi = "C:\Users\Administrator\Pictures\이미지\M" & "\"
filename = "슬라이드" & Range("AD1") & ".png"

Cells(9, "h").Select

 With ActiveSheet.Pictures.Insert(wchi & filename).ShapeRange

        .LockAspectRatio = msoFalse

        .Height = Selection.Height - 4

        .Width = Selection.Width - 4

        .Left = Selection.Left + 2

        .Top = Selection.Top + 2

    End With

End Sub 		　
[불량 게시물 신고]  
이도찾았어요 ;

dir 를 써서.. ;;		06-10 (10:58)
ⓧ삭제 ■신고
 　  　  　
  

작성일 : 2020-06-10(10:19)
최종수정일 : 2020-06-10(10:21)