소프트웨어 엑셀 파일에 사진들이 셀에 들어가 있는데, 이 사진들만 따로 저장가능한가요?
2019.12.27 12:26
엑셀 파일에 사진들이 셀에 들어가 있는데, 이 사진들만 따로 저장가능한가요?
저는 이 사진들만 필요해서 그렇습니다.
사진마다 각각 단일 파일들로.
댓글 [3]
-
sTarTrak 2019.12.27 14:40
-
brucex 2019.12.28 01:26
고맙습니다.
-
오후9시7분 2019.12.28 21:34
Sub demo()
Dim image As Object, picRange As Object
Dim myChart As Chart
Dim saveFolder As String, savePath As String
Dim newSht As Worksheet
Dim cnt As Long, picH As Long, picW As Long
Application.ScreenUpdating = False
Application.DisplayAlerts = False
If ThisWorkbook.Path = "" Then
saveFolder = GetDesktopPath
Else
saveFolder = ThisWorkbook.Path
End If
cnt = ActiveSheet.Shapes.Count
For Each image In ActiveSheet.Shapes
image.CopyPicture xlScreen, xlPicture
Set newSht = ActiveWorkbook.Sheets.Add
newSht.Paste
Set picRange = newSht.Shapes.Item(1)
With picRange
picH = .Height
picW = .Width
.Delete
End With
With newSht.Shapes.AddChart
.Height = picH
.Width = picW
End With
Set myChart = newSht.Shapes.Item(1).Chart
myChart.ChartArea.Select
myChart.Paste
savePath = saveFolder & Application.PathSeparator & image.Name & ".png"
myChart.Export savePath, "PNG"
newSht.Delete
Next
Application.DisplayAlerts = True
Application.ScreenUpdating = True
MsgBox "완료. 이미지 갯수: " & cnt
End Sub
Function GetDesktopPath()
Dim oWSHShell As Object
Set oWSHShell = CreateObject("WScript.Shell")
GetDesktopPath = oWSHShell.specialfolders("Desktop")
End Function
번호 | 제목 | 글쓴이 | 조회 | 등록일 |
---|---|---|---|---|
[공지] | 질문과 답변 게시판 이용간 유의사항 | gooddew | - | - |
99374 | 소프트웨어| 드라이버를 일괄 설치하는 배치파일을 만들어 주시면 감사... [3] | 좋은데이 | 418 | 03-12 |
99373 | 하드웨어| 애니메이션 제작을 위한 와콤 테블릿 구매 관련 [2] | gim2da | 150 | 03-12 |
99372 | 윈 도 우| 화면보호기 질문드려요!! [1] | 장대동사령 | 184 | 03-12 |
99371 | 소프트웨어| 비주얼스튜디오 2015 버전 한글 버전 iso [3] | jgbyuk | 449 | 03-12 |
99370 | 윈 도 우| 윈도우10 바이러스 [5] | 소주찾는사 | 825 | 03-12 |
99369 | 소프트웨어| Emeditor Macro 치환 질문입니다. [5] | 파풍초 | 109 | 03-12 |
99368 | 하드웨어| 이런증사은 어디가 문제 있는걸까요?부팅지연... [8] | 이누노메 | 422 | 03-12 |
99367 | 윈 도 우| pc방에서 파는 윈도우11 사도 되나요? [8] | brucex | 668 | 03-12 |
99366 | 윈 도 우| 윈도우11 시스템복원 켜놓으시나요? [3] | MSTSC | 398 | 03-12 |
99365 | 윈 도 우| 윈도우 XP 샘플 음악에 대하여 [3] | Niconii | 198 | 03-12 |
99364 | 소프트웨어| 한글을 에디터처럼 사용하는 방법을 알려주세요 [2] | 라랑 | 256 | 03-12 |
99363 | 윈 도 우| PE에서 StartMenu 에 APP 을 등록하는 방법 질문 드립니다. [7] | 연약한자 | 204 | 03-12 |
99362 | 소프트웨어| 해당 파일 어떻게 찾아서 넣어 줘야 하나요? [1] | 지룡자 | 193 | 03-12 |
99361 | 하드웨어| 갤럭시 SM-F721N 수신차단방법 [2] | 씨케이 | 337 | 03-11 |
99360 | 윈 도 우| PE 한글화 과정을 알고싶어요. [12] | sgain | 310 | 03-11 |
99359 | 윈 도 우| 윈도우11 sysprep 관련 질문 드립니다 [1] | 컬렉 | 229 | 03-11 |
99358 | 소프트웨어| MS 오피스에 대하여 + alpha [4] | Niconii | 380 | 03-11 |
99357 | 기 타| daum 새로워진 창 팝업 차단 방법 문의 [3] | mso | 237 | 03-11 |
99356 | 윈 도 우| CPU-Z가 실행이 안되네요 [1] | 『ⓖⓤⓝ』 | 240 | 03-11 |
99355 | 소프트웨어| 아도브 두개의 무료 프로그램중 한개만 경고 메세지가 왔습... [1] | joe | 340 | 03-11 |
구글링입니다,,,
https://seoya78.tistory.com/35