求助：渐入的effectID是多少啊

banduwuyan 发表于: 2010-3-15 12:28 来源: 扑奔PPT网

没有查到，谁能说说常见的动画的effectid都是多少啊，

还有，想编写一段代码/宏，在该代码执行时可以直接从ppt中任意选择对象，谁给个思路，没有一点思路了

大家对求助：渐入的effectID是多少啊的评论

laose 发表于 2010-3-16 10:36:24: effectID 29
banduwuyan 发表于 2010-3-16 11:58:13: QUOTE:
原帖由 laose 于 2010-3-16 10:36 发表
effectID 29
29好像是滚动，还是谢谢了
laose 发表于 2010-3-16 23:48:10: 不会吧，你试试这段代码，看看29是不是渐入动画？

Sub addEff()
Dim shp As Shape
Dim eff As Effect
Set shp = ActiveWindow.Selection.ShapeRange(1)
Set eff = ActiveWindow.Selection.SlideRange(1).TimeLine.MainSequence.AddEffect(shp, 29, , msoAnimTriggerWithPrevious)
eff.Timing.Duration = 2
End Sub

[ 本帖最后由 laose 于 2010-3-16 23:49 编辑 ]
laose 发表于 2010-3-16 23:54:11: 怎么会查不到呢？

贴出来

