0

我真的很沮丧。我有有效的代码，正如它所说的那样，它并不总是正确地将幻灯片上的图像读取为图像。我什至将它们都命名为“图片”并将其用作变量。它实际上工作了一秒钟，但随后其中的 5 张图片再次停止工作。

这是代码，它确实有效：

With shp.Fill.PictureEffects
    Dim eff As PictureEffect
    Set eff = .Insert(msoEffectSharpenSoften)
    eff.EffectParameters(1).Value = 1
End With

为什么这段代码不适用于我的所有图像？即使它抛出错误，它也会按预期锐化图像，但然后停止？？？我不明白这个问题或可能的修复方法是什么。这实际上是我需要解决的工作过程的最后一点......

作为记录，我有代码可以调整高度、宽度，并在幻灯片上完美地居中图像，没有任何问题，代码将图像放在占位符中，然后格式化文本......但出于某种原因，这个块代码不起作用...

我也试过删除图片，用程序中的插入图片功能手动重新上传，还是不行？？？这可能与我使用 PowerPoint 2013 的事实有关吗？

我通过更改图片格式以不同的方式对其进行了测试，它似乎可以正常工作，但事实并非如此。无论我自动化它，我是否插入图片，无论我做什么，无论它是否在预先定位的容器中，这行代码都拒绝工作。为什么 PowerPoint VBA 不接受我的 PNG 和 JPEG 格式的图像？

4

0 回答 0