Excel og Powerpoint

Du skal gemme din præsentation som powerpoint show, så burde det kunne lade sig gøre.

Ja men hvordan?

Lav et link:
Ctrl+K, vælg din powerpointfil.
Så er den der.

Det løser vel ikke problemet at den skal starter fra en menu-knap

vha VBA

Jeg har lige lavet et med et link, og det virker. Jeg forsøger lige at indspille som makro.

I PowerPoint vælger du gem som, og vælger PowerPoint show (pps)

Du markerer din knap og så CTRL+K, så er den der vist.

Jeg prøver men nu kalder hustruen så det bliver desværre nok først i morgen.

ok

Du kan også gøre som moso foreslår. Lav en knap, og tilføj dit hyperlink.

Det er ikke muligt at inspille denne handling til makro/vba.

Så fandt jeg koden

Sub StartPPS()

Dim oApp As PowerPoint.Application
Dim myPresentation As PowerPoint.Presentation

  Set oApp = CreateObject("PowerPoint.Application")
  oApp.Visible = True

Set myPresentation = oApp.Presentations.Open("Stien til dit show")
End Sub

Virker hos mig

Kopier følende til et modul i din projektmappe og knyt makroen til en knap i vætrktøjslinje. Det skulle gerne starte en præsentation (ret selv sti og filnavn til det rigtige), hvis den er gemt som PPS.

Sub StartPres()

'Jan Kronsell 09-2003
'Vi erklærer en 0bjektvariabel
    Dim PPapp As Object

'Undersøger om PP er startet
    On Error Resume Next
    Set PPapp = GetObject(, "powerpoint.application")
    If Err.Number <> 0 Then

'Ellers startes PP
        Set PPapp = CreateObject("powerpoint.Application")
            PPapp.Visible = True
    End If

'Så åbnes præsentationen
  PPapp.Presentations.Open Filename:="C:\Test\pres.pps", ReadOnly:=msoFalse

'Og frigiver hukommelse når PP lukkes
    Set PPapp = Nothing

End Sub

Hov-sa-> Ja, man skal huske at checke opdateringer, der kommer, mens man arbejder :-(

Tja, det sker jo for os alle med mellemrum.

Iøvrigt kan jeg se, at din kode har samme problem som min :-) nemlig at den ikkke lukker Powerpoint efter sig.

--> jkrons Ja det er faktisk et problem at man dels ser Powerpointy starte op inden showet starter og at powerpoint ikke lukker automatisk.

stensommer-> Problemet er dels, at du ikke kan vente med at gøre PP visible til præsentationen er startet. Den kan ikke åbne, hvis den ikke har en frame at åbne i.
Den anden side er, at hvis du lader koden lukke PP igen, sker det umiddelbart. Altså så snart præsentationen er åbnet; den afventer ikke at præsentationen køres.

Ja jeg forstår problemet - istedet har jeg prøvet at gemme showet som htm-fil. Er du umiddelbart klar over hvorledes denne åbnes fra en kommandoknap i Excel (det afhjælper problemet at ikke alle er i besiddelse af Powerpoint)

Jeg har prøvet det samme, men hos mig (XP) ved den godt, at der er tale om en PP genereret HTML fil, og derfor åbner den hele tiden i PP og ikke i browseren, når jeg åbner inde fra Excel. Åbner jeg derimod fra stifinderen, åbner den i browseren.

Jeg har fundet dette sted på nettet.
http://www.visualbasicforum.com/t46069.html
Her beskrives en lukning efter sidste slide, måske kan jkrons hjælpe med at få det ind i den anden kode? Er  desværre ikke så rutineret på vba området.

Samme problem her. Men man må da vha VBA kunne fortælle Excel at det er IE der skal anvendes

Ja, det kan du godt. Du skal fjerne de linjer i HTM filen, der handler om PP. Men så får du til gengælkd en lidt underlig meddelses i Excel inden præsentationen starter. Jeg "leger" lige lidt med det.

-->hov-sa    Ha - jeg prøvede lige for sjov at sætte de lukke procedurer ind i den VBA jkrons har lavet. Man skal godt nok være hurtig for at se Præsentationen inden Powerpoint lukker (man har vel ca ½ sek)

Problemet er, at den viste kode åbner PP for at kopiere noget derover fra Excel. Ikke for at vise en præsentation.

Ja det bemærkede jeg

Hej jkrons - var lige ved at lægge spørgsmålet ud til MS usergroup, men kan se du allerede har gang i det. Spændende om der bliver nogen respons ;)

Ja, fotreløbigt ikke så meget :-(  Jeg tror at løsningen på en eller anden måde må være at lægge selve lukningen af PP i præsentationen. Jeg er bare ikke sikker på om PPS filer kan afvikle makroer.

Hvad med dette, det ser da ud til at kunne bruges
http://www.mvps.org/skp/vb/vbppt001.htm

hov-sa-> Det virker tilsyneladende perfekt.

Og det betyder at min løsning også fungerer i denne modificerede udgave. Dog kan man stadig se PP åbne, hvis PC'en er for langsom.

Sub StartPres()
'Jan Kronsell 09-2003
'Vi erklærer en 0bjektvariabel
    Dim PPapp As Object

'Og tildeler dem en værdi baseret på indholdet af arket

'Undersøger om PP er startet
    On Error Resume Next
    Set PPapp = GetObject(, "powerpoint.application")
    If Err.Number <> 0 Then

'Ellers startes PP
        Set PPapp = CreateObject("powerpoint.Application")
            PPapp.Visible = True
    End If

'Så åbnes præsentationen
  PPapp.Presentations.Open Filename:="C:\test\pres.pps", ReadOnly:=msoFalse
  Do While PPapp.SlideShowWindows.Count > 0
      DoEvents
  Loop
'Og afslutter
    PPapp.ActivePresentation.Close
    PPapp.Quit

    Set PPapp = Nothing


End Sub

Fedt, du har ret det virker. Det kan betale sig at lede på nettet.

Enig, og MVP sider er ret gode - jeg havde bare ikke tid til lede. Nu må vi se om Steen kan bruge løsningen.

I har da fuldstændig ret - det fungerer godt. Ikke for at være utaknemmelig men jeg vil dog fortsat gerne anvende en htm-fil (for at være uafhængig af om powerpoint er installeret på afviklende computer). Har i fundet noget om det?? NB Jeg fordeler point ligeligt mellem hov-sa og jkrons er det ok?

Det med point er o.k., det har jo været team-work. Det med htm, har ikke været nævnt, de steder jeg har været inde og besøge, og det er mange........

Helt OK med pointdeling. Jeg tror ikke umiddelbart at HTM er en farbar vej, hos de brugere, der har PP installeret, da den så åbner i PP i stedet for browseren, og hos de andre, vil de skulle gennem et ekstra trin. Har du overvejet en PDF-fil?

Nej det havde jeg ikke. Hvorledes skal den behandles? Jeg har muligheden vha Adobe Acrobat 5.0 - kan den umiddelbart konverteres?

Det vil jeg mene, men desværre har jeg kun acro på jobbet, og de næste to uger er jeg sygemeldt med en brækket arm :-(

Føj for pokker - du må da hellere blive bag computeren for en anden gangs skyld. God bedring.

Tak!  Og jeg kan se at du fik hjælp til at åbne pdf-filen fra Hugo, så held og lykke.