excel vba指定单元格中插入图片并调整成适应单元格大小 资料来自: 中国自学网(Www.CnZiXue.Com) 详细出处参考:http://www./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 |
|