本文主要介绍通过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 If
End Sub