지정된 위치에 이미지 자동삽입하기 (엑셀 VBA)

[@최경호-o4r]

유용 했습니다 감사합니다

[@soongilhwang]

개꿀 교육 감사합니다. 업무에 큰 도움이 됩니다. 감사합니다.

[@macjoocan]

강의 잘 들었습니다. 주신 강의 베이스로 업무에 너무 잘 사용하고 있습니다. 그런데 하나 여쭤볼 것이 있는데. Range 버튼을 이용해서, 셀을 많이 불러오는 경우 제 컴퓨터에서는 43개 이상 셀 주소가 등록이 안되더라구요 ㅜㅜ 더 많은 셀을 불러 올 수 있도록 수정 하는 방법이 있다면 알고 싶습니다.

[@TricksOffice]

블로그에도 같은 질문을 올려주셨네요. 답변 드렸습니다. 아마도 레인지를 뜻하는 문자열이 너무 길어져서 그와같은 현상이 생겼을것 같습니다. 얼추 43개 주소 이상을 입력하게되면 글자수로는 255자 이상이 될것 같네요. 원하시는 셀 주소들을 선택한 상태에서 메뉴에서 수식 → 이름정의로 들어가면 따로 변수 이름처럼 정해줄 수 있을겁니다. 여기서 임의의 이름을 하나 정해 두시고, 텍스트 박스에 그 이름을 입력해 보세요. 그렇게 하면 될것 같긴 합니다. (실제 제 컴퓨터에서 확인해 보지는 않았습니다.)

[@macjoocan]

@@TricksOffice 답변 정말 감사드립니다. 변수 이름으로 저장해도 40개까지만 선택이 되네요. ㅜㅜ 저도 혹시 다른 방법 있나 찾아보겠습니다!!

[@macjoocan]

아무래도 선택한 셀 주소가 연속적이 아니라 한칸씩 띄워져 있는 구조라 그런듯 합니다. ㅜㅜ

[@랍비세상]

다른파일에서도 사용할수 있게 하는 방법좀 알려주세요. 새로운 파일 열어서 하면 작동이 안돼서요.. 방법좀 가르쳐주세요.

[@TricksOffice]

새 파일에서 쓰시려면 새 파일에 매크로를 복사해서 가져가셔야 할 것 같습니다.

[@Kyle-vk5rd]

