유저폼 스크린샷 또는 이미지 추출 문의드립니다.

VBA
작성자
승목이
작성일
2021-07-07 13:39
조회
114
엑셀버전 : 엑셀2016

운영체제 : 윈도우10

안녕하세요, 열심히 배워가다 궁금한 부분이 있어 문의남깁니다.

 

현재 유저폼 양식을 만들어 내용을 추출하고있는데 캡처도구로 유저폼크기를 맞춰 캡처하는 부분이 조금 불편해서 그런데

유저폼 크기를 캡처 할 수 있는 VBA가 있을까요 ?

전체 6

  • 2021-07-09 11:05

    많이 배웁니다 엑셀 공부를 열심히 해야겠습니다 공부할수록 어렵네요


  • 2021-07-09 17:16

    답변 감사합니다 !


  • 2021-07-07 14:05

    저두 그 부분을 무지하게 찾아 보았는데, "Alt + Print Screen" 이외의 방법을 못 찾았습니다.

    VBA로 "Alt + Print Screen"을 인위적으로 주입해서 카피하고, 차트 오브젝트에 복사해서 파일로 저장하는 방법이 현재로서는 전부 입니다.

    혹시 다른 좋은 해결책을 가지고 있는 분이 계신다면 공유 해주셨으면 좋겠습니다.


    • 2021-07-07 16:16

      아무래도... 우선적으로는 캡처도구 또는 말씀주신 알트+프린트스크린을 사용하는 방법밖엔 없겠군요..

      답변 감사합니다 !

       

      혹시 다른 좋은 해결책 갖고 있다면 공유해주셨으면 좋겠습니다!


  • 2021-07-07 21:28
    채택된 답변
    To capture the active window
    
    Option Explicit
    
    Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal _
      bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
    
    Private Const KEYEVENTF_KEYUP = &H2
    Private Const VK_SNAPSHOT = &H2C
    Private Const VK_MENU = &H12
    
    Sub AltPrintScreen()
        keybd_event VK_MENU, 0, 0, 0
        keybd_event VK_SNAPSHOT, 0, 0, 0
        keybd_event VK_SNAPSHOT, 0, KEYEVENTF_KEYUP, 0
        keybd_event VK_MENU, 0, KEYEVENTF_KEYUP, 0
    End Sub

    원하시는 답이 맞는지 모르겠지만.. (아래 링크 참고했습니다)

    https://wordmvp.com/FAQs/MacrosVBA/PrtSc.htm


    • 2021-07-07 21:50

      이게 VBA로 할 수 있는 최선의 방법 맞습니다. 저장은 Chart Object로 Export 하는 방법 ... ㅠㅠ

      가끔은 PowerPoint 개체를 이용하기도 하고... 이미 클래스로 만들어 쓰고 있다는 ... ㅎㅎㅎ


