对工作表图片进行批量裁剪

以下代码，执行以下动作：

以当前选中的图片作为样本，获取图片的裁剪尺寸及边框颜色，然后对当前工作表的全部图片进行相同尺寸的裁剪并设置同样颜色的边框。

Sub 批量裁剪图片( )Dim T, B, L, R As DoubleDim shpRng As ShapeRangeDim shp As ShapeIf TypeName(Selection) = "Picture"