[엑셀이뭐니]매크로-사진 자동으로 넣기 1강/엑신의 엑셀 매크로 강의/이미지 삽입/VBA 기초
Vložit
- čas přidán 10. 09. 2024
- ※ 설명란의 '더보기'를 누르면 예제파일 링크가 있습니다. 링크를 클릭하고 우측상단의 화살표 아래방향(다운로드) 버튼을 눌러 다운 받으세요.
매크로 - 사진 자동으로 넣기 1강
구독을 누르고 아래 예제파일을 다운 받으세요. ^^
---------------------------------
* 강의예제 파일 다운로드 링크(insert 링크 방식의 사진삽입)
drive.google.c...
* 구독자 질문으로 addpicture 방식, 엑셀에 직접 사진을 넣은 것도 같이 링크를 올립니다.
메일을 보내거나 다른 컴퓨터에서도 사진을 볼수 있습니다.
drive.google.c...
* 구독자 질문으로 확장자가 jpg, png 등 2개 이상인 경우 쓸 수 있는 버전 링크입니다.
drive.google.c...
* 구독자 질문으로 폴더 목록을 엑셀로 가져와서 사진 넣는 버전 링크입니다.
drive.google.c...
* 구독자 질문으로 오디오파일을 삽입하는 버전 링크입니다.
drive.google.c...
-----------------------------------
* addpicture 사진삽입 강의영상 링크 : • [엑셀이뭐니]매크로- URL주소로 사진넣...
* 구독자 질문으로 사진이 폴더에 없을 때 에러가 안 나도록 수정했습니다.
관련 강의 링크 : • [엑셀이뭐니]매크로-A4에 사진넣기 4강...
* 확장자 jpg, png 등 여러개일 경우 강의 링크
• [엑셀이뭐니]매크로- 폴더 사진 바로 인...
-----------------------------------
순서
00:16 매크로의 시작 / 결과 미리보기
03:47 시작 전 설정
05:08 프로그램창 열기 (Alt+F11)
06:07 모듈 삽입
07:10 프로그래밍 시작
07:20 sub - 제목 정하기
09:24 프로그램 전체흐름 구상하기
11:23 반복구문 - For ~ Next
13:33 변수 정의하기 - dim ~ as
구독자 질문으로 addpicture 방식으로 엑셀 문서안에 직접 사진을 넣은 것도 같이 올렸습니다.
설명란에 있는 링크에서 다운 받으세요.
강의에 나온 insert 방식의 사진삽입은 링크를 통해 자신의 컴퓨터에 있는 사진이 보여지는 방식입니다.
엑셀 2007 버전까지는 insert 방식이 엑셀에 사진을 직접 넣는 방식이었는데,
엑셀 2010 버전부터는 사진이 점점 고화질로 되면서 용량이 너무 커져서인지 insert가 링크 방식으로
변경되었다고 합니다. 그래서 다른 컴퓨터에서는 엑박처럼 뜨게 됩니다.
엑셀 2010 부터는 addpicture 명령어를 통해서 엑셀 문서 안에 직접 사진을 넣을 수 있는데요,
다른 곳에 메일을 보내거나 다른 컴퓨터에서도 사진을 봐야 한다면,
addpicture 방식으로 사진을 삽입해야 합니다.
대신 엑셀의 용량이 사진의 용량만큼 커진다고 생각하시면 됩니다.
* addpicture 방식의 매크로 강의링크
czcams.com/video/bjvNpTa3680/video.html
저는 동영상되로 따라 했는데도 사진이 나타나지 않습니다. 조언부탁드립니다
매크로가 안될때는요
1. 스펠링 틀렸을때 ᆢ 알파벳 하나만 틀려도 안되요. 특히 폴더 경로 같은거
2. 사진을 불러올 폴더에 사진이름의 파일이 없을때
댓글에 짜신 매크로를 쭉 붙여넣어 줘 보세요. ^^
봐야 알것 같네요
혹시요 제품 넘버 입력하면 자동으로 그에 관련된 사진이 옆칸으로 사진삽입이 되는 기능이 있을까요?
목소리도 좋고 천천히 자세히 알려주셔서 좋네요.
감사합니다.
힘이나는 댓글 밤사합니다 ^^
잘 사용하고 있어서 항상 감사합니다. ^^ 혹시나 궁금한 점이 있어서 문의드려요. 제가 보통 10만개 내외의 사진을 한번에 다운 받을 때가 있습니다. (1시간 정도 걸림) 혹시나 해당 인터넷 페이지에 사진이 있는지 없는지만 O,X 등으로 판별만으로 가능한가요? 이게 사진을 다운받아야 하는 것 때문에 오래 걸리는게 아닌가 싶어서 혹시 식별만 가능하면 시간을 조금 줄일 수 있지 않을까 싶어서 문의드립니다. 혹시나 별 차이가 없다고 생각이 드실지도 궁금합니다. 감사합니다. ^^
가르쳐주신 프로그램으로 엄청난 숙제를 잘 해결했습니다. 고맙습니다.
그런데 그 매크로를 적용한 파일을 타인에게 이메일로 보내니 사진이 깨져서 보이질 않습니다. 원본 사진 파일을 같이 보내야 하는건지요? 아님 별도 프로그램을 만들어야 하나요?
안녕하세요. 맥북에서 위 매크로를 실행하려고 하니 잘 안되서 문의드립니다. 실행을 하면 엑셀 셀만 조정이 되고 사진 삽입이 안됩니다
경로가 잘 못된 건지 잘 모르겠어요. 제가 사진이 있는 경로와 매크로 실행문을 캡쳐해서 올리겠습니다. 뭐가 문제인지 확인이 가능할까요? 한 번 해보려 하는데 잘 안되네요 ㅠㅠ
그런데 첨부화일을 어떻게 올려야 하는지요?
구독 좋아요 했습니다! ㅋ
안녕하세요. 문의드립니다.
영상으로 알려주신 내용은 제대로 작동이 되더라구요!
그런데, 셀병합 할 경우, 엑셀이 그냥 꺼져버리는 증상이 있습니다.
혹시 셀병합후에 알려주신 방법으로 되게 하려면 어떻게 해야하나요?!
셀병합 한 부분에 사진을 넣는 방법을 뜻합니다.. ㅠ_ㅠ
확인 부탁드립니다.
조금만 수정하면 가능합니다 ^^
한가지 확인할건, 사진이름이 적혀있는 셀도 병합이 되어 있는건가요?
넵 음....오른쪽에 사진이 나오게 하지않고 숫자를 1에서 0으로 바꾼후 그자리에 사진이나오게 바꾸었었답니다... 그렇게해서 셀병합해서 사진을 왼쪽 오른쪽 두개넣고 그밑에 각각 사진정보를 수기로 기재하려고 합니다 그것역시 사진칸 크기와 같게 병합하려하구요...... ㅠ 아 말로 설명하니... 음음.. 설명이힘드네욤... 😭
기존 For ~ Next 를 다음내용으로 다 바꿔 주세요 ^^
사진을 넣으려는 모든 영역을 한꺼번에 다 선택하고
매크로를 실행해 보세요. 사진이름이 있는 곳에만
사진이 들어갈 겁니다. 혹시 안되면 다시 질문 주세요.
포인트 명령어는 MergeArea 입니다.
공란이거나 사진이름이 없으면 패스하게끔 조건문 if 를 넣었습니다.
** 수정내용
For Each R In Selection
If R = "" Then
GoTo pas
End If
pname = "C:\사진폴더\" & R & ".jpg"
If Dir(pname) = "" Then
GoTo pas
End If
With wos.Pictures.Insert(pname).ShapeRange
'사진비율 고정하지 않기
.LockAspectRatio = msoFalse
'삽입 셀 위치
.Top = R.MergeArea.Top
.Left = R.MergeArea.Left
'사진크기
.Width = R.MergeArea.Width
.Height = R.MergeArea.Height
End With
pas:
Next
친절한 답변 감사드립니다.
혹시...qptakm@naver.com으로 메모장에 코드좀 확인 부탁드릴수있을까요....??^^;;;.... 유튜브댓글로 설명보는데..어떻게 띄여쓰기하고 해야하는지 모르겠어서...부탁드립니다 😭
메일 보내 드렸습니다 ^^
질문 내용이 좋아서 나중에 강의로 한번 만들어 보겠습니다.
sub 하나만 써도 식별자 오류가 뜹니다 어떻게 해야 할까요 ㅠㅠ
A4용지에 4개의 사진을 넣어야합니다.
8.1 8.7 싸이즈이구요!
싸이즈에 맞춰서 바로 확넣을수있는방법
매크로설정좀 알려주세요!
가로 8.1cm 세로 8.7cm의 사진 4개를 A4용지에 넣는다는 거죠? ^^
기존 사진넣기를 조금만 수정하면 되겠네요.
간단한 강의로 올려볼께요
@@엑셀이뭐니 우와 감사합니다.
셀 이름에 파일이 없을 경우엔 엑셀 꺼지네요;
엑셀 화일을 2개 만들어 놓고 해야 하나요? 사진, 사진넣기
영상 보시면 설명이 나와 있습니다.
다운받은 엑셀 파일을 열어 놓은 상태에서, 사진 넣으려는 엑셀을 열고 사진이름 적고 드래그 한 후 매크로 실행하세요.
왜 안보이나요 ㅠ
일시적인 현상이 아닐까요? 지금 영상은 잘 나오고 있습니다.
쓸데없는말이 너무많다
링크가 어디 있는지요?
설명란에 링크가 있습니다.
@@엑셀이뭐니 어딧는지