怎么把<em>Excel</em>里的图片保存到桌面上？

试一下度这个问：
Filename = Application.GetSaveAsFilename(ThisWorkbook.Path & "\" & ActiveWorkbook.Name, "Excel 2003 工作薄答回,*.xls,文本文件答,*.txt,其他文件,*.csv:*.*")

工具：Win10电脑系统和2010版excel

1、先打开excel，以下图为例，点击图copy片然后按Ctrl+C键复制图片；

2、点击电脑左下角的开始百菜单，然后找到”Windows附件“并点击下拉箭头，在出来的度选项里面选择”画图“；

3、打开画图后，知按Ctrl+V键粘贴图片；

4、最后点击文道件里面的”保存“，将图片保存到桌面即可。

可以用宏来实现写在工作表抄事件下，但你要事先在宏里写好袭路径。

Private Sub Workbook_BeforeClose(Cancel As Boolean)
a = ActiveWorkbook.Name
ActiveWorkbook.SaveAs Filename:="E:\备份\" & "备份" & a
End Sub

上边那个代码是保存在 E:\备份\ 文件夹下，并在原文件名字前边加上备百份两个字。
但你要事先在E盘下建好名字为度“备份”的文件夹

恩，我考虑错误。不过不会，期待大师们解决，学习了。
{假如你要保存在e799bee5baa6e997aee7ad94e4b893e5b19e366本文件夹里的，photos文件夹下。
Private Sub CommandButton1_Click()
Dim name as string
Dim Potopath as string
Potopath=ThisWorkbook.Path
name = EIF.ENO.text
On Error GoTo line
Application.ActiveWorkbook.SaveAs filename:=potopath &photos& name, _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
MsgBox "上传成功"
Exit Sub
line:
MsgBox "上传失败"
Exit Sub
End If
End Sub

试下可不可以。不行的话，你查下Application.ActiveWorkbook.SaveAs filename的用法，用F1查，应该对你有帮助。 }