各位用户为了找寻关于EXCEL 实现批量导出图片的资料费劲了很多周折。这里教程网为您整理了关于EXCEL 实现批量导出图片的相关资料，仅供查阅，以下为您介绍关于EXCEL 实现批量导出图片的详细内容
Sub ExportPictures()Dim MyShp As ShapeDim Filename As StringFor Each MyShp In Sheet1.ShapesIf MyShp.Type = msoPicture ThenFilename = ThisWorkbook.Path & "" & MyShp.Name & ".gif"MyShp.CopyWith Sheet1.ChartObjects.Add(0, 0, MyShp.Width, MyShp.Height).Chart.Paste.Export Filename.Parent.DeleteEnd WithEnd IfNextSet MyShp = NothingEnd Sub