我用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
