Hyperlinks and Kiosk Mode

[kimkom]

Hi,

Hope you can help... this is concerns a problem I'm having with the 'Set Up
Show' options.

Is there a way to link from a PPT created in 'Presented by a speaker' mode
to one created with 'Browse at a kiosk' mode and retain the restricted kiosk
mode navigation?

Currently I have several PPTs created in kiosk mode which work as expected
when launched individually. However, if launched from a hyperlink in another
PPT all kiosk mode features are lost and the user can navigate via keyboard
and right mouse click.

I need to keep the main hyperlinking PPT in 'Presented by speaker' mode due
to it linking to lots of other files that allow navigation via keyboard and
mouse clicks.

Thanks in advance

 

[David Marcovitz]

Unfortunately, what you are experiencing is the way that it works. When you
start a presentation, it honors the setting (e.g. Kiosk mode). When you link
to a presentation from an other presentation, it ignores the setting in the
linked presentation and follows the setting of the presentation that started
the chain of links. It can be quite annoying at times. I don't know of any
way around this.
--David

Hi,

Hope you can help... this is concerns a problem I'm having with the 'Set Up
Show' options.

Is there a way to link from a PPT created in 'Presented by a speaker' mode
to one created with 'Browse at a kiosk' mode and retain the restricted kiosk
mode navigation?

Currently I have several PPTs created in kiosk mode which work as expected
when launched individually. However, if launched from a hyperlink in another
PPT all kiosk mode features are lost and the user can navigate via keyboard
and right mouse click.

I need to keep the main hyperlinking PPT in 'Presented by speaker' mode due
to it linking to lots of other files that allow navigation via keyboard and
mouse clicks.

Thanks in advance

--
David M. Marcovitz
Author of _Powerful PowerPoint for Educators_
http://www.PowerfulPowerPoint.com/
Microsoft PowerPoint MVP
Associate Professor, Loyola University Maryland

 

[kimkom]

Thanks for the replies, extremely informative!

I have another look tomorrow when I get a chance.

Steve,

You'll have gathered that converting all the presentations to Kiosk mode
isn't really an option - too late in development.

Are you saying to create a macro for each link starting something like:
Sub Launch_File1
and
Sub Launch_File2
etc

and having the path to each file within each routine?

Many thanks

 

[John Wilson]

Sometime s this trick will work. (but maybe not if you are distributing the
presentations)

"Link to Kiosk fron Non Kiosk"
http://www.pptalchemy.co.uk/powerpoint_hints_and_tips_tutorials.html#Tricks

 

[kimkom]

Steve,

Thanks very much for taking the time to reply. Your advice has been
extremely helpful, I will give it a try when I get some free time from the
various other projects I've got on the go at the moment! I'll post how I get
on.

Thanks again,
Mike

 

[kimkom]

John,

Thanks for the advice, nice trick that. Unfortuately most of the PPTs
involved contain macros I'm using, so I don't believe using the Viewer is an
option.

Regards,
Mike

 

[kimkom]

Steve,

Thanks! That seems to work except for another issue I'm now having.

Below is the routine I'm using which you graciously provided:

Sub LaunchInKioskMode(oSh As Shape)
Dim oPres As Presentation
Dim sPresName As String

sPresName = oSh.AlternativeText
If Len(sPresName) > 0 Then
Set oPres = Presentations.Open(sPresName, _
True, , False)
End If

With oPres.SlideShowSettings
.ShowType = ppShowTypeKiosk ' or ppShowTypeSpeaker etc
.LoopUntilStopped = msoFalse
.ShowWithNarration = msoTrue
.ShowWithAnimation = msoTrue
.RangeType = ppShowAll
.AdvanceMode = ppSlideShowUseSlideTimings
.PointerColor.RGB = RGB(Red:=255, Green:=0, Blue:=0)
.Run
End With

End Sub



The problem is that when using this routine to link to another PPT, I no
longer get the 'Enable/Disable Macros?' dialog when the linked PPT is
launched. It looks like the macros ARE enabled in the linked file (which is
fine).

However, the routine below (which is contained within the linked file and
tests to see if the linked PPT is in 'Read Only' mode or not) now just throws
up that it currently IS in 'Read Only' mode even when it's not.


End SubSub ReadOnlyTest()

If ActivePresentation.ReadOnly = msoTrue Then
ActivePresentation.SlideShowWindow.View.GotoSlide 2
Exit Sub
Else
ActivePresentation.SlideShowWindow.View.GotoSlide 3
End If

End Sub



I'm not sure if this is down to my poor coding or the fact that the macros
are not working correctly.

Any ideas?

Many thanks,
Mike

 

[kimkom]

Sorry, typo on my cut and pasted code. Should have read:

Sub ReadOnlyTest()

If ActivePresentation.ReadOnly = msoTrue Then
ActivePresentation.SlideShowWindow.View.GotoSlide 2
Exit Sub
Else
ActivePresentation.SlideShowWindow.View.GotoSlide 3
End If

End Sub



Mike

 

[kimkom]

Ah, I understand what the problem is now. The 'Read only' state is being set
with the line:

Set oPres = Presentations.Open(sPresName, True, , False)

Where 'True' is setting the file to open as 'Read only'

Trying to resolve this now by setting to msoMixed (?)


Mike

 

[kimkom]

Steve,

Sorry for my ramblings, but I think I've fixed the issue now. Just changed
your code to read:

Set oPres = Presentations.Open(sPresName, , False, False)

In effect not specifying whether it's read-only or not.

Thanks a lot, your code worked a treat. I just had to adapt to my specific
project.

I just hope I've got the syntax right now!

Thanks,
Mike