(已解决)求助解决播放ppt图片时由黑白渐变成彩色的问题

tianjinliwei

(已解决)求助解决播放ppt图片时由黑白渐变成彩色的问题,谢谢哪位大侠能帮助俺小弟.clo clo clo clo

user_ghvajcrb

user_mpdhz

是这效果吗？？

user_xlhpv

有点像此效果,谢谢amwyq啦!
    我在国外网站下载的pps格式,后改ppt格式,想模仿试做渐变动画,由黑白图像渐渐变成有色,最后到完全彩色,想了解制作全过程.谢谢了.      我想上传此ppt的片段,不知如何上传?

dvdiso

此颜色ppt的片段,总算已上传至ppt论坛原创PPT作品-新手区上,请amwyq大侠能指教一下,谢谢啦!

kikoyumo

我已经看了你上传的东东，制作方法和我的完全相同

user_npuxdqkg

解决办法是：
1、准备同一图片的黑白版、彩色版各一张；
2、把黑白版的放在下面；
3、把彩色版的放在黑白版的上面，然后设置“自定义动画”：“添加效果”→“进入”→“渐变”；然后，通过在“效果选项”的“计时”中设置“速度”，设置你所希望的渐变速度。
当彩色版的渐渐进入时，黑白版的就被盖住了——黑白图像就渐渐变成彩色图像了。

pp86pm95e

运行下如下的宏（仅限03以下版本）
Sub picEff()
    Dim sld As Slide
    Dim shp As Shape
    Dim eff As Effect
    Set sld = ActiveWindow.Selection.SlideRange(1)
    Set shp = sld.Shapes(1)
    Set eff = sld.TimeLine.MainSequence.AddEffect(shp, 0, , msoAnimTriggerWithPrevious)
    With eff.Behaviors.Add(msoAnimTypeProperty).PropertyEffect
        .Property = msoAnimShapePictureGrayscale
        .From = 1
        .To = 0
    End With
    With eff.Timing
        .Duration = 2
        .RepeatCount = 9999
    End With
End Sub

wdm2004

相同的一张照片，做一张黑白色的另存。然后彩色的放在黑白的上一层，设置彩色那一张的出现效果是渐变，设置一下速度，就可以了。如果要彩色变成黑白，反之即可。

user_tvdsjqxx

回复 8# laose 版主的帖子：
以下三行是否改为：
    Set shp = sld.Shapes(2)
和
    Set eff = sld.TimeLine.MainSequence.AddEffect(shp, 10, , msoAnimTriggerAfterPrevious)
以及
        .RepeatCount = 0
为宜？
谢谢版主指教。