Excel 中大量圖片如何快速導出？

01-07

表格中的圖片一張張複製粘貼很麻煩，有沒有快捷的方法。

@隋柯西很好的想法，就是很想請教下你是怎樣另存的…

-------------

我的辦法如下，應該也不慢。

如果是針對以.xlsx為後綴的表格（Excel2007以上的版本），這樣做：
顯示後綴的情況下，直接重命名，把後綴.xlsx改成.rar或者.zip，然後解壓出裡面的圖片文件夾（形式如：*.rarxlmedia）解壓出來就OK。
.xls為後綴的舊版表格，可以在Excel裡面先轉為.xlsx，再用上面的辦法。

1.選中Excel中的一張圖片

2.按F5鍵-定位條件-對象，即可選中文件中的所有圖片

3.滑鼠右鍵，複製粘貼

補充下工程師們的方案吧：一種是用插件，一種是用宏命令。

(來源網路，目前電腦上只有WPS，無法驗證)

插件：AJP Excel Information

宏： Export an Image from Excel Sheet to Hard Drive-VBForums

Option Explicit


"You need to select a picture before running this code

"else it will give you error"

Sub PictureExport()

    Dim TempChart As String, Picture2Export As String

    Dim PicWidth As Long, PicHeight As Long
    Picture2Export = Selection.Name
    "Store the picture"s height and width  in a variable

    With Selection

        PicHeight = .ShapeRange.Height

        PicWidth = .ShapeRange.Width

    End With
    "Add a temporary chart in sheet1

    Charts.Add

    ActiveChart.Location Where:=xlLocationAsObject, Name:="Sheet1"

    Selection.Border.LineStyle = 0

    TempChart = Selection.Name  " "  Split(ActiveChart.Name, " ")(2)
    With ActiveSheet

        "Change the dimensions of the chart to suit your need

        With .Shapes(TempChart)

            .Width = PicWidth

            .Height = PicHeight

        End With
        "Copy the picture

        .Shapes(Picture2Export).Copy
        "Paste the picture in the chart

        With ActiveChart

            .ChartArea.Select

            .Paste

        End With

"Finally export the chart .ChartObjects(1).Chart.Export Filename:="Sample.jpg", FilterName:="jpg" "Destroy the chart. You may want to delete it... .Shapes(TempChart).Cut End With End Sub

上次看到人家說，把表格命名為.rar，然後打開有一個文件叫media，打開就是圖片了，然後弄好之後再把excel的名字改回去。

另存為成html文件，相同文件夾下會生成一個和網頁同名的文件夾，裡面保存了所有的圖片。

說一下我出現的問題
後綴我建議改成zip格式=。= ，我改成rar 圖片尺寸會變形

文件-另存為保存為html的話圖片會被壓縮

一般壓縮文件就能搞出

使用壓縮文件打開excel 裡面有media一個文件夾裡面就有圖片。

這是最便捷的方式：

點擊Excel文件（對，不用改後綴！）

右鍵選擇打開方式

使用解壓軟體打開

找到裡面的media文件夾

這個Excel所有的圖片都在裡面

無損

且保持原文件名

上面好多大神啊，其實只要把excel文件檔點菜單：文件--另存為，選擇保存為網頁文件，然後用瀏覽器打開剛才保存的網頁文件，批量下載網頁中的圖片就可。