Excel 宏实现图片按比例缩放

本文主要介绍通过Excel 宏实现选中图片按比例缩放（如：图片缩小67%）。

下面代码实现功能：

①如果选中的内容是图片，将图片缩小67%。

②缩放的同时横向和纵向按原始固定比例。

③如果选中的内容不是图片，提示用户。

VBA代码：

Sub size67()    If TypeName(Selection) = "Picture" Then        Selection.ShapeRange.LockAspectRatio = msoTrue        Selection.Width = Selection.Width * 0.67    Else        MsgBox "selected object is not a picture."    End IfEnd Sub