sub process 구문 위치 문의.

VBA
작성자
sf****
작성일
2021-10-04 01:20
조회
55
엑셀버전 : 엑셀2016

운영체제 : 윈도우10


안녕하세요

VBA로 엑셀 RANGE변수를 셀렉트한다음
Select.copypicture로 이미지파일로 저장하는 코드를 짰는데요,

카피픽쳐를 실행하는데 런타임에러가 발생해서
시간을 2초 지연시키는데도 간간히 에러가 발생합니다.

구글에서 찾아보니 클립보드 상태를 체크하는 아래와같은 코드가 있던데,

아래 코드를 실행하면 에러가 발생하는데,
본문을 어떻게 적용해야되나요?

sub process와 end sub를 어디에 넣어야 하는건가요?


Private Declare PtrSafe Function IsClipboardFormatAvailable Lib "user32" (ByVal wFormat As Long) As Long
Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) 

'just after copypicture, add this: (in my case i added it inside pastepicture, or i'd have too much coding )
Dim T#
  Do
      Waiting (2)
Loop Until IsClipboardFormatAvailable(2) Or Timer - T > 0.3


Sub Waiting(ByVal Mili_Seconds&)
Sleep Mili_Seconds
End Sub
전체 2

  • 2021-10-08 06:46

    선생님!!! 감사합니다!!

    너무너무 감사드려요!!!


  • 2021-10-05 03:18

    이렇게 한번 작성해보세요

    Private Declare PtrSafe Function IsClipboardFormatAvailable Lib "user32" (ByVal wFormat As Long) As Long
    
    Sub 이미지붙여넣기()
    Dim T#, i#
    Do
    For i = 1 To 1000000
    i = i + 1
    Next i
    Loop Until IsClipboardFormatAvailable(2) Or Timer - T > 0.3
    If IsClipboardFormatAvailable(2) Then
    '이미지붙여넣기명령문
    Else
    '클립보드비어있을경우
    End If
    End Sub

    템플릿이기 때문에 안에 명령문은 직접 수정하셔야됩니다


