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 格式的图像?

解决方法

暂无找到可以解决该程序问题的有效方法,小编努力寻找整理中!

如果你已经找到好的解决方法,欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@)