EXCEL 請益 關於ACTIVE控制項插入圖片

我用VBA寫了一段插入圖片的語法如下

Private Sub CommandButton1_Click()

X = ActiveCell.Width

Y = ActiveCell.Height

fufilename = Application.GetOpenFilename

With ActiveSheet.Pictures.Insert(fufilename)

.ShapeRange.LockAspectRatio = msoFalse

.ShapeRange.Height = Y

.ShapeRange.Width = X

End With

End Sub

可是這實際上只能插入圖片，不能夾帶圖片

檔案一旦寄給別人就會圖片遺失

請問有高手可以協助修正成夾帶圖片的語法嗎???

Tks