PowerPoint VBA中‘Page Curl’切换效果是什么？如何正确设置？

1. Page Curl 切换效果定义 #

Page Curl（页面卷曲）是PowerPoint中模拟实体书页翻页动作的切换动画效果，分为单面卷曲和双面卷曲两种视觉表现，常用于营造书籍、画册类的翻页沉浸感。

2. SlideShowTransition.EntryEffect 属性设置方法 #

.SlideShowTransition.EntryEffect 用于指定幻灯片进入放映时的切换效果，支持两种赋值方式：

• 枚举数值：使用PowerPoint内置的切换效果常量（如ppPageCurlSingle）
• 字符串：直接传入效果的官方名称（需严格匹配大小写和拼写）

3. ppPageCurl 设置无效的解决方案 #

你遇到的问题核心是：ppPageCurl 并非进入效果的枚举常量，它对应的是退出效果（Exit Effect），因此赋值给EntryEffect不会生效。

正确设置方式 #

若要实现进入时的页面卷曲效果，需使用对应进入效果的枚举常量：

• 单面页面卷曲：ppPageCurlSingle
• 双面页面卷曲：ppPageCurlDouble

代码示例

' 为第1张幻灯片设置单面进入卷曲效果
ActivePresentation.Slides(1).SlideShowTransition.EntryEffect = ppPageCurlSingle

' 为第1张幻灯片设置双面进入卷曲效果
ActivePresentation.Slides(1).SlideShowTransition.EntryEffect = ppPageCurlDouble

若使用字符串赋值，需传入准确的效果名称：

ActivePresentation.Slides(1).SlideShowTransition.EntryEffect = "Page Curl Single"

如果确实需要设置退出时的页面卷曲效果，才使用ppPageCurl：

ActivePresentation.Slides(1).SlideShowTransition.ExitEffect = ppPageCurl

内容的提问来源于stack exchange，提问作者Shawn