[已解决]怎么批量将文件夹内的图片切除下方的一部分（35%切除）？

林木水

牛逼

小雨饰品

我想要的结果就是切除的部分看不到了，只留下未切除部分。你的代码在我OFICE2010运行后的效果如压缩文件中的图片

vitrel

小雨饰品 发表于 2022-11-21 12:44
我想要的结果就是切除的部分看不到了，只留下未切除部分。你的代码在我OFICE2010运行后的效果如压缩文件中 ...

楼主，您好！
代码已修改，采用全新的方法裁切图像。

zjdh

vitrel 发表于 2022-11-22 09:13
楼主，您好！
代码已修改，采用全新的方法裁切图像。

用此方法切割，代码可以简化：
Sub 切割(ByVal Pt As String)
    Dim sName$
    Range("A1").Select
    With ActiveSheet.Shapes.AddPicture(Pt, False, True, Selection.Left, Selection.Top, -1, -1)
        .PictureFormat.CropBottom = .Height * 0.35    '底部被裁剪
        sName = .Name    '记录图片名称，以便后续操作
        .Copy
    End With
    With ActiveSheet.ChartObjects.Add(0, 0, ActiveSheet.Shapes(sName).Width, ActiveSheet.Shapes(sName).Height).Chart
        .Paste
        .Export Pt
        .Parent.Delete
    End With
    ActiveSheet.Pictures.Delete
End Sub

小雨饰品

这个我在的系统中运行特好，太谢谢啦