求资料：枚举2010切换效果的名称、值、和说明

weiyingde

想在幻灯片中用VBA灵活添加2010中诸如涡流、蜂巢等效果，不知道其名称和对应值。
求资料：枚举2010切换效果的名称、值、和说明

dongdonggege

经常看到大侠从网上复制了许多文章发表，帮助了许多初学者，相信也从中学到许多，这些基本的常识应该了如指掌。
这是我的文章，是2003的，至于更高的版本，没有接触。下面的链接和知识是我几年前发表的，希望能帮助到你。
http://www.rapidbbs.cn/forum.php ... amp;fromuid=1031216
EntryEffect 类型        
名称                                 值         说明
ppEffectAppear                         3844        出现
ppEffectBlindsHorizontal         769        水平百叶窗
ppEffectBlindsVertical                 770        垂直百叶窗
ppEffectBoxIn                         3074        盒状收缩
ppEffectBoxOut                         3073        盒状展开
ppEffectCheckerboardAcross 1025        横向棋盘式
ppEffectCheckerboardDown         1026        纵向棋盘式
ppEffectCircleOut                 3845        圆形放射
ppEffectCombHorizontal         3847        水平梳理
ppEffectCombVertical                 3848        垂直梳理
ppEffectCoverDown                 1284        向下覆盖
ppEffectCoverLeft                 1281        向左覆盖
ppEffectCoverLeftDown         1287        向左下覆盖
ppEffectCoverLeftUp                 1285        向左上覆盖
ppEffectCoverRight                 1283        
ppEffectCoverRightDown         1288        向右下覆盖
ppEffectCoverRightUp                 1286        向右上覆盖
ppEffectCoverUp                 1282        向上覆盖
ppEffectCrawlFromDown         3344        自下部缓慢移入
ppEffectCrawlFromLeft                 3341        自左侧缓慢移入
ppEffectCrawlFromRight                 3343        自右侧缓慢移入
ppEffectCrawlFromUp                 3342        自上部缓慢移入
ppEffectCut                         257        切出
ppEffectCutThroughBlack         258        从全黑切出
ppEffectDiamondOut                 3846        菱形
ppEffectDissolve                         1537        迭化
ppEffectFade                         1793        淡出
ppEffectFadeSmoothly         3849        平滑淡出
ppEffectFlashOnceFast         3841        快速闪烁一次
ppEffectFlashOnceMedium         3842        中速闪烁一次
ppEffectFlashOnceSlow         3843        慢速闪烁一次
ppEffectFlyFromBottom         3332        自底部飞入
ppEffectFlyFromBottomLeft         3335        自左下角飞入
ppEffectFlyFromBottomRight 3336        自右下角飞入
ppEffectFlyFromLeft                 3329        自左侧飞入
ppEffectFlyFromRight                 3331        自右侧飞入
ppEffectFlyFromTop                 3330        自顶部飞入
ppEffectFlyFromTopLeft         3333        自左上角飞入
ppEffectFlyFromTopRight         3334        自右上角飞入
ppEffectMixed                         -2        混合
ppEffectNewsflash                 3850        新闻快报
ppEffectNone                         0        无
ppEffectPeekFromDown         3338        自底部切入
ppEffectPeekFromLeft                 3337        自左侧切入
ppEffectPeekFromRight         3339        自右侧切入
ppEffectPeekFromUp                 3340        自上部切入
ppEffectPlusOut                         3851        十字形扩展
ppEffectPushDown                 3852        向上推进
ppEffectPushLeft                 3853        向左推进
ppEffectPushRight                 3854        向右推进
ppEffectPushUp                         3855        向上推进
ppEffectRandom                         513        随机
ppEffectRandomBarsHorizontal         2305        随机水平条
ppEffectRandomBarsVertical         2306        随机垂直条
ppEffectSpiral                         3357        螺旋
ppEffectSplitHorizontalIn         3586        从外到内水平分割
ppEffectSplitHorizontalOut         3585        从内到外水平分割
ppEffectSplitVerticalIn         3588        从外到内垂直分割
ppEffectSplitVerticalOut         3587        从内到外垂直分割
ppEffectStretchAcross                 3351        水平伸展
ppEffectStretchDown                 3355        向下伸展
ppEffectStretchLeft                 3352        向左伸展
ppEffectStretchRight                 3354        向右伸展
ppEffectStretchUp                 3353        向上伸展
ppEffectStripsDownLeft         2563        条纹下左展开
ppEffectStripsDownRight         2564        条纹下右展开
ppEffectStripsLeftDown         2567        条纹左下展开
ppEffectStripsLeftUp                 2565        条纹左上展开
ppEffectStripsRightDown         2568        条纹右下展开
ppEffectStripsRightUp                 2566        条纹右上展开
ppEffectStripsUpLeft                 2561        条纹上左展开
ppEffectStripsUpRight                 2562        条纹上右展开
ppEffectSwivel                         3356        旋转
ppEffectUncoverDown         2052        向下揭开
ppEffectUncoverLeft                 2049        向左揭开
ppEffectUncoverLeftDown         2055        向左下揭开
ppEffectUncoverLeftUp         2053        向左上揭开
ppEffectUncoverRight                 2051        向右揭开
ppEffectUncoverRightDown         2056        向右下揭开
ppEffectUncoverRightUp         2054        向右上揭开
ppEffectUncoverUp                 2050        向上揭开
ppEffectWedge                         3856        楔入
ppEffectWheel1Spoke                 3857        轮辐 1
ppEffectWheel2Spokes         3858        轮辐 2
ppEffectWheel3Spokes         3859        轮辐 3
ppEffectWheel4Spokes         3860        轮辐 4
ppEffectWheel8Spokes         3861        轮辐 8
ppEffectWipeDown                 2820        向下擦除
ppEffectWipeLeft                 2817        向左擦除
ppEffectWipeRight                 2819        向右擦除
ppEffectWipeUp                         2818        向上擦除
ppEffectZoomBottom                 3350        向下缩放
ppEffectZoomCenter                 3349        居中缩放
ppEffectZoomIn                         3345        放大
ppEffectZoomInSlightly        3346        轻微放大
ppEffectZoomOut                 3347        缩小
ppEffectZoomOutSlightly         3348        轻微缩小
这是我的程序

1. Sub eeffect()
   
2. '遍历ppt的切换效果
   
3. For Each sld In ActivePresentation.Slides
   
4.     With sld.SlideShowTransition
   
5.         Debug.Print .EntryEffect
   
6.     End With
   
7. Next
   
8. End Sub

复制代码

在2003和2007中通过测试。

weiyingde

已解决，非常感谢。

weiyingde

dongdonggege 发表于 2016-8-27 09:52
经常看到大侠从网上复制了许多文章发表，帮助了许多初学者，相信也从中学到许多，这些基本的常识应该了如指 ...

再问一下，2010新增的切换效果，比如涡流、蜂巢、碎片、涟漪、立方体等，不能枚举出来，请问，你知道其值吗？

dongdonggege

weiyingde 发表于 2016-9-1 08:04
再问一下，2010新增的切换效果，比如涡流、蜂巢、碎片、涟漪、立方体等，不能枚举出来，请问，你知道其值 ...

等星期天有空，我安装2010试试。