정말 감사합니다. 근데 이미지가 80개 넘어가기 시작하면 셀안에 삽입되는 이미지 위치가 점점 셀 위로 점점 올라가다가 아예 셀 밖으로 나가는 현상이 발생합니다. 행높이도 모두 일정하게 맞추었는데 이상합니다. 이런 문제를 해결하려면 어떻게 해야하나요. ㅠㅠ 지금 당장은 Do while의 반복횟수를 구해서 거기에 소수점을 곱한것을 더하는 것으로 우선 땜질은 했는데 원인을 알 수가 없습니다. imgY = 1 + imgY Set Photo = ActiveSheet.Shapes.AddPicture(txt_Path & "\" & F_Name, False, True, ActiveCell.Left + 15, ActiveCell.Top + 25 + imgY * 0.0045, ActiveCell.Width - 30, ActiveCell.Height - 30)

[@TricksOffice]

엇... 신기한 현상이네요.... 아.. 어렵다.. ㅠ. ㅠ

[@s밋미]

넘 좋은 강의였습니다. 오타 오류가 나는거 같아서 진행이 안됩니다ㅠ 단축키 두개는 성공했는데 마지막 한개에서 막힙니다 코드서식을 따로 받을수 있을수 없을까요?

[@TricksOffice]

아래 블로그 글에서 다운로드 받으실수 있으실 겁니다. blog.naver.com/550sn/221802639869

[@s밋미]

@@TricksOffice 감사합니당

[@haeun723]

파일명이 영문i 로 시작하면 가져 오지 못하는 이유가 있을까요? 영문 I 로 시작하는 이미지 왜에는 다 가져 오는 걸까요? 대소문자 모두 I로 시작하는 이미지는 못 가져 오네요.ㅜㅜ

[@TricksOffice]

엇! 현상이 특이하네요... 특별히 그렇게 될 이유는 없을것 같은데... ㅠ.ㅠ 한번 살펴 보겠습니다.

[@sgtjdk]

안녕하세요. 좋은 강의 감사합니다. 사진을 셀 안에 넣을 때, 가로 세로비가 유지된 채 셀의 중앙에 배치되도록 할 수 있는지요? 셀의 상하 또는 좌우에 여백이 생기더라도 셀의 중앙에 배치되도록 했으면 합니다. 감사합니다.

[@TricksOffice]

할 수는 있는데, 고민은 좀 해야 할 것 같습니다. 위치에 대한 정보가 이미지의 맨 좌측 맨 위 위치를 정해주게 되어 있기 때문에, 셀의 크기를 먼저 보고 이미지 크기를 결정한 다음 계산식을 부여해서 이미지가 가운데로 오게끔 조정해야 합니다.

[@sgtjdk]

@@TricksOffice 답변 감사합니다. 좀 더 고민해 보겠습니다~

[@yeolchoong]

좋은 자료 감사합니다 질문이 있습니다 너무 좋은데 현업에서는 이미지 오른쪽에 어떤 데이터가 들어가야할텐데 현재 올려주신 부분은 사진 한장에 셀 하나 밖에 활용을 못하더라구요 지금 여러가지 주신 코드를 보고 실험 해보고 있는데 왼쪽셀이 몇셀로 병합이 되어있던 한셀의 크기로 오른쪽 이미지가 붙여 있더라구요 .. 궁금 한 부분은 왼쪽셀의 병합된 크기에 맞게 오른쪽 이미지가 붙게되었으면 하는데 .. 너무 어렵겠죠 ㅠ 감사합니다

[@TricksOffice]

왼쪽 셀과 상관없이, 이미지가 붙을 셀의 사이즈에 맞춰서 그림 크기가 조정됩니다. 만약 이미지가 붙을 셀이 병합되어 있다면, 그 병합된 셀 크기로의 수정은 가능할듯 합니다. Set Photo = ActiveSheet.Shapes.AddPicture(txt_Path & "\" & F_Name, False, True, ActiveCell.Left, ActiveCell.Top, ActiveCell.Width, ActiveCell.Height) 위의 소스를 아래와 같이 한번 바꿔 보시죠... 이 경우 이미지가 붙을 셀이 병합되어 있다면, 병합된 크기에 맞춰서 이미지 크기가 조정됩니다. If Activecell.MergeCells Then Set Photo = ActiveSheet.Shapes.AddPicture(txt_Path & "\" & F_Name, False, True, ActiveCell.Left, ActiveCell.Top, ActiveCell.MergeArea.Width, ActiveCell.MergeArea.Height) Else Set Photo = ActiveSheet.Shapes.AddPicture(txt_Path & "\" & F_Name, False, True, ActiveCell.Left, ActiveCell.Top, ActiveCell.Width, ActiveCell.Height) End If

[@yeolchoong]

적용해보겠습니다 ㅎ!! 감삼다

[@MyITStory]

@@TricksOffice 정말 감사합니다~ 업무에 도움이 되었습니다 ㅎㅎ

[@TricksOffice]

이런 댓글이 또 제게는 힘이되죠~ 도움이 되셨다니 다행이고, 방문해 주셔서 감사합니닷~ ^^

[@도하-v6e]

강의 잘 들었습니다. 강의 공유 감사드려요!

[@hhkim0210able]

혹시 버튼 하나만 눌러서 자동으로 그림삽입할수는 없을까요? 예를 들어서 해당폴더에 있는 그림을 자주 수정해야 할일이 있는데 그 수정된 파일만 폴더에 있으면 엑셀에서 버튼 하나 눌러서 바로바로 새로고침 되도록이요

[@TricksOffice]

가능은 할 듯 합니다. 다만 규칙은 명확히 있어야 할것 같습니다. 어느 위치에 어느 파일을 넣는다는... 아니면 처음 이미지를 삽입 할 때 만약 매크로를 사용해서 삽입 했다면, 옵션을 바꿔서 링크로 설정을 해 두면 원본 이미지 파일이 바뀌면 파일을 열면 자동으로 바뀔 수도 있습니다. 다만, 이 경우에는 다른 사람과 공유할 경우 엑박이 갈 수도 있으니 조심해야 합니다. 옵션 관련 내용은 아래 영상을 참고하세요. kzbin.info/www/bejne/i4TTnXl_qr1prpY

[@ninestories949]

감사합니다 (_ _)

[@Jaesusaeng]

잘 사용하던중 궁금한게 있어 댓글 남깁니다 sheet1 을 복사해서 sheet1 (2) 에서 사용하고싶은데요, 예를들어 sheet1에 A, B가입력되어있고 sheet1 (2)의 같은 열과 행에 C, D가 입력되어있다고 하면 sheet1 (2) 에서 매크로를 실행했을때 C, D 자리에 A, B 사진이 들어오네요 ㅜ 어떻게 해결해야되나요? ㅜㅜ... 답변기다리겠습니다 감사합니다!

[@TricksOffice]

퇴근후에 볼께요.

[@TricksOffice]

소스중에 지금 보니 제가 실수한 부분이 좀 있네요... ㅠ. ㅠ 소스 중에 Sheet1.... 로 되어 있는 "Sheet1" 을 모두 "Activesheet" 로 바꾸면 현재 선택된 Sheet에서 작업을 하게 될것 같습니다. 흐흐.. 다양한 방법으로 테스트한 검증된 소스가 아니다 보니 구독자분의 확인으로 조금씩 고쳐나가게 되네요. 감사합니다.

[@Jaesusaeng]

@@TricksOffice 덕분에 잘 해결했습니다 정말 감사합니다 ^^

[@WMS_manager]

필요한 자료 감사히 배우고 갑니다.

[@TricksOffice]

도움이 되면 좋겠네요. ^^

[@しのぶ-h3u]

안녕하세요! 처음부터 따라하며 수식 다 넣었는데 run을 누르면 컴파일 오류입니다. Sub.Function 또는 Property가 필요합니다가 나옵니다ㅠㅠ 혹시 복사하는 숫자가 엑셀로 불러온 숫자여서 그럴까요? 아니면 옆에 사진을 넣을 셀이 병합된 셀이여서 그럴까요??

[@TricksOffice]

만드신 파일을 보내봐주시겠어요? 어딘가에 괄호가 빠지거나 하는 등의 작은 실수가 있을것 같은데... 내용을 보지 않고서는 모르겠네요. [e-mail]

[@しのぶ-h3u]

@@TricksOffice 감사합니다! 집에 도착한다면 보내드리겠습니다! 그런데 블로그의 수식을 그대로 복사해도 그러네요ㅠㅠ

[@김수완-y5r]

강의 잘 보았습니다. 제가 엑셀에 사진을 넣는 경우는 주로 병합된 셀에 사진을 넣게 되는데 강의대로 작업을 해보았더니 1개의 셀 기준으로 사진이 들어가더라고요 혹시 병합된 셀의 크기에 맞게 변환하려면 어떤 코드를 바꿔야 할까요?

[@TricksOffice]

바로 아래 chae lim 님 답글에 회신단 답글 참고해봐주시겠어요? 아마 답이 되실듯 합니다. Set Photo = ActiveSheet.Shapes.AddPicture(txt_Path & "\" & F_Name, False, True, ActiveCell.Left, ActiveCell.Top, ActiveCell.Width, ActiveCell.Height) 위의 소스를 아래와 같이 한번 바꿔 보시죠... 이 경우 이미지가 붙을 셀이 병합되어 있다면, 병합된 크기에 맞춰서 이미지 크기가 조정됩니다. If Activecell.MergeCells Then Set Photo = ActiveSheet.Shapes.AddPicture(txt_Path & "\" & F_Name, False, True, ActiveCell.Left, ActiveCell.Top, ActiveCell.MergeArea.Width, ActiveCell.MergeArea.Height) Else Set Photo = ActiveSheet.Shapes.AddPicture(txt_Path & "\" & F_Name, False, True, ActiveCell.Left, ActiveCell.Top, ActiveCell.Width, ActiveCell.Height) End If

[@백두산호랑이-e9o]

9:56 점4개는 입력키가 뭔가요?

[@TricksOffice]

아... " 2개요. 따옴표 2개... 이렇게 보니 헷깔리네요.

[@백두산호랑이-e9o]

@@TricksOffice 감사합니다. 사진 비율 유지 불러오기는 않돼나요?

[@TricksOffice]

@@백두산호랑이-e9o 지금 소스에서는 이미지를 읽어올 때 폭과 높이를 Cell 크기로 고정시켰었는데, 여기에 -1,-1을 넣으면 원래 이미지 대로 붙습니다. 방법1.폭과 높이중 하나만 원하는 폭이나 높이로 놓고 나머지 값을 -1으로 놓으면 비율대로 확대 축소가 될것 같긴 한데... 이건 실험을 안해봐서 모르겠습니다. 방법2. 폭과 높이를 -1,-1으로 불러온 다음에, Shape.LockAspectRatio 값을 True로 놓고 난 다음 높이나 폭만 조정하면 될것 같습니다. 아래 문서 참고하시죠. docs.microsoft.com/en-us/office/vba/api/excel.shape.lockaspectratio 폭과 높이 크기를 불러올 때부터 직접 계산해서 비율로 조정하는 것도 가능한데, 아래 영상 참고하시면 도움이 되시리라 생각됩니다. kzbin.info/www/bejne/r6OXl4puaL2fpdk

[@백두산호랑이-e9o]

@@TricksOffice 초보라 따라 하는 것 밖에 못 하내요 ㅎㅎ 빠른 답변 감사 합니다 많은 도움 됩니다..

[@jiwonchea6271]

안녕하세요. 비디오 보고 따라 했는데 정말 사진이 자동 삽입 되서 너무 감동 중입니다. 감사합니다. 제가 워낙 엑셀 초보라 한가지만 도움을 구하고 싶네요. 혹시 사진의 사이즈를 지정할 수 있을까요? 엑셀에 있는 박스 보다 사진이 좀 크게 삽입이 돼서요. 혹시라도 도와주심 너무 감사하겠습니다. 😃

[@TricksOffice]

금일중으로 확인해 볼께요

[@TricksOffice]

이크크... 늦었습니다. 소스중에 다음의 항목을 바꿔주면 됩니다. Set Photo = ActiveSheet.Shapes.AddPicture(txt_Path & "\" & F_Name, False, True, ActiveCell.Left, ActiveCell.Top, ActiveCell.Width, ActiveCell.Height) 여기에 맨마지막 항목 2개 ActiveCell.Width, ActiveCell.Height 가 각각 해당 셀의 폭과 높이를 의미합니다. 조금 작게 하기 위해서는 ActiveCell.Width - 5 , ActiveCell.Height - 5 처럼 수정하여 입력하면 될 것 같습니다. 빼는 수치가 어느 정도 크기가 적절할지는 감이 잘 안오네요... 몇 번 숫자를 바꿔 가면서 도전해 보시는 것이 어떨까 합니다.

[@박홍순-t6c]

좀더시운방법업나요

[@TricksOffice]

글쎄요.. 반복되는 일에 정확한 어떤 규칙이 있다면 다른 방법을 찾아 볼 수도 있겠지만.. 잘 모르겠네요..

[@스프라우트-c9s]

저 긴글좀 복사해서 좀 넣어주세요. 알아듣긴 힘들고 쓰고는 싶고 영타는 느리고 ㅜㅜ

[@TricksOffice]

아래 블로그 글에서 소스 파일 다운로드 받을 수 있습니다. 영상 소개글에도 아래 블로그 글의 링크는 있고요. blog.naver.com/550sn/221802639869