Note: The other languages of the website are Google-translated. Back to English

Làm cách nào để xuất tất cả hình ảnh cùng một lúc từ Excel?

Giả sử bạn có nhiều ảnh trong sổ làm việc của mình và muốn lưu chúng vào một thư mục cụ thể cùng một lúc, thông thường, bạn có thể sao chép và dán từng ảnh theo cách thủ công để lưu, nhưng việc sao chép và dán chúng rất mất thời gian. lặp đi lặp lại như thế này. Sau đây, tôi sẽ giới thiệu cho bạn một số mẹo để giải quyết công việc này.


Xuất tất cả các hình ảnh cùng một lúc từ Excel với chức năng Save As

Với Excel tích hợp sẵn Save As , bạn có thể lưu một sổ làm việc dưới dạng Trang web để lưu tất cả ảnh bao gồm biểu đồ, hình dạng và các đối tượng khác trong một thư mục. Hãy làm như sau.

1. Mở sổ làm việc có ảnh bạn muốn lưu. Nhấp chuột Tập tin > Save As > Duyệt qua.

2. bên trong Save As hộp thoại, bạn cần:

2.1) Chọn một thư mục để lưu các hình ảnh đã xuất;
2.2) Chọn Trang web từ danh sách thả xuống Lưu dưới dạng;
2.3) Nhấp vào Lưu .

3. Trong cửa sổ bật lên Microsoft Excel hộp thoại, nhấp vào .

4. Mở thư mục lưu các tệp đã xuất và bạn có thể thấy một thư mục và tệp định dạng HTML được liệt kê bên trong. Tất cả ảnh trong sổ làm việc bao gồm biểu đồ, hình dạng hoặc đối tượng được lưu trong thư mục này.

5. Bạn có thể giữ ảnh bạn cần trong thư mục và xóa những ảnh khác mà bạn không cần


Dễ dàng xuất tất cả các hình ảnh cùng một lúc từ Excel Với một công cụ tuyệt vời

Phương pháp trên sẽ trích xuất tất cả các đối tượng từ sổ làm việc, có thể, một số đối tượng trong số đó bạn không cần. Nếu bạn có Kutools cho Excel được cài đặt trong Excel, Xuất đồ họa tính năng này có thể giúp bạn chỉ lưu những hình ảnh bạn cần.

Sau khi cài đặt Kutools cho Excel, vui lòng làm như sau:

1. nhấp chuột Kutools Plus > Nhập khẩu xuất khẩu > Xuất đồ họa:

2. bên trong Xuất đồ họa hộp thoại, vui lòng cấu hình như sau:

2.1) Chọn Những bức ảnh từ Các loại danh sách thả xuống;
Lời khuyên: Theo mặc định, tất cả đồ họa bao gồm biểu đồ, hình ảnh và hình dạng trong sổ làm việc hiện tại đều được liệt kê.
2.2) Trong Lưu thư mục phần, nhấp vào nút để chọn một thư mục để lưu ảnh đã xuất của bạn;
2.3) Trong Định dạng xuất danh sách thả xuống, chọn loại hình ảnh bạn muốn xuất dưới dạng;
2.4) Nhấp OK.

3. Sau đó, một hộp thoại bật lên cho bạn biết có bao nhiêu ảnh đã được xuất thành công, hãy nhấp vào OK .

Bây giờ bạn có thể đi đến thư mục đích và kiểm tra các hình ảnh đã xuất.

Vui lòng nhấp vào Xuất đồ họa để biết thêm về tính năng này.

Trước khi áp dụng Kutools cho Excel, Xin vui lòng tải xuống và cài đặt nó trước tiên.


Xuất hình ảnh và đổi tên chúng bằng các giá trị ô liền kề

Như thể hiện trong ảnh chụp màn hình bên dưới, có hai cột, một cột chứa danh sách tên trái cây và cột kia chứa hình ảnh tương ứng của các loại trái cây. Để xuất những hình ảnh này và tự động đặt tên chúng với tên trái cây tương ứng, bạn có thể thử mã VBA trong phần này.

