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