以下代码,执行以下动作:
以当前选中的图片作为样本,获取图片的裁剪尺寸及边框颜色,然后对当前工作表的全部图片进行相同尺寸的裁剪并设置同样颜色的边框。
Sub 批量裁剪图片( )
Dim T, B, L, R As Double
Dim shpRng As ShapeRange
Dim shp As Shape
If TypeName(Selection) = "Picture"
以下代码,执行以下动作:
以当前选中的图片作为样本,获取图片的裁剪尺寸及边框颜色,然后对当前工作表的全部图片进行相同尺寸的裁剪并设置同样颜色的边框。
Sub 批量裁剪图片( )
Dim T, B, L, R As Double
Dim shpRng As ShapeRange
Dim shp As Shape
If TypeName(Selection) = "Picture"