이미지를 첨부가 아닌 복붙 하는 방식으로 바꾸는 방법

VBA
작성자
tu1541
작성일
2021-11-12 17:01
조회
50
엑셀버전 : 엑셀2016

운영체제 : 윈도우10

 

저희 양식에만 맞게 이미지를 삽입하는 VBA를 만들어서 사용하고 있는데요.

사용법: C열에 고정된 규칙으로 입력을 하고 Image load 클릭하여 C열 값 + -로마숫자 로 된 이미지 파일을 선택하면 4행에 로마숫자를 비교하여 10행에 삽입이 되는데요.

이럴 경우 이미지 파일이 삭제 되면 아래와 같이 경로를 찾을 수 없다고 나옵니다.

그래서 이를 방지하고자 이미지 파일을 복붙하는 원리로 수정하고 싶은데요.

어떻게 해야 하나요?...

아니면 다른 좋은 방법이 있다면 알려주시기 바랍니다.

SC21B5-21-ⅠⅠ.jpg

회원등급 : 4레벨
포인트 : 148 EP
총질문 : 10 개 (마감율 : 50%)
채택답변 : 0 개
전체 2

  • 2021-11-12 23:14
    채택된 답변

    코드를 ActiveSheet.Pictures.Insert(CStr(imgPath)).ShapeRange 로 사용하셨는데 Insert는 링크에 연결해서 파일을 넣기 때문에 AddPicture로 해주면됩니다

    ActiveSheet.Shapes.AddPicture _
    Filename:=CStr(imgPath), LinkToFile:=msoFalse, _
    SaveWithDocument:=msoTrue, _
    Left:=Number.Left, Top:=rng.Top + 50, _
    Width:=.Width + 53, Height:=.Height + 83

    이런 식으로 수정해보세요. 값은 적절히..^^


    • 2021-11-16 21:37

      @엑셀은즐거워 님 너무너무너무너무 감사합니다.

      🙂


