Xlmage함수로 불러온 사진(이미지)를 행별로 Gif(움짤)을 만들 수 있을까요?

VBA
작성자
연범아빠
작성일
2022-01-08 15:31
조회
80
엑셀버전 : 엑셀2019

운영체제 : 윈도우10

강의 영상보며 많이 배우고 있습니다.

영상보며 젊은 시절 "신해철씨를 보는 거 같기도 하고'...."

참고로 신해철씨 팬이기도 하구요.

강의 내용도 너무 좋은 내용들이 많아 최고의 강의라 생각됩니다.

서론이 길었네요

Xlmage함수로 불러온 이미지들을 행별로 묶어서 Gif(움짤)을 만드는 매크로를

만들려 하는데 무엇부터 해야 할지 모르겠네요?

Xlmage함수로 불러온 사진(이미지)를 행별로 Gif(움짤)을 만들 수 있을까요?
         
         
사진1 사진2 사진3    
사진4 사진5 사진6 사진7  
사진8 사진9 사진10 사진11  
사진12 사진13      
사진14 사진15 사진16 사진17 사진18
사진19 사진20 사진21 사진22 사진23
사진24        
사진25 사진26 사진27    
전체 4

  • 2022-01-08 16:53

    음.. 질문은 잘 이해하지 못했습니다.

    가로로 된 이미지를 GIF로 바꾸고 싶으신건가요?

    아니면 셀 안에 GIF 이미지를 넣고 싶으신건가요?

    GIF 이미지를 넣는건.. 저도 궁금해서 테스트해보니 잘 되네요

    =xIMAGE("경로\text.gif")

    이런 형태로.. 이미지를 GIF로 만드는건 코드를 직접 짜야 할 것 같은데 구글링해보니 아래 코드가 있군요 연구는 직접 해보셔야 할 겁니다 링크 참고해보세요~

    https://maxrottersman.medium.com/animated-chart-gifs-excel-creator-104894d15d01

    Sub DOCAA_s30_Create_GIFs()
    Dim objChrt As ChartObject
        Dim MyChart As Chart
        
        myPath = Range("Images_Folder").Value
        xcharts = Split(Range("ChartNames_To_Images").Value, ",")
        
        
            For i = 0 To UBound(xcharts)
           
            sChartName = Trim(xcharts(i))
            sChartNamnGIF = sChartName & ".gif"
            
            Set objChrt = ActiveSheet.ChartObjects(sChartName)
            Set MyChart = objChrt.Chart
            
            On Error Resume Next
            Kill myPath & "\" & sChartNameGIF
            On Error GoTo 0
            
            MyChart.Export Filename:=myPath & "\Chart_" & Trim(Str(i + 1)) & ".gif", FilterName:="GIF"
            
            Next
    End Sub

    • 2022-01-08 17:44

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

      사진1 사진2 사진3 을 묶어서 Gif움짤로 만들고 Z열 2행에 저장

      사진4  사진5 사진6 사진7을 묶어서 Gif움짤로 만들어 Z열 3열에 저장

      이런식으로 반복 작업이 가능한가 해서요.....


      • 2022-01-10 02:43
        채택된 답변

        @연범아빠 님 위에 매크로 사용하면 차트로 gif 이미지를 만들 수 있는데 chartobject 로 그림을 받아올 수 있습니다.

        테스트해보진 않았는데.. 한번 테스트해보세요


        • 2022-01-12 12:31

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

          엑셀 실력이 미천하여.

          그림의 떡이네요....^^


