VBA PPT 添加效果到图片不一致地应用效果

如何解决VBA PPT 添加效果到图片不一致地应用效果

我真的很沮丧。我有有效的代码，因为它确实按照它所说的去做，但是，它并不总是正确地将幻灯片上的图像读取为图像。我什至将它们全部命名为“图片”并将其用作变量。它实际上工作了一秒钟，但随后其中的 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 格式的图像？