一句话，让AI裁掉100张图片的废边

打工人的痛苦，往往藏在细节里。

有一套PPT，每一页都是考题截图。 听起来挺好的——但问题来了：

每张图四周全是废边。上面一坨，下面一坨，左右各一坨。 要用，得一张一张手动裁。（如下图，仅需要红色框区域中的内容）。

100页PPT。 100次裁图。 100次想辞职。😩

---

然后我想到了一件事——

为什么不让AI替我干？

打开DeepSeek，我只说了一句话：

PPT中，需要将每一页PPT的图片进行截剪，图片左边裁掉11CM，图片上边裁掉4CM，图片顶部裁掉9CM，图片底部裁掉4CM，最后将每一页图片拉伸到每一页的大小，给我VBA代码。

就这一句。

DeepSeek不仅给了我完整代码， 还贴心附上了运行步骤， 生怕我看不懂。

（它比我前任体贴多了）以下是完整的代码。

Sub CropAndStretchImages()
    Dim pptPres As Presentation
    Dim pptSlide As Slide
    Dim pptShape As Shape
    Dim imgWidth As Single, imgHeight As Single
    Dim cropLeft As Single, cropTop As Single, cropRight As Single, cropBottom As Single
    Dim slideWidth As Single, slideHeight As Single
    
    ' 设置裁剪参数（单位：磅，1厘米 = 28.35磅）
    cropLeft = 11 * 28.35      ' 左边裁掉11cm
    cropTop = 4 * 28.35        ' 上边裁掉4cm
    cropRight = 9 * 28.35      ' 右边裁掉9cm
    cropBottom = 4 * 28.35     ' 下边裁掉4cm
    
    ' 获取当前演示文稿
    Set pptPres = ActivePresentation
    
    ' 遍历每张幻灯片
    For Each pptSlide In pptPres.Slides
        ' 遍历幻灯片中的每个形状
        For Each pptShape In pptSlide.Shapes
            ' 检查形状是否为图片
            If pptShape.Type = msoPicture Or pptShape.Type = msoLinkedPicture Then
                ' 获取图片原始尺寸
                imgWidth = pptShape.Width
                imgHeight = pptShape.Height
                
                ' 应用裁剪（单位：磅）
                With pptShape.PictureFormat
                    .CropLeft = cropLeft
                    .CropTop = cropTop
                    .CropRight = cropRight
                    .CropBottom = cropBottom
                End With
                
                ' 拉伸图片到幻灯片大小
                slideWidth = pptSlide.Master.Width  ' 获取幻灯片母版宽度
                slideHeight = pptSlide.Master.Height ' 获取幻灯片母版高度
                
                ' 调整图片位置和大小
                With pptShape
                    .LockAspectRatio = msoFalse  ' 解除锁定纵横比
                    .Left = 0                     ' 左对齐
                    .Top = 0                      ' 顶部对齐
                    .Width = slideWidth           ' 拉伸到幻灯片宽度
                    .Height = slideHeight         ' 拉伸到幻灯片高度
                End With
            End If
        Next pptShape
    Next pptSlide
    
    MsgBox "图片裁剪和拉伸完成！"
End Sub

运行这段代码之后，你将看到每一页PPT中的图片全部快速处理好了。

---

运行代码之后——

100张图。 全部处理完毕。 干净、整齐、精准。

我盯着屏幕看了三秒钟， 然后默默关上了”招聘网站”的标签页。

暂时不辞职了。

---

认真说一句：

很多人觉得”写代码”离自己很远。 但现在的AI，已经把门槛低到了——

你只需要把问题说清楚。

剩下的，它来。

这不是魔法，这是工具。 而会用工具的人，效率永远比别人快一步。🎯

---

💬 互动建议：

你有没有过”重复操作到想摔电脑”的时刻？ 评论区聊聊，说不定下一篇就是帮你解决它的！👇

不想自己弄，也可以联系我 微信：458946，找我定制一键搞定你的重复性工作。