Steve,
Guess I could have been a little more forthcoming, just
asumed that you could read my mind.
In the Action Setting, I right clicked on the logo,
selected "ActionSettings" Clicked on Run Program and
Browsed to my first executable. That works fine for that
one document, but I didn't see any way to launch the
second and third.
As to the Macro it looked like this:
Sub Launch()
'
' Macro recorded 6/28/2004 by
'
ActiveWindow.Selection.SlideRange.Shapes("Picture
2").Select
With ActiveWindow.Selection.ShapeRange.ActionSettings
(ppMouseClick)
.Run = "C:\Documents and Settings\Ezenia
Employee\My Documents\IWS Install
Files\IWS_Client_2512.exe"
.SoundEffect.Type = ppSoundNone
.AnimateAction = msoFalse
End With
With ActiveWindow.Selection.ShapeRange.ActionSettings
(ppMouseClick)
.Run = "C:\Documents and Settings\Ezenia
Employee\My Documents\IWS Install Files\
IWS_BrowserPlugin_2512.exe "
.SoundEffect.Type = ppSoundNone
.AnimateAction = msoFalse
End With
With ActiveWindow.Selection.ShapeRange.ActionSettings
(ppMouseClick)
.Run = "C:\Documents and Settings\Ezenia
Employee\My Documents\IWS Install Files\
Placeware_251.exe "
.SoundEffect.Type = ppSoundNone
.AnimateAction = msoFalse
End With
With ActiveWindow.Selection.ShapeRange.ActionSettings
(ppMouseOver)
.Action = ppActionNone
.SoundEffect.Type = ppSoundNone
.AnimateAction = msoFalse
End With
End Sub
My attempt at using the shell command looks like:
Public Sub IWS_Client_2512()
Dim IWSClientVal
IWSClientVal = Shell("c:\Documents and Settings\Ezenia
Employee\My Documents\IWS Install
Files\IWS_Client_2512.exe", 1)
End Sub
Public Sub IWS_Browser_Plugin()
Dim IwspiVal
IwspiVal = Shell("c:\Documents and Settings\Ezenia
Employee\My Documents\IWS Install
Files\IWS_BrowserPlugin_2512.exe", 1)
End Sub
Public Sub Placeware()
Dim PWVal
PWVal = Shell("c:\Documents and Settings\Ezenia
Employee\My Documents\IWS Install
Files\Placeware_251.exe", 1)
End Sub
Each individual subroutine does its job individually, but
if I run from the presentation only the first segment runs
and then it stops.
I am sure it is something reasonably simple if I
understood VB or Macros, and I should take some time to
learn the basics before attempting the the more complex.
Unfortunately time doesn't permit.
Thanks for your continued interest and patience.
Jay
-----Original Message-----
I've tried using the action setting and then tried
duplicating its action in the VBA edit screen and I've
tried recording a macro as well as looking at a VB manual
and trying to use the Shell Command to launch the
installers.
In all cases I seem to end up with three subroutines and
only the first will execute.
Thanks, but when I said specifics, I mean hardcore, obsessive, only an
anal-retentive's mother could love 'em specifics. ;-)
What exact action setting did you use?
What macro code did you add? What's the content of the subroutines?
At some point in the future the Install Shield will be
redone to bring everything under one executable, but that
future is not soon enough for my needs(typical salesman).
I don't have the knowledge to launch one application from
the preceding one, it would have to be done by our
development team and they are swamped at the moment.
OK, I hear that. Whatever happens, it's got to happen in PPT.
Any suggestions are appreciated.
-----Original Message-----