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
The above info was really useful – is there any way of adding something into the code so it randomises the transitions?
Like other Office products that support VBA, there is a random function. Just do a Google on VBA random for examples
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?
The entry effects can be found at http://msdn.microsoft.com/en-us/library/bb265634(v=office.12).aspx
Thanks for the link but I’m not seeing any effect that are 39XX. Am I missing something?
my mistake, that list was for 2007. Here is the 2013 list (hopefully)
http://msdn.microsoft.com/en-us/library/office/ff746794(v=office.15).aspx