1. 유틸리티
  2. 컴퓨터Tip
  3. 드라이브
  4. 사진
  5. 즐겨찾는홈피

모바일에서는 안드로이드 사용시 유튜브 광고 제거프로그램 "Youtube Vanced" 모바일에서는 안드로이드 사용시 유튜브 광고 제거프로그램 "Yout...
크롬에서 유튜브 광고가 안나오게 하는 방법 "유튜브" 요즘 많이 사용하시죠. 근데 볼려고 하면 광고를 봐야 ...
윈도우10 "이 앱은 사용자 보호를 위해 차단되었습니다" 해제방법 Windows10 에서 프로그램 설치시 "이 앱은 사용자 보호를 위해 차...
크롬에서 다운로드시 "위험한 파일 차단" 해제하는 방법 구글 공식 문서에 의거하여, 크롬은 컴퓨터에 다음과 같은 종류의...
윈도우10 바탕 화면 아이콘 설정방법 보통은 처음에 윈도우10을 설치하고 나면 휴지통과 엣지브라우즈 ...
윈도우10 사용자계정컨트롤 설정방법 Windows 7에서 Windows 10으로 OS를 바꾸고 나니 설정을 바꾸어야...
rss feed
조회 수 951 추천 수 0 댓글 0
?

단축키

Prev이전 문서

Next다음 문서

크게 작게 위로 아래로 댓글로 가기 인쇄 첨부
?

단축키

Prev이전 문서

Next다음 문서

크게 작게 위로 아래로 댓글로 가기 인쇄 첨부
엑셀 시트에 삽입된 그림을 추출하는 방법은 여러가지가 있습니다.
 
1. 각 그림 파일을 복사(Ctrl + C) 후 다른 곳에 붙여넣기(Ctrl + V) 하는 방법. (이 방법을 사용하면 해상도가 많이 떨어지게 된다.)

2. VBA(매크로)를 이용하여 시트에 삽입된 각 그림파일을 별도의 파일로 저장하는 방법. (매크로 초보자들은 당연히 사용에 어려움을 느낀다.)
Option Explicit
Sub SaveAllGraphics()
    Dim FileName As String                   '파일 이름을 넣을 변수
    Dim html_Name As String                 'html 파일이름을 넣을 변수
    Dim DirName As String                    '전체 폴더경로를 넣을 변수
    Dim gFile As String                         '각 그림파일을 넣을 변수
    
    Application.DisplayAlerts = False      '경고 기능 (일시)정지
        
    With ActiveWorkbook                      '(화면에 보이는)활성화된 파일에서
        FileName = .FullName                 '현재파일의 전체이름을 변수에 넣음
        html_Name = .Path & "\" & .Name & "graphics.htm"
                                                       '전체이름 + graphics.htm 을 변수에 넣음
        DirName = Left(html_Name, Len(html_Name) - 4) & "_files"
                                                       '폴더 이름을 변수에 넣음
        .SaveAs FileName:=html_Name, FileFormat:=xlHtml
                                                        '파일을 HTML파일 형식으로 다른 이름으로 저장
        .Close                                      '파일을 닫음
    End With
    
    Workbooks.Open FileName              '파일을 열음
    Kill html_Name                                'HTML 파일 삭제
    
    gFile = Dir(DirName & "\*.*")          '폴더에 있는 파일을 변수에 넣음
    Do While gFile <> ""                       '더이상 파일 없을때까지 무한 반복
        If Right(gFile, 3) <> "png" Then Kill DirName & "\" & gFile
                                                       '폴더내의 확장자가 png 아닌 모든 파일을 삭제
        gFile = Dir                                 '다음 파일을 변수에 넣음
    Loop
    
    Shell "explorer.exe " & DirName, vbNormalFocus  '탐색기 실행하여 생성된 파일 보여줌
End Sub

3. 엑셀 파일을 .htm 파일로 저장 하면 임시 폴더에 엑셀파일내의 모든 그림파일이 저장되므로 이를 가져오는 방법. (삽입된 그림파일의 확장자와 상관 없이 모든 그림파일을 .png 파일로 저장한다.)

4. 엑셀파일의 확장자를 .zip 으로 바꾸고 폴더내의 그림파일을 가져오는 방법.
img_001.jpg
.xlsx 확장자를 가진 엑셀파일은 실제로는 압축파일(.zip)이며, .xlsx 확장자를 .zip으로 바꾸어 압축 폴더내에 저장된 그림을 복사해 가져오는 방법입니다.
위의 방법은 엑셀파일에 저장된 그림을 그대로 가져오므로 해상도의 손실이 없습니다.

a. 파일의 이름변경(F2 키를 누르고)을 해서 확장자를 .xlsx에서 .zip 으로 수정합니다. 경고창이 나타나면 확인을 누릅니다.
b. 확장자가 .zip으로 변경된 파일의 압축을 풀면 xl 폴더 => media 폴더에 그림 파일들이 있습니다.
c. 각 파일을 열어보면 엑셀 파일에 삽입되어 있는 그림 파일임을 알 수 있습니다.(이 파일을 별도의 폴더에 복사하여 사용하시면 됩니다.).
 
(확장자를 .zip 에서 .xlsx 파일로 수정하면 당연히 일반적인 엑셀파일로 되돌아갑니다.)

TAG •
    댓글이 하나도 없네요ㅠㅠ
    Tip이 도움이 되었다면 댓글과 평가 부탁합니다. Tip에 대한 궁금한 점은 댓글로 남겨 주시면 성심껏 답변 드립니다.
