作者losewind (错的时间对的人)
看板Office
标题Re: [问题] EXCEL VBA插入图片
时间Thu Apr 23 18:27:56 2020
※ 引述《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
--
※ 发信站: 批踢踢实业坊(ptt.cc), 来自: 59.124.14.228 (台湾)
※ 文章网址: https://webptt.com/cn.aspx?n=bbs/Office/M.1587637680.A.A5F.html
2F：→ losewind: 可以了~感谢指导~P币奉上 04/27 15:25
3F：→ losewind: 顺便请问一下，如果要图片判断栏宽高为合并储存格怎解? 04/27 15:25
4F：→ soyoso: 判断作用储存格是否为合并储存格，range.mergecells为真表 04/27 15:41
5F：→ soyoso: 示为合并储存格，range.mergearea.height为高，width为宽 04/27 15:42
6F：→ soyoso: 或不用判断，直接以range.mergearea.height和width取高宽 04/27 15:56
7F：→ waiter337: 前几天遇到相同问题 有大大指点了一下 05/09 10:31
8F：→ waiter337: 一开始也是picture.insert(xx)跟.shapes.addpicture() 05/09 10:32
9F：→ waiter337: 的问题 後来我改成後者 但中间true false不管怎麽调 05/09 10:32
10F：→ waiter337: 一样无法携带完整解析度的图档 但可以携带压缩图档 05/09 10:33
11F：→ waiter337: 经高手指点 选择档案>选项>进阶>(v)不要压缩档案中的影 05/09 10:34
12F：→ waiter337: 像;预设解析度[高画质] (v)图形使用高品质模式 05/09 10:35
13F：→ waiter337: 给您参考 05/09 10:35