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

ygming28 发表于: 2009-6-26 22:26 来源: 扑奔PPT网

amwyq 发表于 2009-6-27 02:13:40

amwyq 发表于 2009-6-27 02:15:03

是这效果吗？？

ygming28 发表于 2009-6-27 12:03:37

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

ygming28 发表于 2009-6-27 14:02:32

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

amwyq 发表于 2009-6-27 14:24:09

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

[ 本帖最后由 amwyq 于 2009-6-27 21:20 编辑 ]

hpstock 发表于 2009-6-27 17:50:36

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

laose 发表于 2009-6-27 19:58:04

运行下如下的宏（仅限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

Kryant 发表于 2009-6-27 21:57:18

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

hpstock 发表于 2009-6-27 23:31:22

回复 8# laose 版主的帖子：
以下三行

QUOTE:

原帖由 laose 于 2009-6-27 19:58 发表
运行下如下的宏（仅限03以下版本）
...
    Set shp = sld.Shapes(1)
...
    Set eff = sld.TimeLine.MainSequence.AddEffect(shp, 0, , msoAnimTriggerWithPrevious)
...
        .RepeatCount = 9999
...

是否改为：
    Set shp = sld.Shapes(2)
和
    Set eff = sld.TimeLine.MainSequence.AddEffect(shp, 10, , msoAnimTriggerAfterPrevious)
以及
        .RepeatCount = 0
为宜？
谢谢版主指教。

[ 本帖最后由 hpstock 于 2009-6-27 23:36 编辑 ]

laose 发表于 2009-6-28 13:58:46

当然可以，根据需要添加动画类型并进行相关设置。 Set shp = sld.Shapes(2)还可以改为
Set shp = ActiveWindow.Selection.ShapeRange(1)。只有选中图片才能加载效果，这样的好处是无需指定SHP的索引号了。

ygming28 发表于 2009-6-28 21:57:50

我按照你的介绍的办法和步骤,终于学会新的制作方法,非常感谢各位大侠的指点!clo clo clo