如何从excel表中提取图像

我有一个Excel文件。我试图从Excel中提取图像使用HTML，但图像提取两次。我想提取图像和保存图像与相应的名称。
这是我的Excel文件screenshort。

任何人都可以请给我一个idea.How提取图像从Excel文件使用（VBA或任何方法）

Answer 1

以下代码将执行此操作（在Excel 2010上进行testing）。

Sub extractImgs() Dim shp As Shape Dim tempChart As String, wsName As String wsName = ActiveSheet.Name For Each shp In ActiveSheet.Shapes If shp.Name Like "Picture*" Then shp.Select Charts.Add ActiveChart.Location xlLocationAsObject, wsName ActiveChart.ChartArea.Height = shp.Height ActiveChart.ChartArea.Width = shp.Width tempChart = Mid(ActiveChart.Name, Len(wsName) + 2, 100) shp.Copy ActiveChart.Paste ActiveChart.Export Filename:="C:\images\" & shp.TopLeftCell.Offset(0, 1).Value & ".jpg", FilterName:="jpg" ActiveSheet.Shapes(tempChart).Delete End If Next End Sub 

如果您需要初始VBA介绍：从工作表中的图像，右键单击工作表选项卡，然后“查看代码”，然后粘贴代码。
确保在运行代码之前在C：\下创build一个名为“images”的文件夹（当光标位于代码内时，通过点击F5来运行它）。