常量值
msoAnimEffectAppear  1
msoAnimEffectArcUp  47
msoAnimEffectAscend  39
msoAnimEffectBlast  64
msoAnimEffectBlinds  3
msoAnimEffectBoldFlash  63
msoAnimEffectBoldReveal  65
msoAnimEffectBoomerang  25
msoAnimEffectBounce  26
msoAnimEffectBox  4
msoAnimEffectBrushOnColor  66
msoAnimEffectBrushOnUnderline  67
msoAnimEffectCenterRevolve  40
msoAnimEffectChangeFillColor  54
msoAnimEffectChangeFont  55
msoAnimEffectChangeFontColor  56
msoAnimEffectChangeFontSize  57
msoAnimEffectChangeFontStyle  58
msoAnimEffectChangeLineColor  60
msoAnimEffectCheckerboard  5
msoAnimEffectCircle  6
msoAnimEffectColorBlend  68
msoAnimEffectColorReveal  27
msoAnimEffectColorWave  69
msoAnimEffectComplementaryColor  70
msoAnimEffectComplementaryColor2  71
msoAnimEffectContrastingColor  72
msoAnimEffectCrawl  7
msoAnimEffectCredits  28
msoAnimEffectCustom  0
msoAnimEffectDarken  73
msoAnimEffectDesaturate  74
msoAnimEffectDescend  42
msoAnimEffectDiamond  8
msoAnimEffectDissolve  9
msoAnimEffectEaseIn  29
msoAnimEffectExpand  50
msoAnimEffectFade  10
msoAnimEffectFadedSwivel  41
msoAnimEffectFadedZoom  48
msoAnimEffectFlashBulb  75
msoAnimEffectFlashOnce  11
msoAnimEffectFlicker  76
msoAnimEffectFlip  51
msoAnimEffectFloat  30
msoAnimEffectFly  2
msoAnimEffectFold  53
msoAnimEffectGlide  49
msoAnimEffectGrowAndTurn  31
msoAnimEffectGrowShrink  59
msoAnimEffectGrowWithColor  77
msoAnimEffectLighten  78
msoAnimEffectLightSpeed  32
msoAnimEffectMediaPause  84
msoAnimEffectMediaPlay  83
msoAnimEffectMediaStop  85
msoAnimEffectPath4PointStar  101
msoAnimEffectPath5PointStar  90
msoAnimEffectPath6PointStar  96
msoAnimEffectPath8PointStar  102
msoAnimEffectPathArcDown  122
msoAnimEffectPathArcLeft  136
msoAnimEffectPathArcRight  143
msoAnimEffectPathArcUp  129
msoAnimEffectPathBean  116
msoAnimEffectPathBounceLeft  126
msoAnimEffectPathBounceRight  139
msoAnimEffectPathBuzzsaw  110
msoAnimEffectPathCircle  86
msoAnimEffectPathCrescentMoon  91
msoAnimEffectPathCurvedSquare  105
msoAnimEffectPathCurvedX  106
msoAnimEffectPathCurvyLeft  133
msoAnimEffectPathCurvyRight  146
msoAnimEffectPathCurvyStar  108
msoAnimEffectPathDecayingWave  145
msoAnimEffectPathDiagonalDownRight  134
msoAnimEffectPathDiagonalUpRight  141
msoAnimEffectPathDiamond  88
msoAnimEffectPathDown  127
msoAnimEffectPathEqualTriangle  98
msoAnimEffectPathFigure8Four  113
msoAnimEffectPathFootball  97
msoAnimEffectPathFunnel  137
msoAnimEffectPathHeart  94
msoAnimEffectPathHeartbeat  130
msoAnimEffectPathHexagon  89
msoAnimEffectPathHorizontalFigure8  111
msoAnimEffectPathInvertedSquare  119
msoAnimEffectPathInvertedTriangle  118
msoAnimEffectPathLeft  120
msoAnimEffectPathLoopdeLoop  109
msoAnimEffectPathNeutron  114
msoAnimEffectPathOctagon  95
msoAnimEffectPathParallelogram  99
msoAnimEffectPathPeanut  112
msoAnimEffectPathPentagon  100
msoAnimEffectPathPlus  117
msoAnimEffectPathPointyStar  104
msoAnimEffectPathRight  149
msoAnimEffectPathRightTriangle  87
msoAnimEffectPathSCurve1  144
msoAnimEffectPathSCurve2  124
msoAnimEffectPathSineWave  125
msoAnimEffectPathSpiralLeft  140
msoAnimEffectPathSpiralRight  131
msoAnimEffectPathSpring  138
msoAnimEffectPathSquare  92
msoAnimEffectPathStairsDown  147
msoAnimEffectPathSwoosh  115
msoAnimEffectPathTeardrop  103
msoAnimEffectPathTrapezoid  93
msoAnimEffectPathTurnDown  135
msoAnimEffectPathTurnRight  121
msoAnimEffectPathTurnUp  128
msoAnimEffectPathTurnUpRight  142
msoAnimEffectPathUp  148
msoAnimEffectPathVerticalFigure8  107
msoAnimEffectPathWave  132
msoAnimEffectPathZigzag  123
msoAnimEffectPeek  12
msoAnimEffectPinwheel  33
msoAnimEffectPlus  13
msoAnimEffectRandomBars  14
msoAnimEffectRandomEffects  24
msoAnimEffectRiseUp  34
msoAnimEffectShimmer  52
msoAnimEffectSling  43
msoAnimEffectSpin  61
msoAnimEffectSpinner  44
msoAnimEffectSpiral  15
msoAnimEffectSplit  16
msoAnimEffectStretch  17
msoAnimEffectStretchy  45
msoAnimEffectStrips  18
msoAnimEffectStyleEmphasis  79
msoAnimEffectSwish  35
msoAnimEffectSwivel  19
msoAnimEffectTeeter  80
msoAnimEffectThinLine  36
msoAnimEffectTransparency  62
msoAnimEffectUnfold  37
msoAnimEffectVerticalGrow  81
msoAnimEffectWave  82
msoAnimEffectWedge  20
msoAnimEffectWheel  21
msoAnimEffectWhip  38
msoAnimEffectWipe  22
msoAnimEffectZip  46
msoAnimEffectZoom  23
banduwuyan 发表于 2010-3-17 07:53:25: 哈哈，就是，运行了还是擦入
看名字也是：msoAnimEffectEaseIn 29
laose 发表于 2010-3-17 10:43:08: 晕，你先添加渐入动画，用下面的代码，看看其ID是不是29？

Sub effID()

MsgBox ActiveWindow.Selection.SlideRange(1).TimeLine.MainSequence(1).EffectType

End Sub
banduwuyan 发表于 2010-3-17 12:06:48: 成功了，谢谢
我会幸福发表于 2010-7-11 15:59:03: 这里好多高手，要好好学习。