EXCEL 巨集 "表格整理(圖片高寬設定巨集)"

 

Sub 表格整理()

'

' 表格整理 巨集

'

' 快速鍵: Ctrl+Shift+Q

'

    Selection.ShapeRange.LockAspectRatio = msoFalse

    Selection.ShapeRange.Height = 124.7995023

    Selection.ShapeRange.Width = 208.0692393

End Sub

'實際圖片尺寸高：4.3，寬：7.3