전체 4,261
번호 카테고리 제목 작성자 작성일 추천 조회
4245 함수/공식
New raw 데이터를 이용하여 복수 조건에 해당하는 데이터 나열하기 문의 (3)
신동 | 2021.10.22 | 추천 0 | 조회 39
신동 2021.10.22 0 39
4244 함수/공식
New if를 사용하여 값 참조하게하기 (3)
현표 | 2021.10.22 | 추천 0 | 조회 36
현표 2021.10.22 0 36
4243 차트/그래프
New 음영 셀만 그래프에 수치가 표기 되거나 강조되게 하는 방법이 있을까요? 첨부파일 (1)
은하상회 | 2021.10.22 | 추천 0 | 조회 20
은하상회 2021.10.22 0 20
4242 VBA
New Sheet간 이미지 복사 방법이 있을까요?..(셀병합, 범위..) 첨부파일
tu1541 | 2021.10.22 | 추천 0 | 조회 34
tu1541 2021.10.22 0 34
4241 문서서식
New 기초) 자동필터에서 와일드카드 검색 질문드립니다 (2)
월마리아 | 2021.10.22 | 추천 0 | 조회 31
월마리아 2021.10.22 0 31
4240 VBA
New 피벗테이블 필터자동 변경 문의드려요 ㅠㅠ 첨부파일 (1)
Jun0211 | 2021.10.21 | 추천 0 | 조회 34
Jun0211 2021.10.21 0 34
4239 함수/공식
New 셀 2개의 데이타를 ㄹ합치는 법 (4) 답변완료
마운틴 | 2021.10.21 | 추천 0 | 조회 47
마운틴 2021.10.21 0 47
4238 VBA
New 필터링된 값 붙여넣기 첨부파일 (8) 답변완료
지연 | 2021.10.21 | 추천 0 | 조회 53
지연 2021.10.21 0 53
4237 함수/공식
New 엑셀 수식을 부탁드립니다. 첨부파일 (1)
워싱턴 | 2021.10.21 | 추천 0 | 조회 39
워싱턴 2021.10.21 0 39
4236 VBA
New 도와주세요 첨부파일 (1)
현아 | 2021.10.21 | 추천 0 | 조회 35
현아 2021.10.21 0 35
4235 함수/공식
New 업체명으로 된 DB에서 업체명 + ~월 등 문자가 추가되었을때 DB에서 찾아오는 함수 수식 (3) 답변완료
이수철 | 2021.10.21 | 추천 0 | 조회 41
이수철 2021.10.21 0 41
4234 함수/공식
New 로우데이터에서 특정값을 찾아 값이 있을 경우와 없을 경우 결과 값을 지정하여 도출하는 방법이 궁금합니다. (1)
mysoul**** | 2021.10.21 | 추천 0 | 조회 30
mysoul**** 2021.10.21 0 30
4233 함수/공식
New x,y,z로 이루어진 방정식 두 개를 '해 찾기' 기능으로 풀 수 있을까요? (6)
고대하라 | 2021.10.21 | 추천 0 | 조회 46
고대하라 2021.10.21 0 46
4232 기능/도구
New 셀선택시 설명 팝업 (6) 답변완료
HYODONG | 2021.10.21 | 추천 0 | 조회 35
HYODONG 2021.10.21 0 35
4231 피벗테이블
New 정규화에 대한 문의 첨부파일 (1)
광개토태왕 | 2021.10.21 | 추천 0 | 조회 31
광개토태왕 2021.10.21 0 31
4230 차트/그래프
New 원형 차트에 슬라이서 연결 시 표시 방법 문의 드립니다. (1)
이찬우 | 2021.10.21 | 추천 0 | 조회 25
이찬우 2021.10.21 0 25
4229 함수/공식
New 대량의 데이터를 가지고 있는 다른 시트에서 중복값찾기 (6) 답변완료
라운 | 2021.10.21 | 추천 0 | 조회 54
라운 2021.10.21 0 54
4228 VBA
New 시간이 겹치거나 겹친 시간에 동일 이름이 중복될 경우 찾을려면 어떻게 하면 될까요? (4)
셀라푸우 | 2021.10.20 | 추천 0 | 조회 42
셀라푸우 2021.10.20 0 42
4227 VBA
New 데이터 범위설정 매크로 수식 (2)
젬마 | 2021.10.20 | 추천 0 | 조회 53
젬마 2021.10.20 0 53
4226 피벗테이블
New 피벗테이블 구성 (2)
광개토태왕 | 2021.10.20 | 추천 0 | 조회 45
광개토태왕 2021.10.20 0 45
4225 VBA
New (초보..)vba 웹크롤링(selenium 사용) 문자를 읽어오지않아 문의드립니다!! (4)
윌터너 | 2021.10.20 | 추천 0 | 조회 37
윌터너 2021.10.20 0 37
4224 함수/공식
New 함수 자동입력?
흑형 | 2021.10.20 | 추천 0 | 조회 58
흑형 2021.10.20 0 58
4223 기능/도구
구글 스프레드시트 이미지 인쇄 문제 (1)
민 쌤 | 2021.10.20 | 추천 0 | 조회 31
민 쌤 2021.10.20 0 31
4222 파워쿼리/피벗
파워쿼리 입문입니다. 시트 합치는 방법 질문드립니다. 첨부파일 (2)
월마리아 | 2021.10.19 | 추천 0 | 조회 59
월마리아 2021.10.19 0 59
4221 함수/공식
공부용 일정표 관련해서 자동 생성 질문드립니다.
1234느린열차 | 2021.10.19 | 추천 0 | 조회 34
1234느린열차 2021.10.19 0 34
4220 함수/공식
변화되는 값 추적하기 첨부파일 (1)
아자사랑 | 2021.10.19 | 추천 0 | 조회 50
아자사랑 2021.10.19 0 50
4219 함수/공식
셀에 포함된 특정단어 추출 함수 첨부파일 (6) 답변완료
마운틴 | 2021.10.19 | 추천 0 | 조회 80
마운틴 2021.10.19 0 80
4218 피벗테이블
피벗테이블에서 열 (레이블) 상위 10% 필터링 방법 문의 첨부파일 (3)
김성현19 | 2021.10.19 | 추천 0 | 조회 39
김성현19 2021.10.19 0 39
4217 함수/공식
다중조건으로 매출 순위 구하기 첨부파일 (8) 답변완료
newstar | 2021.10.19 | 추천 0 | 조회 60
newstar 2021.10.19 0 60
4216 파워쿼리/피벗
Expression.Error: Table 형식의 값을 Binary 형식으로 변환할 수 없습니다 첨부파일 (3)
슝슝 | 2021.10.19 | 추천 0 | 조회 32
슝슝 2021.10.19 0 32