엑셀 클립보드 붙여넣을때 이미지 유형인지 유무 확인 문제관련

VBA
작성자
yx****
작성일
2022-05-08 23:03
조회
70
엑셀버전 : M365

운영체제 : 윈도우10

 

안녕하세요

클립보드 VBA에 대해서 알고 싶어요

클립보드의 내용을 붙여넣기를 했을때

이미지이면

MSGBOX "이미지 파일이 맞아요"

이미지가 아니면

MSGBOX "이미지 파일이 아니에요" 를 구현하고 싶습니다

 

https://docs.microsoft.com/ko-kr/dotnet/visual-basic/developing-apps/programming/computer-resources/storing-data-to-and-reading-from-the-clipboard

여기에서 이런부분을 발견했으나

어떻게 활용을 해야될지 모르겠습니다

 

If My.Computer.Clipboard.ContainsImage() Then

MsgBox("Clipboard contains an image.") Else

MsgBox("Clipboard does not contain an image.") End If

 

 

 

 

 

 

전체 5

  • 2022-05-08 23:38

    적어주신 링크는 Visual Basic 코드여서 VBA 에서는 사용할 수 없습니다.

    아래 코드를 사용해보시고, 빈 유저폼을 하나 추가해줘야만 MsForms 라이브러리로 동작합니다.

    Sub ImageCheck()
    Dim DataObj As New MSForms.DataObject
    DataObj.GetFromClipboard
    On Error GoTo Img
        MsgBox DataObj.GetText
    On Error GoTo 0
    Img:
    If Err = -2147221404 Then
        Err = 0
        MsgBox "이미지입니다."
    End If
    End Sub
    

     


    • 2022-05-09 01:09

      @더블유에이

      MsgBox DataObj.GetText 이부분을 MsgBox "이미지가 아닙니다" 로 변경하니 문제 발생되는데 해결방법이 있을까요?
      그리고 클립보드에 아무런 내용이 없을때 "클립보드에 내용이 없습니다" 라고 msg box로 만들고 싶습니다
      도움부탁드립니다 감사합니다

      • 2022-05-09 03:50
        채택된 답변

        @yx****

        Sub ImageCheck()
        Dim WS As Worksheet
        Dim shp As Shape
        
        On Error GoTo EH:
        Application.ScreenUpdating = False
        Application.DisplayAlerts = False
        Application.EnableEvents = False
        
        Set WS = ThisWorkbook.Worksheets.Add
        WS.Paste
        For Each shp In WS.Shapes
            MsgBox "이미지입니다."
            GoTo Finally:
        Next
        
        MsgBox "이미지가 아닙니다."
        GoTo Finally:
        
        Exit Sub
        
        EH:
        If Err.Number = 1004 Then
            MsgBox "비어있습니다."
            GoTo Finally:
        End If
        
        Exit Sub
        
        Finally:
        WS.Delete
        Application.ScreenUpdating = True
        Application.DisplayAlerts = True
        Application.EnableEvents = True
        End Sub
        

        위 코드로 사용해보세요


        • 2022-05-09 07:08

          @더블유에이 님 감사합니다 잘 활용하겠습니다! ^^


      • 2022-05-09 03:46

        @yx**** 님 DataObj.GetFromClipboard 다음에

        If DataObj is Nothing Then MsgBox "클립보드에 내용이 없습니다.": Exit Sub

        이렇게 하면 되지 않을까요?

        그 뒤 구문 GetText에서 오류가 발생하면 텍스트가 없는 Object이므로 에러 핸들링 되어 "이미지입니다" 메시지를 보여주고요.


