我已经设置了幻灯片,我的段落和项目符号有下划线,单击时会出现红色的动画答案。
我想知道我是否可以打印不带动画答案的演示文稿以用作学生的练习册。
答案1
这 2 个宏可以完成该工作(在 Office 365 中):
Public Sub HideAnimations()
For Slide = 1 To ActivePresentation.Slides.Count
For Each thisShape In ActivePresentation.Slides(Slide).Shapes
If thisShape.AnimationSettings.Animate Then
thisShape.Visible = False
thisShape.AlternativeText = "(hidden)" ' hijack AlternativeText to store this info
End If
Next thisShape
Next Slide
End Sub
Public Sub ShowAnimations()
For Slide = 1 To ActivePresentation.Slides.Count
For Each thisShape In ActivePresentation.Slides(Slide).Shapes
If thisShape.AlternativeText = "(hidden)" Then
thisShape.Visible = True
End If
Next thisShape
Next Slide
End Sub
答案2
一个不包括宏的选项是,在原始文本框的正上方添加一个带有白色(不清晰)背景的问题文本框副本。使此“覆盖”文本框与上一个文本框一起消失,并将其设置为第一个动画。因此,打印的讲义上将显示此“覆盖”文本框,而不是隐藏在下面的红线。显示演示文稿时,“覆盖”文本框将立即消失,因此动画时将显示红线。