전체 3,572
번호 카테고리 제목 작성자 작성일 추천 조회
3558 문서서식
New 특정값(1,2) 입력시 셀 입력 못하게 색깔입히는게 가능할까요? (1) 답변완료
똑똑한곰 | 09:41 | 추천 0 | 조회 12
똑똑한곰 09:41 0 12
3557 함수/공식
New 도와주세요 ... ㅠㅠ (2)
향기 | 08:06 | 추천 0 | 조회 19
향기 08:06 0 19
3556 VBA
New 경우의 수 나열계산 및 값 표기 방법 궁금합니다 첨부파일
슬렁슬렁 | 2021.08.04 | 추천 0 | 조회 15
슬렁슬렁 2021.08.04 0 15
3555 함수/공식
New COUNTIFS 적용 가능 여부 (1)
노갈 | 2021.08.04 | 추천 0 | 조회 19
노갈 2021.08.04 0 19
3554 함수/공식
New 엑셀 색상별 합계 3초만에 구하는 방법 강의를 듣고 색상별 개수를 구하는 방법 오류 2 (1)
Finir2017 | 2021.08.04 | 추천 1 | 조회 17
Finir2017 2021.08.04 1 17
3553 함수/공식
New 엑셀 색상별 합계 3초만에 구하는 방법 강의를 듣고 색상별 개수를 구하는 방법 오류 1 (1)
Finir2017 | 2021.08.04 | 추천 1 | 조회 16
Finir2017 2021.08.04 1 16
3552 VBA
New 사용자 유저폼에서 콤보박으로 선택하는 조건에 따라 매핑된 코드 불러오는 방법 연구
고병관 | 2021.08.04 | 추천 0 | 조회 19
고병관 2021.08.04 0 19
3551 함수/공식
New 함수를 잘모르겠습니다. (1)
벨로 | 2021.08.04 | 추천 0 | 조회 21
벨로 2021.08.04 0 21
3550 기능/도구
New 표 에서 검색할 때 속도 질문 드립니다. (2)
이우용님 | 2021.08.04 | 추천 0 | 조회 15
이우용님 2021.08.04 0 15
3549 함수/공식
New index - match 함수오류 해결 문의 - 인수를 너무 많이 입력했습니다. (1)
이친절카인드 | 2021.08.04 | 추천 0 | 조회 31
이친절카인드 2021.08.04 0 31
3548 피벗테이블
New 슬라이서를 이용한 다중 피벗테이블 연결에서 수식참조 메세지가 뜹니다. (2)
| 2021.08.04 | 추천 0 | 조회 28
2021.08.04 0 28
3547 기능/도구
New 셀 복사 (3) 답변완료
우라기 | 2021.08.04 | 추천 0 | 조회 21
우라기 2021.08.04 0 21
3546 함수/공식
New 특정날짜가 기록되면, 카운트 누적을 초기화하여 다시 카운트할 수 있을까요? 첨부파일 (2) 답변완료
포니 | 2021.08.04 | 추천 0 | 조회 40
포니 2021.08.04 0 40
3545 함수/공식
New 시트 간 연동 관련 (1)
pensa**** | 2021.08.04 | 추천 0 | 조회 38
pensa**** 2021.08.04 0 38
3544 문서서식
New 엑셀 와일드카드 * 별표 질문드립니다. 첨부파일 (3)
월마리아 | 2021.08.03 | 추천 0 | 조회 38
월마리아 2021.08.03 0 38
3543 함수/공식
New 순위와 등급을 이용한 1~7지망까지 정렬하는 방법이 있을까요? 첨부파일 (2) 답변완료
똑똑한곰 | 2021.08.03 | 추천 0 | 조회 39
똑똑한곰 2021.08.03 0 39
3542 VBA
New 아래셀 복사 또는 값이 자동입력되는 매크로 (제발 도와주세요) 첨부파일 (5)
욕심없는성공v | 2021.08.03 | 추천 0 | 조회 40
욕심없는성공v 2021.08.03 0 40
3541 함수/공식
New Check list 자동화를 도와 주세요 첨부파일 (4)
Finir2017 | 2021.08.03 | 추천 1 | 조회 41
Finir2017 2021.08.03 1 41
3540 문서서식
New 함수 이용한 조건부서식 (2) 답변완료
블링블링 | 2021.08.03 | 추천 0 | 조회 37
블링블링 2021.08.03 0 37
3539 함수/공식
New 엑셀 마스터님들, 도와주십쇼. 머리 깨질 것 같습니다. (5) 답변완료
93 | 2021.08.03 | 추천 0 | 조회 68
93 2021.08.03 0 68
3538 VBA
New 오빠두님 파파고 번역기 및 크롤링 네트워크 CLASS문의 첨부파일
H.B | 2021.08.03 | 추천 1 | 조회 32
H.B 2021.08.03 1 32
3537 문서서식
New 재고관리관련 문의 드립니다. (2)
안개숲지기 | 2021.08.03 | 추천 0 | 조회 42
안개숲지기 2021.08.03 0 42
3536 함수/공식
New 일용노무비명세서 첫출근일및마지막근로일 함수 알려주세요 첨부파일 (5) 답변완료
jhp | 2021.08.03 | 추천 0 | 조회 27
jhp 2021.08.03 0 27
3535 기능/도구
New 엑셀 공백기준으로 텍스트나누기 에러 첨부파일 (1)
naver_6108ea4bb3708 | 2021.08.03 | 추천 0 | 조회 22
naver_6108ea4bb3708 2021.08.03 0 22
3534 VBA
New 구글스프레드시트 pdf 저장 스크립트(매크로) (1)
메꾸똘 | 2021.08.03 | 추천 0 | 조회 27
메꾸똘 2021.08.03 0 27
3533 함수/공식
New vlookup으로 찾은 값의 합구하기 (2) 답변완료
리듬 | 2021.08.03 | 추천 0 | 조회 37
리듬 2021.08.03 0 37
3532 함수/공식
New 사이값 자동계산 방법 (1)
실비아 | 2021.08.03 | 추천 0 | 조회 31
실비아 2021.08.03 0 31
3531 문서서식
New 두개의 파일을 띄워놓고 한쪽 파일에서 셀 드래그해서 상태표시줄에 나타난 합계 값을 다른쪽 파일에서 보고 입력하고싶습니다.
무마메 | 2021.08.03 | 추천 0 | 조회 25
무마메 2021.08.03 0 25
3530 함수/공식
New DuTool 수식참조 (3)
casanova | 2021.08.03 | 추천 0 | 조회 30
casanova 2021.08.03 0 30
3529 기능/도구
New 외부 원본(Raw Data) 엑셀 데이터 사용 방법 (2)
kevin5616 | 2021.08.03 | 추천 2 | 조회 45
kevin5616 2021.08.03 2 45