求助：渐入的effectID是多少啊

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

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

这里好多高手，要好好学习。