※ 引述《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