根据单元格内容插入图片的问题

peternan

各位大神，

根据单元格插入图片，在网上找了一个大神的代码基本满足。

只是图片的大小只能满足下面的条件中的后一个条件，怎样让这两个条件并存？

If Dir(str) <> "" Then                              

     mysheet1.Pictures.Insert(str).Select      

     With Selection.ShapeRange

        .LockAspectRatio = msoTrue              

        .Height = mysheet1.Cells(i, 3).Height - 6

       .Width = mysheet1.Cells(i, 3).Width - 6  

简七

rowheight  columnwidth