excel vba指定单元格中插入图片并调整成适应单元格大小

资料来自: 中国自学网(Www.CnZiXue.Com) 详细出处参考：http://www.cnzixue.com/html/office/excel/Program/2011/0528/9401.html

 

Sub Test()

 

       

      With Sheets("表1").Pictures.Insert("D:\白梦燕.jpg ")  '可用

 

 

                .ShapeRange.LockAspectRatio = msoFalse

 

                .Placement = xlMoveAndSize

 

                .ShapeRange.Left = Range("b2 ").Left

 

                .ShapeRange.Top = Range("b2 ").Top

 

                .ShapeRange.Height = Range("b2:b5 ").Height

 

                .ShapeRange.Width = Range("b2:c2 ").Width

 

        End With

 

End Sub