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

VBA

작성자

yx****

작성일

2022-05-08 23:03

조회

엑셀버전 : 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

yx****

회원등급 : 잎새등급

포인트 : 124 EP

총질문 : 2 개 (마감율 : 100%)

채택답변 : 0 개

게시글

VBA 필터 지정후 이미지 저장 문의 (6)
2022.05.18
엑셀 클립보드 붙여넣을때 이미지 유형인지 유무 확인 문제관련 (5)
2022.05.08
처음뵙습니다 잘부탁드려요 (11)
2022.05.08

전체 5

더블유에이 님 266

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
```
- yx**** 님 작성자
  
  2022-05-09 01:09
  @더블유에이 님
```
MsgBox DataObj.GetText 이부분을 MsgBox "이미지가 아닙니다" 로 변경하니 문제 발생되는데 해결방법이 있을까요?
그리고 클립보드에 아무런 내용이 없을때 "클립보드에 내용이 없습니다" 라고 msg box로 만들고 싶습니다
도움부탁드립니다 감사합니다
```
  - 더블유에이 님 266
    
    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
    
    위 코드로 사용해보세요
    
    yx**** 님 작성자
    
    2022-05-09 07:08
    
    @더블유에이 님 감사합니다 잘 활용하겠습니다! ^^
  - 나는나 님 33
    
    2022-05-09 03:46
    
    @yx**** 님 DataObj.GetFromClipboard 다음에
    
    If DataObj is Nothing Then MsgBox "클립보드에 내용이 없습니다.": Exit Sub
    
    이렇게 하면 되지 않을까요?
    
    그 뒤 구문 GetText에서 오류가 발생하면 텍스트가 없는 Object이므로 에러 핸들링 되어 "이미지입니다" 메시지를 보여주고요.

« 각 2개의 그룹의 이름이 똑같으면 같은행에 보여주는 함수가 있을까요?

구글 스프레드시트 / 시트 참조 함수 오류 »

목록보기

전체 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