전체 4,702
번호 카테고리 제목 작성자 작성일 추천 조회
공지사항 공지사항
⭐ [더 나은 커뮤니티 문화를 위한 Q&A 글 작성 규칙] ⭐ (12)
오빠두엑셀 | 2021.10.28 | 추천 16 | 조회 807
트로피 오빠두엑셀 2021.10.28 16 807
24347 파워쿼리/피벗
New 질문 있습니다. 파워쿼리에서 Text.Select가 실행이 안됩니다. 첨부파일 (1)
railway | 14:34 | 추천 0 | 조회 4
railway 14:34 0 4
24343 파워쿼리/피벗
New 엑셀 파워쿼리 파일병합
min**** | 13:43 | 추천 0 | 조회 13
min**** 13:43 0 13
24339 VBA
New 크롤링 반복 (재질문 입니다) 첨부파일 (1)
하늘의 꿈 | 12:48 | 추천 0 | 조회 11
하늘의 꿈 12:48 0 11
24330 VBA
New 매크로를 원하는 범위에서만 사용하는 방법을 알고싶습니다. 첨부파일 (3) 답변완료
호랑이파워 | 01:37 | 추천 0 | 조회 34
호랑이파워 01:37 0 34
24321 VBA
New 열 나누기 (4)
정미현 | 2021.12.05 | 추천 0 | 조회 33
정미현 2021.12.05 0 33
24317 피벗테이블
New 상품별로 기간 판매량을 구하고 싶습니다 첨부파일 (5) 답변완료
wlfl**** | 2021.12.05 | 추천 0 | 조회 40
wlfl**** 2021.12.05 0 40
24315 함수/공식
New 선택한 2개 열/행의 값의 곱을 구하고 싶습니다. (2)
(알수없음) | 2021.12.05 | 추천 0 | 조회 27
(알수없음) 2021.12.05 0 27
24310 VBA
New 제발 도와주세요 ㅠㅠ 첨부파일 (1)
떠희아빠 | 2021.12.04 | 추천 0 | 조회 59
떠희아빠 2021.12.04 0 59
24307 함수/공식
New 엑셀 초보인데 count 함수 관련 질문 있습니다. 첨부파일 (4)
야기분좋다 | 2021.12.04 | 추천 1 | 조회 31
야기분좋다 2021.12.04 1 31
24305 VBA
New 이문제는 시트를 변수로 지정을 해아하나요?? 첨부파일 (3) 답변완료
어려워 | 2021.12.04 | 추천 0 | 조회 32
어려워 2021.12.04 0 32
24300 VBA
New 떨어져 있는 특정 셀 선택 매크로 (1) 답변완료
제비제비 | 2021.12.04 | 추천 0 | 조회 41
제비제비 2021.12.04 0 41
24293 기능/도구
New 특정행으로 이동하는 문의를 드립니다. 첨부파일 (3)
열공합시다 | 2021.12.04 | 추천 0 | 조회 36
열공합시다 2021.12.04 0 36
24291 VBA
New for 문과 for each문을 보다가 궁금한게있습니다. (1) 답변완료
이치영 | 2021.12.04 | 추천 0 | 조회 37
이치영 2021.12.04 0 37
24289 함수/공식
New 함수좀 알려주세요. 첨부파일 (5) 답변완료
naver_5f055a605ee7d | 2021.12.04 | 추천 0 | 조회 45
naver_5f055a605ee7d 2021.12.04 0 45
24285 VBA
New 파일선택하면 파일명을 클립보드에 넣을수 있을까요? (2) 답변완료
ㅈㄱㄹ | 2021.12.04 | 추천 0 | 조회 30
ㅈㄱㄹ 2021.12.04 0 30
24279 함수/공식
New xfilter 사용조건 중 모두를 검색하는 수식 첨부파일 (4) 답변완료
다우미노 | 2021.12.03 | 추천 0 | 조회 38
다우미노 2021.12.03 0 38
24277 VBA
New 엑셀 화일명 변경 관련 첨부파일 (2)
워싱턴 | 2021.12.03 | 추천 0 | 조회 42
워싱턴 2021.12.03 0 42
24276 함수/공식
New 해당값을 끌고오는 양식? 첨부파일 (1) 답변완료
뚜루루 | 2021.12.03 | 추천 1 | 조회 46
뚜루루 2021.12.03 1 46
24275 VBA
New 병렬로 나열된 자료 일렬로 정렬하는 방법 문의 드립니다. 첨부파일 (2) 답변완료
007 | 2021.12.03 | 추천 0 | 조회 54
007 2021.12.03 0 54
24271 VBA
Sheet 이동시 속성이름을 유지하고 싶어요 첨부파일 (5)
Lucas's | 2021.12.03 | 추천 0 | 조회 34
Lucas's 2021.12.03 0 34
24270 기능/도구
여러가지 수식으로 된 엑셀시트에서 목표값에 맞추기 위한 해 찾기 문의드립니다. 첨부파일 (2) 답변완료
함수시르미 | 2021.12.03 | 추천 1 | 조회 36
함수시르미 2021.12.03 1 36
24262 VBA
불규칙 데이터의 자동채우기 해결방법 (1)
파퍼 | 2021.12.03 | 추천 0 | 조회 51
파퍼 2021.12.03 0 51
24259 함수/공식
계획시트에서 일일실적시트로 일별 데이터 취합방법 문의드립니다. 첨부파일 (3)
skyzza**** | 2021.12.03 | 추천 0 | 조회 43
skyzza**** 2021.12.03 0 43
24253 함수/공식
파일과 관련된 숫자를 다른 파일에 있는 숫자로 변경할 수 있는 방법 첨부파일 (2)
안녕 | 2021.12.02 | 추천 0 | 조회 34
안녕 2021.12.02 0 34
24252 함수/공식
표 범위 내에서 맨 좌측값 가져오기 질문드립니다. (3) 답변완료
김성환 | 2021.12.02 | 추천 0 | 조회 38
김성환 2021.12.02 0 38
24251 기능/도구
엑셀 주식 가격 예측 양식 사용 질문입니다. 첨부파일 (1)
thause | 2021.12.02 | 추천 0 | 조회 29
thause 2021.12.02 0 29
24249 VBA
모든 하위 폴더 내의 최신 파일 하나만을 특정 폴더로 복사하려 합니다 (1)
너의나라 | 2021.12.02 | 추천 0 | 조회 35
너의나라 2021.12.02 0 35
24248 차트/그래프
그래프에서 가로 축 Data 설정하는 법 첨부파일 (1)
Etter | 2021.12.02 | 추천 0 | 조회 37
Etter 2021.12.02 0 37
24245 VBA
아웃룩 이메일 내용에 VBA 변수 넣기 (1) 답변완료
argus | 2021.12.02 | 추천 0 | 조회 41
argus 2021.12.02 0 41
24239 VBA
[초보] 웹 크롤링 관련 질문입니다. 첨부파일 (2) 답변완료
스캐쳐 | 2021.12.02 | 추천 0 | 조회 41
스캐쳐 2021.12.02 0 41