Powerpoint 2007?

Hej

Jeg har lavet et powepoint presentation. Hvordan indstiller man diasshowet til at vise blandet indhold, altså at den skal blande mellem billederne og ikke vise dem i rækkefølge som den gør nu.

Jeg burger Powerpoint 2007

Nogen der ved hvad der skal gøres?

Hej Kim,

Tak for linket, det virker faktisk ikke, jeg prøver den lige på en anden pc senere idag.

Hej,

Du kan også gøre det med denne makro:

Sub RandomizeSlides()
    Dim intIndex As Integer
    Dim intRandomSlide As Integer
    Dim intSlides As Integer
    
    intSlides = ActivePresentation.Slides.Count
    For intIndex = 1 To ActivePresentation.Slides.Count
        intRandomSlide = Int((intIndex * Rnd) + 1)
        ActiveWindow.ViewType = ppViewSlideSorter
        ActivePresentation.Slides(intRandomSlide).Select
        ActiveWindow.Selection.Cut
        ActivePresentation.Slides(intSlides - 1).Select
        ActiveWindow.View.Paste
    Next

End Sub

Det gør du ved at åbne en ny præsentation. Her trykker du alt + F11 så et nyt vindue kommer frem. 

Så trykker du insert i menuen og vælger modul, hvorefter du paster koden ind. Så skulle det gerne virke :)

Håber det hjalp, hvis du ikke kan få Kims forslag til at virke.

vh

Henrik Christiansen

http://powerpointskabeloner.dk/

altså jeg har prøvet at rette på den lidt, men det er svært at gætte på resten. Dem je har markeret med FED er helt sikkert fokert, det kan du se på kodesprogret.

Sub RandomizeSlides()

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

End Sub

Hej igen,

Hmm. Prøv dette i stedet:

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

End Sub

Du skal nok også sænke sikkerhedsniveauet i PowerPoint, 

så makroen kan køre. 

Her er en guide til det: http://www.pptfaq.com/FAQ00033.htm

Håber det hjælper.

Venlig hilsen

Henrik Christiansen

http://powerpointskabeloner.dk/

Ingen kan hjælpe?

Jeg er bange for der ikke lige er en løsning på det. Jeg har lige google lidt rundt og har ikke set nogen løsninger på det desværre.

Venlig hilsen

Henrik Christiansen

www.powerpointskabeloner.dk