求资料：枚举2010切换效果的名称、值、和说明
想在幻灯片中用VBA灵活添加2010中诸如涡流、蜂巢等效果，不知道其名称和对应值。求资料：枚举2010切换效果的名称、值、和说明 经常看到大侠从网上复制了许多文章发表，帮助了许多初学者，相信也从中学到许多，这些基本的常识应该了如指掌。
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 轻微缩小
这是我的程序
[*]Sub eeffect()
[*]'遍历ppt的切换效果
[*]For Each sld In ActivePresentation.Slides
[*] With sld.SlideShowTransition
[*] Debug.Print .EntryEffect
[*] End With
[*]NextEnd Sub
复制代码
在2003和2007中通过测试。 已解决，非常感谢。 再问一下，2010新增的切换效果，比如涡流、蜂巢、碎片、涟漪、立方体等，不能枚举出来，请问，你知道其值吗？ 等星期天有空，我安装2010试试。
页:
[1]