?

  1. 엑셀 시트에 삽입된 그림 추출하기

    엑셀 시트에 삽입된 그림을 추출하는 방법은 여러가지가 있습니다. 1. 각 그림 파일을 복사(Ctrl + C) 후 다른 곳에 붙여넣기(Ctrl + V) 하는 방법. (이 방법을 사용하면 해상도가 많이 떨어지게 된다.)2. VBA(매크로)를 이용하여 시트에 삽입된 각 그림파일을...
    Date2017.05.19 CategoryExcel By팔공산 Reply0 Views951 file
    Read More
  2. 엑셀 VBA 개인용 매크로 통합문서 저장

    이전문서에 엑셀 VBA 매크로 코드를 만드는 방법을 작성했는데요 이번에는 자주 사용하는 매크로 코드를 어떠한 문서를 열던지 작동 되도록 하는 방법을 작성 해보도록 하겠습니다. 일단 매크로가 엑셀 메뉴에 안 보이실거에요. 파일 > 옵션 > 리본 사용자 지...
    Date2016.07.12 CategoryExcel By팔공산 Reply2 Views2302 file
    Read More
  3. 엑셀 메크로 그림(이미지)을 엑셀 파일에 직접 포함시키는 방법

    엑셀작업을 하다보면 VBA 메크로로 셀에 자동맞춤으로 이미지를 삽입되게 하면 이미지작업이 많을시 무척 편리하게 이용할 수 있습니다. [VBA메크로 만드는 방법] 열려진 엑셀문서에서 Alt+F11(단축키)를 실행하면 VBA창이 열립니다. 삽입 - 모듈을 선택하면 ...
    Date2016.07.11 CategoryExcel By팔공산 Reply21 Views12649 file
    Read More
  4. 모바일팩스 - 무료로 Fax 수신번호도 받고 송신도 가능하네요!

    SK텔링크는 2014.11.04.에 스마트폰에서 손쉽게 주고받을 수 있는 팩스를 출시했습니다.모바일 애플리케이션(앱) : [SK텔링크 모바일팩스]요금부과방식 : 팩스 한장당 스마트폰의 멀티미디어메시지(MMS) 가 2건씩 차감,별도의 추가 요금이 없음.전송방식 : 별...
    Date2015.01.07 Category스마트폰 By팔공산 Reply0 Views1401 file
    Read More
  5. Dropbox 클라우드 설치 및 사용방법

    이번에 큰공주가 갤러시노트2로 스마트폰을 바꾸고 나니 그안에 어플로 DropBox란 Cloud어플이 있기에 뭔가하고 알아보니썩 궨찮은 놈인 것 같아서 문하우스에 팁으로 남깁니다.그럼 Cloud 파일 동기화 솔루션인 DropBox 솔루션에 대해 알아보도록 하겠습니다....
    Date2012.12.24 Category스마트폰 By팔공산 Reply0 Views2175 file
    Read More
  6. 윈도우 업데이트 후 재시작 메시지 없애기

    윈도우 업데이트를 하고 나면 재부팅하라는 메세지가 뜨기도 합니다.이럴 때 굳이 재부팅을 해야 하는가?귀찮다면 아래와 같이 해보세요. 1. [시작] -> [실행] -> "CMD" 입력 후 엔터2. 서비스를 멈추고 싶을때 : net stop wuauserv3. 서비스를 시작하고 싶을 ...
    Date2012.01.21 Category기타 By팔공산 Reply0 Views2096 file
    Read More
  7. No Image

    파란의 '핸드폰 전화번호 가져오기' 서비스소개

    대형 포탈들의 모바일 지원이 갈수록 뜨겁다. 포탈의 입장에서 가장 선행되는 전략은 자사의 킬러 서비스를 모바일로 옮기는 일이다. 검색, 커뮤니티, SNS, 메일 등 다양한 서비스들이 모바일로 빠르게 이식되고 있다. 이런 기본적인 전략 못지 않게 중요한 것...
    Date2011.02.24 Category기타 By팔공산 Reply1 Views6504
    Read More
  8. 익스플로러8 웹사이트 복원오류 해결방법

    오류 증상은 특정웹페이지에 접속을 하면 " *** 페이지로 되돌아갈수 없었습니다." 라는 메세지와 함께 그페이지를 로딩하다가 닫혀버립니다. 이 증상은 익스플로러8을 설치후에 한글2007을 설치해서 그렇습니다. 한글2007 설치 과정에서 JScript.dll 파일을 ...
    Date2010.09.07 Category인터넷 By팔공산 Reply0 Views6302 file
    Read More
  9. KT에서 20GB ucloud 제공합니다.

    KT에서 아이폰,쿡 인터넷 사용자(라이트,스페셜, 패밀리, 우리아기생애최초인터넷), 쇼 데이터 요금제(i요금제, 아이폰요금제, 쇼 데이터 플러스(쇼스마트데이터))이용자에게 매월 20GB ucloud 서비스를 제공한다고 합니다. 20GB서비스가 매월 5,000원인데 이...
    Date2010.08.06 Category스마트폰 By팔공산 Reply1 Views7777 file
    Read More
  10. 도메인을 짧게 만들어주는 co.cc

    홈페이지나 블로그를 운영시 도메인을 유료로 구매하지 않았으면 자신의 주소가 긴 경우가 많습니다. 이런 경우 무료로 단축도메인을 주는 사이트를 많이 이용하죠. 그 중에서 특별한 조건 없이 사용가능한 사이트입니다. 주소도 쉽고요 http://www.co.cc 문하...
    Date2010.02.05 Category인터넷 By팔공산 Reply0 Views4580 file
    Read More
목록
Board Pagination Prev 1 2 3 4 5 ... 11 Next
/ 11
  • 문하우스는 IE11이상, Google Chrome, 1280*1024 이상의 모니터 해상도에서 최적화 되어 있습니다.무단 E-mail 추출이나, 무단,성인광고를 허용치 않습니다.
서버에 요청 중입니다. 잠시만 기다려 주십시오...