소프트웨어 엑셀 파일에 사진들이 셀에 들어가 있는데, 이 사진들만 따로 저장가능한가요?
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 | - | - |
12750 | 소프트웨어| ftps사용강좌 추천 부탁드립니다. [2] | brucex | 222 | 12-29 |
12749 | 소프트웨어| PHOTO EDITER POLARR 프로그램을 어떻게 삭제하나요? [2] | brucex | 312 | 12-28 |
12748 | 소프트웨어| 7Zsfx Constrctor [4] | 바람낙엽 | 402 | 12-28 |
12747 | 소프트웨어| bdf 파일? [2] | 샘골박이 | 292 | 12-28 |
12746 | 소프트웨어| AOMEI OneKey Recovery를 한글화해서 부팅하니 이렇게 됩니다. [5] | brucex | 692 | 12-28 |
12745 | 소프트웨어| 루미온(Lumion)10.2 크랙파일 구해봅니다 [6] | 사나이가는 | 4013 | 12-28 |
12744 | 소프트웨어| 크롬에서 특정 사이트가 안열립니다 [2] | 이코누 | 951 | 12-28 |
12743 | 소프트웨어| 엑셀 수식 좀 부탁 드립니다 [6] | kimberly_c | 569 | 12-27 |
12742 | 소프트웨어| ESET 에서 차단 당한 사이트... [5] | 테츠로 | 502 | 12-27 |
12741 | 소프트웨어| IDM으로 다운로드 시 종종 에러가 납니다 | feynman | 801 | 12-27 |
12740 | 소프트웨어| 한글 SuperTagEditor 2.0.1b [4] | knada | 288 | 12-27 |
» | 소프트웨어| 엑셀 파일에 사진들이 셀에 들어가 있는데, 이 사진들만 따... [3] | brucex | 809 | 12-27 |
12738 | 소프트웨어| WinToUSB 사용해서 윈도우를 설치하려고 하니 에러가.. [6] | 제리코 | 493 | 12-27 |
12737 | 소프트웨어| roboform 8버전은 패치없나요? [12] | 소녀시대 | 518 | 12-26 |
12736 | 소프트웨어| AdGuard 설치방법에 대한 질문입니다, | 좋은데이 | 229 | 12-26 |
12735 | 소프트웨어| 동영상 모니터링 프로그램 문의 | 한스 | 136 | 12-26 |
12734 | 소프트웨어| 팟플레이어 스킨제작 하다가... [2] | 현지니 | 340 | 12-26 |
12733 | 소프트웨어| 영상 플레이서 선택과 설정 방법 | 한스 | 165 | 12-26 |
12732 | 소프트웨어| 한컴오피스 재인증 관련 문의입니다 [1] | 센도리 | 1077 | 12-25 |
12731 | 소프트웨어| total commander 질문 드립니다. [7] | 술먹자 | 397 | 12-24 |
구글링입니다,,,
https://seoya78.tistory.com/35