[질문] sheet1에 결재도장 이미지 넣고, sheet2에서 결재 버튼 누르면 sheet1의 이미지 불러오기 해결방법 도와주세요

VBA
작성자
티엠프이
작성일
2023-02-17 15:56
조회
1353
엑셀버전 : 엑셀2019

운영체제 : 윈도우10

안녕하세요.

sheet2에서 담당 이 [담당결재] 버튼을 누르면 '담당 도장'이 나오고

부서장 이 [부서장결재] 버튼을 누르면 '부서장 도장이' 나오고

.. 이런 방식으로 하려 합니다.

 

sheet1에는 담당, 부서장, 대표 도장 칸이 있습니다.

여기서..

현재 소스는  sheet1에 글자는 불러오는데  원하는 이미지는 불러오지 못합니다...

sheet2의 버튼을 눌러보시면 sheet1의 글자는 잘 불러 오는 것을 보실 수 있습니다.

↑sheet1

 

그런데 제가 해야 하는 것은 글자가 아닌 도장이미지 를 불러와야 하는 것입니다.

↑sheet1

 

최종결론

↑sheet2

 

vb소스를 보시면...제가 주석을 달아 놓기는 했습니다.

저는 초보자 입니다...쉬운 설명과 도움 부탁합니다.

 

 

 

 

스크린샷-2023-02-17-145153.png