1. Trong trang tính mà bạn muốn xuất ảnh, hãy bấm Khác + F11 phím để mở Microsoft Visual Basic cho các ứng dụng cửa sổ.

2. bên trong Microsoft Visual Basic cho các ứng dụng cửa sổ, nhấp Chèn > Module. Và sau đó sao chép VBA sau vào cửa sổ Mô-đun.

Mã VBA: Xuất ảnh trong một cột và đặt tên cho chúng tự động

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

Ghi chú:

1) Số 2 trong dòng “Nếu xImg.TopLeftCell.Column = 2 Thì”Đại diện cho số cột mà bạn muốn xuất ảnh;
2) Số -1 trong dòng “xStrImgName = xImg.TopLeftCell.Offset (0, -1) .Value”Chỉ ra rằng bạn sẽ đặt tên cho các hình ảnh với giá trị của các ô bên trái liền kề.

3. Nhấn nút F5 phím để chạy mã. Trong cửa sổ đang mở, hãy chọn một thư mục để lưu ảnh và sau đó nhấp vào OK.

Sau đó, tất cả các ảnh trong một cột được chỉ định sẽ được xuất và tự động được đặt tên với các giá trị ô liền kề như bạn đã chỉ định.


Bài viết liên quan:

Làm cách nào để xuất biểu đồ sang đồ họa trong Excel?


Các công cụ năng suất văn phòng tốt nhất

Kutools cho Excel giải quyết hầu hết các vấn đề của bạn và tăng 80% năng suất của bạn

  • Tái sử dụng: Chèn nhanh công thức phức tạp, biểu đồ và bất cứ thứ gì bạn đã sử dụng trước đây; Mã hóa ô với mật khẩu; Tạo danh sách gửi thư và gửi email ...
  • Thanh siêu công thức (dễ dàng chỉnh sửa nhiều dòng văn bản và công thức); Bố cục đọc (dễ dàng đọc và chỉnh sửa số lượng ô lớn); Dán vào Dải ô đã Lọchữu ích. Cảm ơn !
  • Hợp nhất các ô / hàng / cột mà không làm mất dữ liệu; Nội dung phân chia ô; Kết hợp các hàng / cột trùng lặp... Ngăn chặn các ô trùng lặp; So sánh các dãyhữu ích. Cảm ơn !
  • Chọn trùng lặp hoặc duy nhất Hàng; Chọn hàng trống (tất cả các ô đều trống); Tìm siêu và Tìm mờ trong Nhiều Sổ làm việc; Chọn ngẫu nhiên ...
  • Bản sao chính xác Nhiều ô mà không thay đổi tham chiếu công thức; Tự động tạo tài liệu tham khảo sang Nhiều Trang tính; Chèn Bullets, Hộp kiểm và hơn thế nữa ...
  • Trích xuất văn bản, Thêm Văn bản, Xóa theo Vị trí, Xóa không gian; Tạo và In Tổng số phân trang; Chuyển đổi giữa nội dung ô và nhận xéthữu ích. Cảm ơn !
  • Siêu lọc (lưu và áp dụng các lược đồ lọc cho các trang tính khác); Sắp xếp nâng cao theo tháng / tuần / ngày, tần suất và hơn thế nữa; Bộ lọc đặc biệt bằng cách in đậm, in nghiêng ...
  • Kết hợp Workbook và WorkSheets; Hợp nhất các bảng dựa trên các cột chính; Chia dữ liệu thành nhiều trang tính; Chuyển đổi hàng loạt xls, xlsx và PDFhữu ích. Cảm ơn !
  • Hơn 300 tính năng mạnh mẽ. Hỗ trợ Office / Excel 2007-2021 và 365. Hỗ trợ tất cả các ngôn ngữ. Dễ dàng triển khai trong doanh nghiệp hoặc tổ chức của bạn. Đầy đủ tính năng Dùng thử miễn phí 30 ngày. Bảo đảm hoàn lại tiền trong 60 ngày.