전체 6,463
번호 카테고리 제목 작성자 작성일 추천 조회
알림
📑 MS에서 특별한 라이브를 진행합니다! - 애저 SQL-엑셀 실시간 연동 프로그램 만들기!
오빠두엑셀 | 2022.05.24 | 추천 3 | 조회 86
오빠두엑셀 2022.05.24 3 86
공지사항 함수/공식
⭐ [더 나은 커뮤니티 문화를 위한 Q&A 글 작성 규칙] ⭐ (65)
오빠두엑셀 | 2021.10.28 | 추천 80 | 조회 4485
오빠두엑셀 2021.10.28 80 4485
34391 기능/도구
New F1 키 누르면 나오는 도움말 끄는 단축키는 없나요?
우렁각시탈 | 12:00 | 추천 0 | 조회 4
우렁각시탈 12:00 0 4
34390 함수/공식
New 셀이 빈 경우 텍스트조인이 실행되지 않도록 하는 방법 첨부파일
forest choi | 11:56 | 추천 0 | 조회 7
forest choi 11:56 0 7
34387 VBA
New 개별공시지가조회 셀레니움 첨부파일
나야 | 10:50 | 추천 0 | 조회 8
나야 10:50 0 8
34378 기능/도구
New 특정 글자의 데이터만 따로 분리할 수 있는 방법이 있을까요? (3) 답변완료
dfgkdflglkdf | 01:08 | 추천 -1 | 조회 38
dfgkdflglkdf 01:08 -1 38
34376 VBA
New VBA 동적 범위 테두리 만들기 첨부파일
라바 | 2022.05.24 | 추천 -1 | 조회 30
라바 2022.05.24 -1 30
34372 VBA
New VBA Do until loop 문중에서 출하지시서 코드를 빌려 짜는데.. 한계가 왔습니다. 첨부파일 (2)
pk2616 | 2022.05.24 | 추천 0 | 조회 28
pk2616 2022.05.24 0 28
34369 기능/도구
New 하이퍼링크 (1)
쎄이 | 2022.05.24 | 추천 0 | 조회 19
쎄이 2022.05.24 0 19
34367 VBA
New 짝수 페이지 로고 크기 변경 매크로를 어떻게 만들어야 할까요? 첨부파일
꽁냐리 | 2022.05.24 | 추천 0 | 조회 20
꽁냐리 2022.05.24 0 20
34365 VBA
New 정해진 양식에 여러 부서에서 부분부분 작성된 자료를 취합하는 방법이 궁금합니다. 첨부파일 (3)
nam**** | 2022.05.24 | 추천 -1 | 조회 31
nam**** 2022.05.24 -1 31
34364 함수/공식
New 엑셀 if수식 문의 드립니다. (1)
달려라탁구 | 2022.05.24 | 추천 0 | 조회 31
달려라탁구 2022.05.24 0 31
34361 함수/공식
New "06w 2"에서 "2"만 추출하여 총합을 구하는 방법 첨부파일 (1) 답변완료
forest choi | 2022.05.24 | 추천 0 | 조회 40
forest choi 2022.05.24 0 40
34360 함수/공식
New 특정 셀만 기입하게 할 수 있을까요? (셀 잠금 말고) 첨부파일
신지영 | 2022.05.24 | 추천 0 | 조회 31
신지영 2022.05.24 0 31
34356 함수/공식
New 날짜(월) 계산하는 문제 관련 (5) 답변완료
nowhs | 2022.05.24 | 추천 1 | 조회 46
nowhs 2022.05.24 1 46
34350 함수/공식
New 강의별 출석부를 만들고 싶어요 첨부파일 (2) 답변완료
Blak case | 2022.05.24 | 추천 0 | 조회 50
Blak case 2022.05.24 0 50
34348 기능/도구
New 다른 통합 문서로 시트 복사시 함수 파일명 관련 (4) 답변완료
허경일 | 2022.05.24 | 추천 0 | 조회 35
허경일 2022.05.24 0 35
34345 파워쿼리/피벗
New 각 테이블 마다 중복제거관련 (12) 답변완료
엑셀지킴이 | 2022.05.24 | 추천 0 | 조회 51
엑셀지킴이 2022.05.24 0 51
34341 기능/도구
New 엑셀 시트 글자크기 및 사이즈 조정 되나요?
DOUKCHEON 이재형 | 2022.05.24 | 추천 0 | 조회 30
DOUKCHEON 이재형 2022.05.24 0 30
34340 함수/공식
New 여러개의 열에 만족하는 값 구하기 (4) 답변완료
프래이야 | 2022.05.24 | 추천 0 | 조회 45
프래이야 2022.05.24 0 45
34338 문서서식
New 선택한 셀 절대값으로 한번에 바꾸는 방법 (2)
DOUKCHEON 이재형 | 2022.05.24 | 추천 0 | 조회 44
DOUKCHEON 이재형 2022.05.24 0 44
34337 구글시트
New 발주대비 입고일자를 카운팅 하고싶습니다. (2) 답변완료
김성민 | 2022.05.24 | 추천 0 | 조회 35
김성민 2022.05.24 0 35
34336 VBA
New 다른 시트의 두 셀 연동
kido**** | 2022.05.24 | 추천 0 | 조회 39
kido**** 2022.05.24 0 39
34334 VBA
New VBA 검색창을 만들었는데 엔터가 되지 않습니다..! (2)
김수달 | 2022.05.24 | 추천 0 | 조회 42
김수달 2022.05.24 0 42
34332 구글시트
New 2개의 조건을 충족하는 조건 값을 다른 시트에서 끌어 올려면 어떻게 해야 할까요? (1)
흰별이 | 2022.05.24 | 추천 0 | 조회 26
흰별이 2022.05.24 0 26
34330 함수/공식
New 엑셀에 수식 합치기 기능이 있을까요? 첨부파일 (2)
크미누크르 | 2022.05.24 | 추천 0 | 조회 55
크미누크르 2022.05.24 0 55
34328 차트/그래프
New 방문하는 고객 누적막대그래프 및 최저, 최고 방문객 매장 리스트 첨부파일 (2)
사막여우 | 2022.05.23 | 추천 0 | 조회 32
사막여우 2022.05.23 0 32
34326 문서서식
New 오빠두 강의 중 마우스 형관펜 기능에 대해서 질문드립니다.
월마리아 | 2022.05.23 | 추천 0 | 조회 28
월마리아 2022.05.23 0 28
34324 문서서식
New 하이퍼링크 셀 선택 첨부파일 (2) 답변완료
쎄이 | 2022.05.23 | 추천 0 | 조회 35
쎄이 2022.05.23 0 35
34322 기능/도구
New 시트 갈때마다 맨위로 이동시키는 방법 (1)
naver_60f182128c054 | 2022.05.23 | 추천 0 | 조회 35
naver_60f182128c054 2022.05.23 0 35
34318 대시보드
New 생일명단 및 육아휴직명단 추출 첨부파일 (3) 답변완료
사막여우 | 2022.05.23 | 추천 0 | 조회 59
사막여우 2022.05.23 0 59
34311 문서서식
New [조건부서식] 기초 질문 첨부파일 (1)
일신우일신J | 2022.05.23 | 추천 0 | 조회 34
일신우일신J 2022.05.23 0 34