신고
스크랩
공유
전체 2

  • 2023-02-17 16:52
    채택된 답변

    @티엠프이 님 Private Sub 담당_Click()

    Sheet2.Range("B2").Select

    With Activesheet.Pictures.Insert("사진 주소").ShapeRange

    .LockAspectRatio = msoFalse

    .Height = Selection.Height

    .Width = Selection.Width

    .Left = Selection.Left

    .Top = Selection.Top

    End With

    End Sub

     

    사진 주소 찾는 간단한 방법

    1. 개발 도구 - 매크로 기록 - 확인 클릭
    2. 삽입 - 그림 선택하여 사진파일 불러오기
    3. 개발도구 - 기록 중지
    4. Module에 생성된 ActiveSheet.Picture.Insert( 뒤의 큰따옴표 안 사진 주소를 복사 후 붙여넣기
    5. 부서장, 대표는 각각 사진 주소와 range("B2")를 C2, D2로 변경하여 사용하시면 됩니다.

    이게 원하시는게 맞는지는 모르겠네요 사진 크기는 셀 크기에 맞춰 생성됩니다.


    • 2023-02-20 10:08

      @또가즈아 님 원하던 답이 딱 맞습니다. 고맙습니다. 덕분에 잘 배웠습니다. 좋은 하루 되세요~ ^^


전체 18,476
번호 카테고리 제목 작성자 작성일 추천 조회
알림
[📚진짜쓰는 실무엑셀] IT/오피스 '1위' 베스트셀러! 엑셀 공부, 이 교재로 마스터하세요! (313)
오빠두엑셀 | 2022.02.03 | 추천 573 | 조회 601106
오빠두엑셀 2022.02.03 573 601106
공지사항 문서서식
⭐ [더 나은 커뮤니티 문화를 위한 Q&A 글 작성 규칙] ⭐ (197)
오빠두엑셀 | 2021.10.28 | 추천 310 | 조회 34977
오빠두엑셀 2021.10.28 310 34977
78431 VBA
New IF 조건문 기초 질문 드립니다. 첨부파일 (4) 답변완료
neoburi | 00:46 | 추천 0 | 조회 73
neoburi 00:46 - 73
78428 기능/도구
New 보이는 범위의 셀로만 붙여넣기하는 법 첨부파일 (2)
유도연 | 2025.04.29 | 추천 0 | 조회 90
유도연 2025.04.29 - 90
78424 함수/공식
New 생년월일 6자리로 나이 계산 어떻게 하나요? (7)
망나 | 2025.04.29 | 추천 0 | 조회 98
망나 2025.04.29 - 98
78421 함수/공식
New INDEX + MATCH 함수 문의 (2)
박상선 | 2025.04.29 | 추천 0 | 조회 93
박상선 2025.04.29 - 93
78420 함수/공식
New 여러시트 중에 같은내용을 찾기 엑셀파일첨부파일 (1)
박석철 | 2025.04.29 | 추천 0 | 조회 76
박석철 2025.04.29 - 76
78419 문서서식
New 크기가 다른 셀에서의 필터 걸기 부탁드립니다 ! 첨부파일 (3) 답변완료
Aberdeen | 2025.04.29 | 추천 0 | 조회 64
Aberdeen 2025.04.29 - 64
78418 함수/공식
New [퀴즈] 텍스트 압축/변형하기 엑셀파일첨부파일 (8)
마법의손 | 2025.04.29 | 추천 0 | 조회 123
마법의손 2025.04.29 - 123
78416 VBA
New 시트보호된 상태에서 매크로 작동시 Range 클래스 중 Insert 메서드에 오류가 있습니다. 첨부파일 (1)
jihye**** | 2025.04.29 | 추천 0 | 조회 54
jihye**** 2025.04.29 - 54
78414 파워쿼리/피벗
New 다른 엑셀 파일에서 필요한 값만 불러오는 방법 첨부파일
망그러진나나 | 2025.04.29 | 추천 0 | 조회 63
망그러진나나 2025.04.29 - 63
78413 함수/공식
New 경과주 구하는 수식 문의 (1)
엑셀렙업용 | 2025.04.29 | 추천 0 | 조회 63
엑셀렙업용 2025.04.29 - 63
78411 문서서식
New 숫자 문자인식 숫자변환하는 법 엑셀파일 (5)
패션피플 | 2025.04.29 | 추천 0 | 조회 75
패션피플 2025.04.29 - 75
78410 VBA
New [매크로관련] 특정셀 자동증가하며, 연속출력할수 있을까요? 엑셀파일 (5) 답변완료
박병호 | 2025.04.29 | 추천 0 | 조회 88
박병호 2025.04.29 - 88
78408 문서서식
New 숫자 서식 변경하기 첨부파일 (3) 답변완료
에그셀 | 2025.04.29 | 추천 0 | 조회 65
에그셀 2025.04.29 - 65
78407 기능/도구
New 원드라이브 MICROSOFT 365 사용중 공동작업시 필터 첨부파일 (1)
록키발보아 | 2025.04.29 | 추천 0 | 조회 58
록키발보아 2025.04.29 - 58
78402 함수/공식
New 괄호안의 시간:분 데이터를 분으로 합산하는 방법 질문드립니다. 엑셀파일첨부파일 (1) 답변완료
nams | 2025.04.28 | 추천 0 | 조회 69
nams 2025.04.28 - 69
78400 함수/공식
New 2차배열에서 countif 첨부파일 (9) 답변완료
라면이가좋아 | 2025.04.28 | 추천 0 | 조회 92
라면이가좋아 2025.04.28 - 92
78399 함수/공식
New 한달의 마지막주 스케쥴 작성시 전주까지의 휴무 누적 합계 구하는 방법이 궁금합니다. 엑셀파일첨부파일 (3)
쭈누 바라기 | 2025.04.28 | 추천 0 | 조회 55
쭈누 바라기 2025.04.28 - 55
78398 VBA
New VBA 매크로 여러 엑셀 파일에서 사용 (1)
shhhha | 2025.04.28 | 추천 0 | 조회 86
shhhha 2025.04.28 - 86
78396 함수/공식
New 직원별로 근태 합계를 확인하고 싶어요 엑셀파일 (12) 답변완료
배진희 | 2025.04.28 | 추천 0 | 조회 117
배진희 2025.04.28 - 117
78395 함수/공식
New 특정 단어를 포함한 행 골라내는 방법에 대해 문의드립니다. (3) 답변완료
mmm1010 | 2025.04.28 | 추천 0 | 조회 78
mmm1010 2025.04.28 - 78
78392 함수/공식
New 도와주세요... ( 특정값에 해당하는 반 번호 찾아 목록만들기) 엑셀파일첨부파일 (6)
김동생 | 2025.04.28 | 추천 0 | 조회 84
김동생 2025.04.28 - 84
78389 기능/도구
New 오빠두LIVE 196회 - 엑셀 프로젝트 관리 _ 일,주 바꾸는법 엑셀파일 (1)
일류 | 2025.04.28 | 추천 0 | 조회 73
일류 2025.04.28 - 73
78387 함수/공식
New 엑셀 관련 질문입니다. SUM과 IFERROR 입니다 ㅠ (6)
| 2025.04.27 | 추천 0 | 조회 119
2025.04.27 - 119
78382
New Excel 추세선 이상 엑셀파일 (2)
eagle | 2025.04.27 | 추천 0 | 조회 89
eagle 2025.04.27 - 89
78381 함수/공식
New 같은 이름 N 번째 데이터 엑셀파일첨부파일 (14) 답변완료
박정호 | 2025.04.27 | 추천 1 | 조회 124
박정호 2025.04.27 1 124
78380 함수/공식
New On Error Resume Next 문구를 삽입하는 위치는? (2) 답변완료
GEEM | 2025.04.27 | 추천 0 | 조회 94
GEEM 2025.04.27 - 94
78376 함수/공식
New 지역별 증감금액 확인 엑셀파일 (3) 답변완료
충무공 | 2025.04.26 | 추천 0 | 조회 86
충무공 2025.04.26 - 86
78374 함수/공식
New index를 활용한 조건에 맞는 금액을 찾는 방법 엑셀파일첨부파일 (4)
뚜둥뚜둥 | 2025.04.26 | 추천 0 | 조회 106
뚜둥뚜둥 2025.04.26 - 106
78372 기능/도구
New 표서식 차이 문의 첨부파일 (2) 답변완료
hossang**** | 2025.04.25 | 추천 0 | 조회 74
hossang**** 2025.04.25 - 74
78370 피벗테이블
New (피벗테이블) 2024년 2025년 판매 TOP10 비교데이터 첨부파일 (13)
패션피플 | 2025.04.25 | 추천 0 | 조회 109
패션피플 2025.04.25 - 109