Excel에서 모든 이미지를 한 번에 내보내는 방법은 무엇입니까?

워크북에 많은 그림이 있고 이를 특정 폴더에 한 번에 저장하려고 한다고 가정해 봅시다. 일반적으로 그림을 하나씩 수동으로 복사하여 붙여넣어 저장할 수 있지만, 이와 같이 반복해서 복사하고 붙여넣는 것은 시간이 많이 소요됩니다. 여기에서는 이 작업을 해결하기 위한 몇 가지 팁을 소개하겠습니다.

'다른 이름으로 저장' 기능을 사용하여 Excel에서 모든 이미지 한 번에 내보내기

Excel의 기본 제공 ' 다른 이름으로 저장' 기능을 사용하면 워크북을 웹 페이지로 저장하여 차트, 도형 및 기타 객체를 포함한 모든 그림을 폴더에 저장할 수 있습니다. 아래 단계를 따라 주세요.

1. 저장하려는 그림이 있는 워크북을 엽니다. 파일 > 다른 이름으로 저장 > 찾아보기를 클릭합니다.

2. ' 다른 이름으로 저장' 대화 상자에서 다음을 수행해야 합니다:

3. 나타나는 Microsoft Excel 대화 상자에서 예(Y) 버튼을 클릭합니다.

4. 내보낸 파일이 저장된 폴더를 열면 폴더와 HTML 형식 파일이 표시됩니다. 워크북의 모든 그림(차트, 도형 또는 객체 포함)이 이 폴더에 저장됩니다.

5. 필요한 그림은 폴더에 남겨두고 필요 없는 것은 삭제할 수 있습니다.

놀라운 도구를 사용하여 Excel에서 모든 이미지를 한 번에 쉽게 내보내기

위의 방법은 워크북에서 모든 객체를 추출하지만, 그중 일부는 필요 없을 수도 있습니다. Kutools for Excel이 설치되어 있다면 Export Graphics 기능을 사용하여 필요한 그림만 저장할 수 있습니다.

1. Kutools Plus > 가져오기 및 내보내기 > 그래픽 내보내기를 클릭합니다:

2. Export Graphics 대화 상자에서 다음과 같이 설정하세요:

2.1) 유형(Types) 드롭다운 목록에서 사진(Pictures)을 선택하세요;

팁: 기본적으로 현재 워크북의 모든 그래픽(차트, 사진 및 도형 포함)이 나열됩니다.

2.2) 저장 경로 섹션에서 버튼을 클릭하여 내보낸 사진을 저장할 폴더를 선택하세요;

2.3) 내보내기 형식(Export format) 드롭다운 목록에서 원하는 이미지 형식을 선택하세요;

2.4) 확인 버튼을 클릭합니다.

3. 그런 다음 성공적으로 내보낸 사진 개수를 알려주는 대화 상자가 나타납니다. 확인 버튼을 클릭하세요.

이제 대상 폴더로 이동하여 내보낸 이미지를 확인할 수 있습니다.

이 기능에 대해 자세히 알아보려면 Export Graphics를 클릭하세요.

인접한 셀 값으로 이미지 내보내기 및 이름 바꾸기

아래 스크린샷과 같이 두 개의 열이 있습니다. 하나는 과일 이름 목록이고 다른 하나는 해당 과일의 사진입니다. 이러한 이미지를 내보내고 해당 과일 이름으로 자동으로 이름을 지정하려면 이 섹션의 VBA 코드를 시도해 보세요.

1. 사진을 내보내려는 워크시트에서 Alt + F11 키를 눌러 Microsoft Visual Basic for Applications 창을 엽니다.

2. Microsoft Visual Basic for Applications 창에서 삽입 > 모듈을 클릭합니다. 그런 다음 다음 VBA를 모듈 창에 복사합니다.

VBA 코드: 열의 사진 내보내기 및 자동으로 이름 지정하기

Sub ExportImages_ExtendOffice()
'Updated by Extendoffice 20220308
    Dim xStrPath As String
    Dim xStrImgName As String
    Dim xImg As Shape
    Dim xObjChar As ChartObject
    Dim xFD As FileDialog
    Set xFD = Application.FileDialog(msoFileDialogFolderPicker)
    xFD.Title = "Please select a folder to save the pictures" & " - ExtendOffice"
    If xFD.Show = -1 Then
       xStrPath = xFD.SelectedItems.Item(1) & "\"
    Else
        Exit Sub
    End If
    
    On Error Resume Next
    For Each xImg In ActiveSheet.Shapes
        If xImg.TopLeftCell.Column = 2 Then
        xStrImgName = xImg.TopLeftCell.Offset(0, -1).Value
        If xStrImgName <> "" Then
            xImg.Select
            
            Selection.Copy
            Set xObjChar = ActiveSheet.ChartObjects.Add(0, 0, xImg.Width, xImg.Height)
            With xObjChar
                .Border.LineStyle = xlLineStyleNone
                .Activate
                ActiveChart.Paste
                .Chart.Export xStrPath & xStrImgName & ".png"
                .Delete
            End With
        End If
        End If
    Next
End Sub

참고:

3. 코드를 실행하려면 F5 키를 누릅니다. 열리는 창에서 사진을 저장할 폴더를 선택하고 확인을 클릭합니다.

그러면 지정된 열의 모든 사진이 내보내지고 인접한 셀 값으로 자동으로 이름이 지정됩니다.

관련 문서:

Excel에서 차트를 그래픽으로 내보내는 방법은 무엇입니까?