[算表] 插入圖片後怎麼隨寬高調整大小

作者: KOBEretire16 (不死kobe)   2020-07-07 11:38:20
軟體: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),
還請各位板友指導一下,謝謝。
作者: soyoso (我是耀宗)   2020-07-07 11:53:00
測試內文的巨集,圖片依作用儲存格長寬比而做調整https://i.imgur.com/XqHTOD7.gifv如不要鎖定長寬比的話,再調整width和height前加上shaperange.lockaspectratio,值為false
作者: KOBEretire16 (不死kobe)   2020-07-08 11:07:00
感謝!可以用了~

Links booklink

Contact Us: admin [ a t ] ucptt.com