※ 引述《losewind (錯的時間對的人)》之銘言:
: 軟體:EXCEL
: 版本:OFFICE 365
: 之前問過一個類似的問題,後來自己有嘗試成功
: 但是發現這其實只是LINK到自己電腦圖片的路徑
: 有沒有人可以教一下怎麼修正成真的夾帶圖片進EXCEL檔案
: 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
抱歉對VBA初學,我改成SHAPE.ADDPicture以後 他偵錯卡在反黃的那一欄
是哪個部分有問題嗎???
Private Sub CommandButton1_Click()
X = ActiveCell.Width
Y = ActiveCell.Height
fufilename = Application.GetOpenFilename
with ActiveSheet.Shapes.AddPicture(fufilename)
.msoTrue
.msoTrue
.ActiveCell.Left
.ActiveCell.Top
.ShapeRange.Height = Y
.ShapeRange.Width = X
End With
End Sub