'昨晚发帖被秒删,难道是遇到了传说中的禁言
'改成函数可以调用,2个图片可以组合在一起配对使用。
Option Explicit
Sub test()
cropfontheight 25 '剪切为图片的25%高度
End Sub
Function cropfontheight(n) ' n: 按图片高度的百分比值进行剪切,0-100%
If n > 100 Or n < 0 Then Exit Function
Dim t
t = ActiveSheet.Shapes("Picture 1").PictureFormat.Crop.PictureHeight / 100 * (100 - n)
ActiveSheet.Shapes("Picture 2").PictureFormat.CropTop = t
End Function