請問要怎麼用 VBA 調整EXCEL整頁圖片大小

Dim p As Object

Dim iCnt As Integer
Dim s As Double
Dim r As Range

For Each p In ActiveSheet.Shapes
s = ***/p.Width
Set r = p.TopLeftCell
p.Width = ***
p.Height = p.Height * s
iCnt = iCnt + 1
Next p