Alt det andet om at starte virksomhed

Svar: Powerpoint 2007?

Eksperten — Wed, 04 Aug 2010 14:07:34 GMT

Nej gøre ikke noget forkert har bare et kæmpe fladskærm og slides'ne skal blandes når de vises ikk andet:)

Svar: Powerpoint 2007?

Agent — Wed, 04 Aug 2010 13:05:28 GMT

Hej

Jeg har tidligere fundet denne på nettet. Sidste version skulle virke til 2007.
Har dog ikke selv afprøvet den!

The Random Slideshow

/Flemming

Svar: Powerpoint 2007?

MichaelValentin — Wed, 04 Aug 2010 12:50:01 GMT

Af ren nysgerrighed spørger jeg lige hvorfor du har brug for at blande dine slides..

Jeg kan nemlig godt selv se meningen med at funktionen ikke er implementeret. Power Point er jo et præsentationsværktøj, og ved en præsentation er der vel netop en mening med at sætte tingene i en bestemt rækkefølge?

Det er ikke for at sige at du gør noget forkert, jeg undrer mig blot :o)

Svar: Powerpoint 2007?

Eksperten — Wed, 04 Aug 2010 12:23:10 GMT

Ja det er lidt mærkeligt, denne funktion burde være i powerpoint, men ved ikke helt hvorfor de ikke har medtaget den med.

Svar: Powerpoint 2007?

Henrik Christiansen — Wed, 04 Aug 2010 12:12:18 GMT

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

Svar: Powerpoint 2007?

Eksperten — Wed, 04 Aug 2010 06:27:25 GMT

Ingen kan hjælpe?

Svar: Powerpoint 2007?

Eksperten — Tue, 03 Aug 2010 09:09:38 GMT

Hej Henrik

Tak for hjælpen.

Denne kode skal jeg jo køre hver gang jeg skal starte diasshowet, altså den blander alle billederne når jeg tilføjer koden og trykker på run i VBA. Det jeg gerne vil have den til at gøre er: når jeg har gemmet diasshowet som "Gem som->powerpoint diasshow" er at den skal blande billederne hver gang jeg starte denne fil(powerpoint diasshow".

Svar: Powerpoint 2007?

Henrik Christiansen — Mon, 02 Aug 2010 20:57:30 GMT

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/

Svar: Powerpoint 2007?

Eksperten — Sun, 01 Aug 2010 14:40:21 GMT

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&#40;&#40;intIndex * Rnd&#41; + 1&#41;
        ActiveWindow.ViewType = ppViewSlideSorter
        ActivePresentation.Slides&#40;intRandomSlide&#41;.Select
        ActiveWindow.Selection.Cut
        ActivePresentation.Slides&#40;intSlides - 1&#41;.Select
        ActiveWindow.View.Paste
    Next

End Sub

Svar: Powerpoint 2007?

Eksperten — Sun, 01 Aug 2010 14:33:58 GMT

Har gjotr som du siger, men en del af koden er forkert, det er markeret med rødt

Henrik Christiansen:
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

Kims forslag virker åbenbart ikke på powerpoin 2007.

Flere forslag?

Svar: Powerpoint 2007?

Henrik Christiansen — Sun, 01 Aug 2010 13:10:15 GMT

Hej,

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

Sub RandomizeSlides&#40;&#41;
    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&#40;&#40;intIndex * Rnd&#41; + 1&#41;
        ActiveWindow.ViewType = ppViewSlideSorter
        ActivePresentation.Slides&#40;intRandomSlide&#41;.Select
        ActiveWindow.Selection.Cut
        ActivePresentation.Slides&#40;intSlides - 1&#41;.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/

Svar: Powerpoint 2007?

Eksperten — Sun, 01 Aug 2010 12:21:33 GMT

Hej Kim,

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

Svar: Powerpoint 2007?

Kim Gregersen — Sun, 01 Aug 2010 12:07:12 GMT

Jeg bruger denne add in

http://www.tushar-mehta.com/powerpoint/randomslideshow/

Powerpoint 2007?

Eksperten — Sun, 01 Aug 2010 11:44:50 GMT

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?