/ Forside / Teknologi / Administrative / MS-Office / Nyhedsindlæg
Login
Glemt dit kodeord?
Brugernavn

Kodeord


Reklame
Top 10 brugere
MS-Office
#NavnPoint
sion 18709
refi 14474
Klaudi 9389
Rosco40 5695
berpox 5456
dk 5398
webnoob 4919
Benjamin... 4870
o.v.n. 4637
10  EXTERMINA.. 4373
VBA PowerPoint
Fra : Tue Hellstern


Dato : 29-01-01 17:23

Hej NG
I PowerPoint 2000 vil jeg gerne via VBA og en knap på et dias kalde en anden
PowerPoint præsentation. Er der nogen der kan hjælpe med VBA koden til
dette.Jeg ved godt at det er muligt at vælge, men jeg vil gerne gøre det via
VBA.

Hilsen
Tue



 
 
Erik Svensen (30-01-2001)
Kommentar
Fra : Erik Svensen


Dato : 30-01-01 16:50

Hej Tue,

Her er lidt kode til at åbne en anden PowerPoint præsentation

Sub OpenAnotherPPFile()
Dim ppf As Presentation

Set ppf = Application.Presentations.Open("C:\My
Documents\TheOtherOne.ppt")

'hvis du ønsker at køre præsentationen
ppf.SlideShowSettings.Run

End Sub

mvh
Erik Svensen

"Tue Hellstern" <info@f1-support.dk> wrote in message
news:oRgd6.19278$l57.797694@news000.worldonline.dk...
> Hej NG
> I PowerPoint 2000 vil jeg gerne via VBA og en knap på et dias kalde en
anden
> PowerPoint præsentation. Er der nogen der kan hjælpe med VBA koden til
> dette.Jeg ved godt at det er muligt at vælge, men jeg vil gerne gøre det
via
> VBA.
>
> Hilsen
> Tue
>
>



Tue Hellstern (30-01-2001)
Kommentar
Fra : Tue Hellstern


Dato : 30-01-01 22:13

Hej Erik

> Her er lidt kode til at åbne en anden PowerPoint præsentation

Din kode virker perfekt, mange tak.
Jeg har dog tilføjet lidt, men jeg ved ikke om der er en pænere måde at gøre
dette på.
Problemet er at den "gamle" præsentation skal lukkes og vinduet skal
skjules.

Kode:
ActivePresentation.Close
Application.WindowState = ppWindowMinimized

Set ppf = Application.Presentations.Open("C:\Test2.ppt")
ppf.SlideShowSettings.Run

Endnu en gang Tak
Tue



Erik Svensen (01-02-2001)
Kommentar
Fra : Erik Svensen


Dato : 01-02-01 17:37

Det var så lidt

"Tue Hellstern" <info@f1-support.dk> wrote in message
news:fcGd6.20391$l57.878792@news000.worldonline.dk...
> Hej Erik
>
> > Her er lidt kode til at åbne en anden PowerPoint præsentation
>
> Din kode virker perfekt, mange tak.
> Jeg har dog tilføjet lidt, men jeg ved ikke om der er en pænere måde at
gøre
> dette på.
> Problemet er at den "gamle" præsentation skal lukkes og vinduet skal
> skjules.
>
> Kode:
> ActivePresentation.Close
> Application.WindowState = ppWindowMinimized
>
> Set ppf = Application.Presentations.Open("C:\Test2.ppt")
> ppf.SlideShowSettings.Run
>
> Endnu en gang Tak
> Tue
>
>



Søg
Reklame
Statistik
Spørgsmål : 177552
Tips : 31968
Nyheder : 719565
Indlæg : 6408849
Brugere : 218887

Månedens bedste
Årets bedste
Sidste års bedste