作者losewind (错的时间对的人)
看板Office
标题[问题] EXCEL VBA插入图片
时间Thu Apr 23 16:31:02 2020
软体: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
--
※ 发信站: 批踢踢实业坊(ptt.cc), 来自: 59.124.14.228 (台湾)
※ 文章网址: https://webptt.com/cn.aspx?n=bbs/Office/M.1587630665.A.2E2.html
1F:→ soyoso: 改以shapes.addpicture试试,测试更名後再开启档案,图片 04/23 17:03
2F:→ soyoso: 还是存在 04/23 17:03
3F:→ soyoso: SaveWithDocument的部分要与文件一同储存的图片,就以true 04/23 17:08
4F:→ soyoso: 其他如要放置於作用储手格left和top的部分就以activecell. 04/23 17:11
5F:→ soyoso: left和activecell.top来取得,长宽原巨集有,变数X和Y 04/23 17:12
6F:→ soyoso: "存"(错字) 04/23 17:16