刚写了一段VBA(宏),自动批量处理Word中图片,主要完成的工作是:重置所有图片,对所有图片做裁剪。代码很简单,但值得记录,以后可以参考。

For Each iShape In ActiveDocument.InlineShapes
    '1cm = 28.35 pt
    Dim pic
    If iShape.Type = wdInlineShapePicture Then
        iShape.Reset

        iShape.PictureFormat.CropTop = 1.5 * 28.345
        iShape.PictureFormat.CropBottom = 1.5 * 28.345
        iShape.PictureFormat.CropLeft = 1.2 * 28.345
        iShape.PictureFormat.CropRight = 1.2 * 28.345
    End If
Next iShape
End Sub

(24)

分类: 应用

1 条评论

困擾者 · 2011/05/18 8:13 下午

您好,請問如果我想把這個功能放在powerpoint上執行,請問我需要改哪些地方呢?
不好意思我不太懂VBA,問的問題太初淺敬請見諒! 謝謝!

发表评论

电子邮件地址不会被公开。