tab kte 201905

Tab Office mang lại giao diện Tab cho Office và giúp công việc của bạn trở nên dễ dàng hơn nhiều

  • Cho phép chỉnh sửa và đọc theo thẻ trong Word, Excel, PowerPoint, Publisher, Access, Visio và Project.
  • Mở và tạo nhiều tài liệu trong các tab mới của cùng một cửa sổ, thay vì trong các cửa sổ mới.
  • Tăng 50% năng suất của bạn và giảm hàng trăm cú nhấp chuột cho bạn mỗi ngày!
officetab dưới cùng
Nhận xét (17)
Chưa có xếp hạng. Hãy là người đầu tiên xếp hạng!
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
thực sự hữu ích ..: D cảm ơn vì những giải pháp như vậy.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Tính năng Save As HTM rất tuyệt vời. Một câu hỏi, nó đã sao chép tất cả các tệp hình ảnh của tôi. Bất kỳ ý tưởng tại sao điều đó sẽ xảy ra?
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Cảm ơn thực sự hữu ích.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
cảm ơn rất nhiều nó đã giúp tôi rất nhiều
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Điều này thật tuyệt, nếu tôi muốn lấy màu nền của một ô (thay vì một hình ảnh) và lưu nó dưới dạng hình ảnh được đặt tên với ô liền kề, làm thế nào đó sẽ là một thay đổi dễ dàng đối với mã?
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Xin chào Tom, Ý bạn là lưu màu nền của ô dưới dạng hình ảnh và đặt tên nó bằng giá trị ô liền kề? Xin lỗi không thể giúp bạn việc đó.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Bonjour le code VBA m'enregistre des images blanches je ne comprends pas pourquoi. quelqu'un một giải pháp không?
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Xin chào, Sophie,
Mã trong bài viết này có thể hoạt động tốt trong Excel của tôi, bạn có thể tải tệp Excel của mình lên đây nếu bạn không phiền? Vì vậy, chúng tôi có thể giúp kiểm tra vấn đề cho bạn.
Hoặc bạn có thể mô tả vấn đề của mình rõ ràng và chi tiết hơn.
Cảm ơn bạn!
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
xin chào skyyang, ich habe seit neulich das gleiche problem, viele leere *.png dateien.
Văn bản của bạn để liên kết
bei jedem exportver such werden andere bilder nicht richtig erfasst.
mfg và cảm ơn
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Xin chào, milan bojic
Bạn sử dụng phiên bản Excel nào?
Tôi đã thử mã trong sổ làm việc của bạn, nó hoạt động tốt và tất cả hình ảnh trong sổ làm việc của bạn được xuất trong thư mục và được đổi tên dựa trên giá trị ô, xem ảnh chụp màn hình:
https://www.extendoffice.com/images/stories/comments/comment-skyyang/doc-export-images-1.png
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Xin chào skyyang, đó là văn phòng 365. mã của bạn đã hoạt động tốt cho đến 2 tuần trước, không hoạt động nữa, hãy xem ảnh chụp màn hình. trong khi đó tôi đã tìm thấy thứ gì đó tương tự hoạt động, (được kết hợp với của bạn), có thể bạn có thể sử dụng thứ đó cho mã của mình.

ảnh chụp màn hình:
[img]https://drive.google.com/file/d/1vfRlhpyzqg7QNFeYl53mTvNON3gIrFwv/view?usp=sharing[/img]


Sub BilderExportieren()
    Dim shaBild As Shape
    Dim strZielpfad As String
    strZielpfad = "c:\Tuerliste\img3\" '<== Zielpfad entsprechend anpassen!!
    For Each shaBild In ActiveSheet.Shapes
        BildExportShape shaBild, strZielpfad
    Next shaBild