전체 5,225
번호 카테고리 제목 작성자 작성일 추천 조회
알림
하루 딱 "1분", 진짜 쓰는 엑셀 꿀팁 👉 "오빠두엑셀" 인스타그램 오픈! (32)
트로피 오빠두엑셀 | 2021.10.12 | 추천 23 | 조회 828
트로피 오빠두엑셀 2021.10.12 23 828
공지사항 공지사항
⭐ [더 나은 커뮤니티 문화를 위한 Q&A 글 작성 규칙] ⭐ (23)
오빠두엑셀 | 2021.10.28 | 추천 33 | 조회 2504
트로피 오빠두엑셀 2021.10.28 33 2504
26468 함수/공식
New 똑같은 수식으로 텍스트의 바이트수를 계산하는데 다르게 나옵니다.ㅠ 첨부파일
turtle**** | 2022.01.26 | 추천 0 | 조회 20
turtle**** 2022.01.26 0 20
26466 VBA
New 재고관리 filtered_db 함수 사용관련 질문입니다. (db가 empty인 경우 사용법)
탄만두 | 2022.01.26 | 추천 0 | 조회 20
탄만두 2022.01.26 0 20
26462 VBA
New VBA오빠두님의 Listfiles함수 중에 (1)
H.B | 2022.01.26 | 추천 1 | 조회 22
H.B 2022.01.26 1 22
26460 VBA
New vba 일치하는 값 찾기 질문 드립니다. 첨부파일 (1)
qkrwo**** | 2022.01.26 | 추천 0 | 조회 23
qkrwo**** 2022.01.26 0 23
26454 VBA
New Excel VBA _ Select 하지않고 바로 작업하는 방법 (2) 답변완료
백일호 | 2022.01.26 | 추천 1 | 조회 35
백일호 2022.01.26 1 35
26444 VBA
New 네이버 웹페이지 특정 정보 가져오기 질문
엑셀초보(LV.1) | 2022.01.26 | 추천 0 | 조회 18
엑셀초보(LV.1) 2022.01.26 0 18
26441 VBA
New vba 코딩으로 다른 시트 데이터 가져오기 질문입니다. 첨부파일 (2) 답변완료
qkrwo**** | 2022.01.26 | 추천 0 | 조회 36
qkrwo**** 2022.01.26 0 36
26440 피벗테이블
New 3개의 피벗테이블 필터 값을 동시에 변경하는 방법이 알고 싶어요 첨부파일
forest choi | 2022.01.26 | 추천 0 | 조회 26
forest choi 2022.01.26 0 26
26439 VBA
New VBA 네이버 부동산 크롤링 질문 (1)
엑셀초보(LV.1) | 2022.01.26 | 추천 0 | 조회 25
엑셀초보(LV.1) 2022.01.26 0 25
26421 문서서식
New 엑셀과 워드 메일머지 강의에는 예제파일이 없나요?
pcs**** | 2022.01.26 | 추천 0 | 조회 26
pcs**** 2022.01.26 0 26
26420 함수/공식
New 회원자료실 커스텀 일정표에서 조건추가하여 사용하고싶은데 질문있습니다 !
창동명 | 2022.01.26 | 추천 0 | 조회 29
창동명 2022.01.26 0 29
26410 피벗테이블
New 피벗 테이블에서 취소선을 표현하는 방법 첨부파일 (1)
퉁퉁이 | 2022.01.25 | 추천 0 | 조회 45
퉁퉁이 2022.01.25 0 45
26408 기능/도구
New 표에서 바로만든 슬라이서도 보고서연결 기능과 비슷하게 만들 수 있나요? (2)
차가운열매 | 2022.01.25 | 추천 0 | 조회 37
차가운열매 2022.01.25 0 37
26405 함수/공식
New 최고점/최저점 찾아내기 첨부파일 (9) 답변완료
km**** | 2022.01.25 | 추천 0 | 조회 56
km**** 2022.01.25 0 56
26403 VBA
New VBA를 이용하여 euc-kr로 인코딩된 site 크롤링 방법
콩순이 | 2022.01.25 | 추천 0 | 조회 27
콩순이 2022.01.25 0 27
26401 VBA
New 목표값 계산 자동 매크로 방법 첨부파일 (1)
박우성 | 2022.01.25 | 추천 0 | 조회 40
박우성 2022.01.25 0 40
26399 피벗테이블
New 데이터 새로고침 시 피벗테이블 연결 오류 첨부파일 (1)
유정 | 2022.01.25 | 추천 0 | 조회 27
유정 2022.01.25 0 27
26392 함수/공식
New MINIFS 함수 사용시 0으로 값 반환됨 (초보자에게 도움 부탁드립니다...ㅜㅜ) 첨부파일 (3) 답변완료
김원석 | 2022.01.25 | 추천 0 | 조회 38
김원석 2022.01.25 0 38
26387 VBA
New VBA 엑셀에서 다른 프로그램 실행하기 (2) 답변완료
병욱 | 2022.01.25 | 추천 0 | 조회 38
병욱 2022.01.25 0 38
26378 피벗테이블
New 피벗테이블 집계 오류 (5) 답변완료
가을남자 | 2022.01.25 | 추천 0 | 조회 46
가을남자 2022.01.25 0 46
26371 VBA
New VBA 항목별 행렬전환 문의 첨부파일 (6) 답변완료
H.B | 2022.01.25 | 추천 1 | 조회 46
H.B 2022.01.25 1 46
26368 문서서식
New 셀에 입력시 자음 모음 분리문제 (1)
흑형 | 2022.01.25 | 추천 0 | 조회 30
흑형 2022.01.25 0 30
26366 VBA
New ■ 셀에 삽입된 메모 수량 카운팅하는 방법 첨부파일 (5) 답변완료
비스타 | 2022.01.25 | 추천 1 | 조회 56
비스타 2022.01.25 1 56
26360 함수/공식
New 엑셀 데이터통합 기능 이용시 합계가 달라지는 이유 첨부파일 (5)
wlfl**** | 2022.01.25 | 추천 0 | 조회 51
wlfl**** 2022.01.25 0 51
26343 함수/공식
New 전산입고품목과 실제입고품목의 실재고조사관련 양식(함수+피벗테이블)첨언좀 부탁드립니다.도와주세요! 첨부파일 (4) 답변완료
sunjong**** | 2022.01.24 | 추천 0 | 조회 74
sunjong**** 2022.01.24 0 74
26341 VBA
New VBA 내 배열 통합(쿼리 통합 기능을 VBA에서 구현하고자 합니다.) 첨부파일 (1)
병욱 | 2022.01.24 | 추천 0 | 조회 39
병욱 2022.01.24 0 39
26339 VBA
New 많은 텍스트상자안 문자 찾기 (4)
noeu**** | 2022.01.24 | 추천 -1 | 조회 55
noeu**** 2022.01.24 -1 55
26338 함수/공식
New 지정한 일수(days)를 달력에 자동으로 표시 되게끔 설정이 가능한가요? 첨부파일 (3) 답변완료
말창 | 2022.01.24 | 추천 0 | 조회 59
말창 2022.01.24 0 59
함수/공식
New Re:지정한 일수(days)를 달력에 자동으로 표시 되게끔 설정이 가능한가요? (1)
Lucas's | 2022.01.24 | 추천 0 | 조회 36
Lucas's 2022.01.24 0 36
26336 함수/공식
New 셀안 동일 회사명을 순차 카운트를 하고 싶습니다. (3) 답변완료
sickp**** | 2022.01.24 | 추천 0 | 조회 33
sickp**** 2022.01.24 0 33
26334 함수/공식
New 이름만 치면 열 다 띄워주는 방법을 알려주세요 첨부파일 (8) 답변완료
아마테라스 | 2022.01.24 | 추천 0 | 조회 62
아마테라스 2022.01.24 0 62