软件: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)，
还请各位板友指导一下，谢谢。

测试内文的宏，图片依作用储存格长宽比而做调整https://i.imgur.com/XqHTOD7.gifv如不要锁定长宽比的话，再调整width和height前加上shaperange.lockaspectratio，值为false

感谢!可以用了~