PowerPoint 2010 Transitions

PowerPoint 2010 comes with more transitions. The following VBA code will cycle through all the slides in a slide deck and add a different transition to each slide. If there are more slides than transitions, the transitions are reused.

Public Sub SetTransition()

Dim Transitions() As Variant
Dim trans1 As Integer
Dim sld As slide

Transitions() = Array(3925, 3922, 3924, 3923, 3882, 3883, 3917, 3914, 3916, 3915, 3885, 3884, 3899, 3900, 3909, 3908, 3907, 3906, 3890, 3892, 3891, 3893, 3880, 3881, 3875, 3872, 3874, 3873, 3879, 3876, 3878, 3877, 3898, 3929, 3926, 3928, 3927, 3933, 3930, 3932, 3931, 3896, 3897, 3894, 3895, 3867, 3870, 3869, 3871, 3868, 3921, 3918, 3920, 3919, 3912, 3913, 3910, 3911, 3904, 3901, 3903, 3902, 3866, 3863, 3865, 3864, 3888, 3889, 3862, 3887, 3886)

Dim Trans As Variant

trans1 = 0

For Each sld In ActivePresentation.Slides
trans1 = trans1 + 1: If trans1 > UBound(Transitions) Then trans1 = 0
sld.SlideShowTransition.EntryEffect = Transitions(trans1)
Next sld
End Sub

John Marshall… Visio MVP       Visio.MVPs.org

Published by johnvisiomvp

The original Visio MVP. I have worked with the Visio team since 1993

6 thoughts on “PowerPoint 2010 Transitions

  1. The above info was really useful – is there any way of adding something into the code so it randomises the transitions?

  2. I assume the number in the array (3925, 3922, 3924, etc.) map to Entry Effect Enumerations. Correct? If so, do you know where I can find a list of the descriptions for each?

Comments are closed.