End Sub

Sub BildExportShape(shaBild As Shape, strZiel As String)
    Dim xStrImgName As String
    Dim chDiagramm As ChartObject
    xStrImgName = shaBild.TopLeftCell.Offset(0, -1).Value
    Application.ScreenUpdating = False
    shaBild.CopyPicture Appearance:=xlScreen, Format:=xlPicture
    Set chDiagramm = ActiveSheet.ChartObjects.Add(0, 0, shaBild.Width, shaBild.Height)
    With chDiagramm.Chart
        ' erforderlich bei Excel2010, da Diagrammfläche automatisch mit Rahmen erstellt wird
        .Parent.ShapeRange.Line.Visible = msoFalse
        ' bei Excel2016 muss die Diagrammfläche selektiert vor .Paste werden - andernfalls ist das Bild leer
        If Val(Application.Version) = 16 Then .ChartArea.Select
        .Paste
        .Export Filename:=strZiel & xStrImgName & ".png", FilterName:="png"
    End With
    chDiagramm.Delete
    Set chDiagramm = Nothing
    Set shaBild = Nothing
    Application.ScreenUpdating = True
End Sub


Dù sao cũng cảm ơn bạn
Milan Bojić
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Xin chào, milan bojic,
Cảm ơn mã của bạn, có thể nó có thể giúp người khác trong tương lai. 🙂
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Τέλειο εργαλείο! Όμως το μέγεθος-ανάλυση της εικόνας μικραίνει. Υπάρχει τρόπος να διατηρηθεί η αρχική ανάλυση?
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Xin chào, cảm ơn bạn cho bài viết này. Khi tôi thực thi mã ở trên từ Xuất hình ảnh và đổi tên chúng bằng các giá trị ô liền kề, tôi nhận được thông báo lỗi sau: Lỗi thời gian chạy '91': Biến đối tượng hoặc Chưa đặt biến khối. Khi tôi nhấp vào gỡ lỗi, nó sẽ đánh dấu dòng 9 của mã. Bạn có biết tại sao điều này đang xảy ra? FYI Tôi đang sử dụng Excel cho Mac OSX. Cảm ơn bạn
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Tôi đang sử dụng mã được cung cấp trong phần "Xuất hình ảnh và đổi tên chúng bằng các giá trị ô liền kề" của bài viết. Khi tôi chạy mã này, tôi gặp lỗi sau: "Lỗi thời gian chạy '91': Biến đối tượng hoặc Không đặt biến khối."

Khi tôi nhấp vào "gỡ lỗi", nó sẽ chỉ cho tôi dòng 9 của mã:
xFD.Title = "Vui lòng chọn thư mục để lưu ảnh" & " - ExtendOffice"

Bạn có một giải pháp cho điều này? Bài viết của bạn là giải pháp duy nhất tôi có thể tìm thấy.

Tôi đang sử dụng Excel cho Mac.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Xin chào, Dylan,

Rất tiếc, mã của chúng tôi chỉ áp dụng cho Microsoft Excel, có thể bạn có thể thử mã trong Microsoft Excel.
Cảm ơn bạn!
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Tôi đang sử dụng Microsoft Excel trên Mac OSX.
Không có bình luận nào được đăng ở đây
Để lại ý kiến ​​của bạn
Đăng với tư cách khách
×
Đánh giá bài viết này:
0   Nhân vật
Các vị trí được đề xuất

Kết nối với chúng tôi

Bản quyền © 2009 - www.extendoffice.com. | Đã đăng ký Bản quyền. cung cấp bởi ExtendOffice. | BẢN ĐỒ CHI NHÁNH
Microsoft và logo Office là các nhãn hiệu hoặc nhãn hiệu đã đăng ký của Microsoft Corporation tại Hoa Kỳ và / hoặc các quốc gia khác.
Được bảo vệ bởi Sectigo SSL