怎样用VBA将EXCEL中的图片导出另存为BMP文件?

sunreinhard 2006-09-05 07:48:33
我自己有下面的代码
Dim shp As Shape

For Each shp In ActiveSheet.Shapes
shp.CopyPicture
ActiveSheet.Paste
With ActiveSheet.ChartObjects.Add(0, 0, shp.Width, shp.Height).Chart
.Paste
.Export "E:\image\" & shp.Name, "JPG"
Selection.Delete
.Parent.Delete
End With

Next
将图片另存为了JPG,可图片质量下降了
我想另存为BMP是不是会好点?
但.Export shp.Name(改为bmp后缀),"BMP" 这样行不通

请问应该怎么做?
或者怎么样才能按原图保存?
...全文
802 1 打赏 收藏 转发到动态 举报
写回复
用AI写文章
1 条回复
切换为时间正序
请发表友善的回复…
发表回复
guww 2006-09-24
  • 打赏
  • 举报
回复
存成htm

5,138

社区成员

发帖
与我相关
我的任务
社区描述
其他开发语言 Office开发/ VBA
社区管理员
  • Office开发/ VBA社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