作者KOBEretire16 (不死kobe)
看板Office
标题[算表] 插入图片後怎麽随宽高调整大小
时间Tue Jul 7 11:38:20 2020
软体:Excel
版本:2007
各位板友好，小弟我最近因为要放图片进入试算表内，
目前已经摸索将图片放入了，
但是在调整宽高的时候图片就只是图片，不会随着调整而放大缩小，
请问有没有办法用VBA来达成呢?
目前我的VBA写法如下:
Sub PastePicToCell()
r = ActiveCell.Row
c = ActiveCell.Column
Application.Dialogs(xlDialogInsertPicture).Show
With Selection
.Top = Cells(r, c).Top
.Left = Cells(r, c).Left
.Width = Cells(r, c).Width
.Height = Cells(r, c).Height
End With
End Sub
这样写的目的是为了让我可以自己选择图片而不是每次都要改路径，
而放大缩小在网路上有找到一般操作的说明，
就是在图片上点右键→大小及内容→大小位置随储存格而变，
参考来源:
https://kknews.cc/zh-tw/code/mem3l29.html
目前的问题是想要知道有没有办法在插入图片的时候就将这个设定完成(VBA)，
还请各位板友指导一下，谢谢。
--
※ 发信站: 批踢踢实业坊(ptt.cc), 来自: 61.220.247.190 (台湾)
※ 文章网址: https://webptt.com/cn.aspx?n=bbs/Office/M.1594093106.A.A7E.html
1F：→ soyoso: 测试内文的巨集，图片依作用储存格长宽比而做调整 07/07 11:53
3F：→ soyoso: 如不要锁定长宽比的话，再调整width和height前加上 07/07 11:56
4F：→ soyoso: shaperange.lockaspectratio，值为false 07/07 11:56
谢谢soyoso大大提出，
不过我的问题点是，加入完图片後，我再去拉长宽後，
图片不会随着拉伸而缩放，而是就呆呆的待在原本的地方，
想请问有办法跟着一起缩放吗?
※ 编辑: KOBEretire16 (61.220.247.190 台湾), 07/07/2020 13:16:28
5F：→ soyoso: 如连结内调整储存格列高、栏宽，图片大小随之改变的话， 07/07 14:14
6F：→ soyoso: with内加上.placement = xlmoveandsize 07/07 14:14
7F：→ KOBEretire16: 感谢!可以用了~ 07/08 11:07