本文是教大家如何导出Excel里的图片和一些小操作,冻结屏幕刷新、状态栏动态显示程序进度以及如何创建文件夹等。废话不说,上代码。 Sub 导出() Application.ScreenUpdating = False Dim strPath$, i, ad$, sh, cht On Error Resume Next MkDir ThisWorkbook.Path '\pic\' strPath = ThisWorkbook.Path '\' For Each pic In ActiveShe... [2024-08-24]