以下代码的功能是，自动将被选中的EXCEL的数据区域，自动转换成为图片。
Sub MyRangeToPic()
Selection.Copy
With ActiveSheet.Pictures.Paste
.Top = Selection.Top
.Left = Selection.Left
End With
Application.CutCopyMode = False
End Sub
以上代码，均本站严格测试，没有发现任何错误。
如下代码：
With ActiveSheet.Pictures.Paste
.Top = Selection.Top
.Left = Selection.Left
End With
其功能是，确定图片的位置。