Powerpoint Power User – Support Tread

[Twinergy]

My intention here is to help people get more out of Powerpoint by showing how to use macros to automate repetative tasks, such as randomizing slides.   If you have any questions please ask, you can post a question here and PM me.  Keep in mind that I am extremely busy and don’t always check in here.   

[Skylark]

Thank you, this is really good to have you here to ask questions! K2U! I will have a few that I was planning to ask, so I will post soon!

[Twinergy]

Using Macros in PPT 2007

Enabling Macros:
http://www.brighthub.com/computing/windows-platform/articles/10145.aspx

Creating New Macros:
http://www.brighthub.com/computing/windows-platform/articles/10147.aspx


How to Run a Macro:
http://www.brighthub.com/computing/windows-platform/articles/10242.aspx

Using Macros in PPT 2003

Creating New Macros:
http://office.microsoft.com/en-us/powerpoint/HP030890161033.aspx


How to Run a Macro:
http://office.microsoft.com/en-us/powerpoint/HP030890141033.aspx

[Twinergy]

Here is the code you would copy and paste into a macro to randomize slides:
(I am working on something better that will allow more sorting options, until then I found this code.  Check back for improvements.)

Sub sort_rand()

    Dim i As Integer
    Dim myvalue As Integer
    Dim islides As Integer
    islides = ActivePresentation.Slides.Count
   
    For i = 1 To ActivePresentation.Slides.Count
        myvalue = Int((i * Rnd) + 1)
        ActiveWindow.ViewType = ppViewSlideSorter
        ActivePresentation.Slides(myvalue).Select
        ActiveWindow.Selection.Cut
        ActivePresentation.Slides(islides - 1).Select
        ActiveWindow.View.Paste
    Next i

End Sub

[Twinergy]

Here is the code to set all your slides to advance after 2 seconds:
(if you want to change the number of seconds just change    myvalue = 2 to    myvalue =  # of seconds you want)


Sub Advance_slide()

    Dim i As Integer
    Dim myvalue As Integer
   
   
    myvalue = 2
   
    For i = 1 To ActivePresentation.Slides.Count
        With ActivePresentation.Slides(i).SlideShowTransition
            .AdvanceOnClick = msoTrue
            .AdvanceOnTime = msoTrue
            .AdvanceTime = myvalue
        End With
    Next i

End Sub

document.getElementById('recent_loading').style.display = 'none';document.getElementById('recent_page_box').style.display = '';

Page: 1/4  

Loading...

Members

• Total Members: 34231
• Latest: Merlin

Stats

• Total Posts: 47158
• Total Topics: 7163
• Online Today: 72
• Online Ever: 175
• (September 12, 2009, 10:55:55 PM)

Users Online

• Users: 8
• Guests: 59
• Total: 67
• Alm
  hypatia
  NadiaD
  aangeles
  Merlin
  cafemocha
  TatmingMing
  abbysam310