EXCEL批量插入图片问题！

11 |

2 | 2012-1-14 00:39:09 | 显示全部楼层 |阅读模式

终于找到了，请问你个问题好吗？Sub 插入图片到单元格()On Error Resume NextDim MR As RangeFor Each MR In SelectionIf Not IsEmpty(MR) Then
MR.Select
ML = MR.Left
MT = MR.Top
MW = MR.Width
MH = MR.Height
ActiveSheet.Shapes.AddShape(msoShapeRectangle, ML, MT, MW, MH).Select
Selection.ShapeRange.Fill.UserPictu...

使用道具举报