Results 1 to 4 of 4
  1. #1
    5 Star Lounger
    Join Date
    Jan 2001
    Location
    Jacksonville,NC, USA
    Posts
    705
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Screensaver Question

    Can I use a powerpoint presentation as a screensaver on my desktop, without downloading any programs packed with ad ware or the like...any suggestions.
    NMP <img src=/S/cool.gif border=0 alt=cool width=15 height=15>

    If you can't convince them, confuse them. - Harry Truman <img src=/S/scratch.gif border=0 alt=scratch width=25 height=29>

  2. #2
    Platinum Lounger
    Join Date
    Jan 2001
    Location
    Quedgeley, Gloucester, England
    Posts
    5,333
    Thanks
    0
    Thanked 1 Time in 1 Post

    Re: Screensaver Question

    I'm not sure if you've Googled for powerpoint presentation screensaver and found lots of possible programs, or are asking whether anyone has used one and knows it to be malware-free?

    At work, when I was there, the "marketing department" wanted to implement something less adventurous, and have a "uplifting message of the day" displayed on everyone's screen when they logged on in the morning. It took a remarkable amount of scorn and ridicule before they dropped the idea (and only following our estimate of how much it would cost to implement!!).

    John
    <font face="Script MT Bold"><font color=blue><big><big>John</big></big></font color=blue></font face=script>

    Ita, esto, quidcumque...

  3. #3
    5 Star Lounger
    Join Date
    Jan 2001
    Location
    Jacksonville,NC, USA
    Posts
    705
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Re: Screensaver Question

    (Edited by HansV to make URL clickable - see <!help=19>Help 19<!/help>)

    Just asking for a student, and the link that I received in another forum here solved it. Thank you.

    That link was

    http://www.screentime.com/st_pp_details.html

    Commercial/Personal Distribution License: $49.00

    If you are going to distribute less than 10,000 screen savers, choose the Commercial License. This license allows you to distribute up to 10,000 screen savers.

    For example you could distribute 1,000 copies of 10 different screen savers.

    NMP
    NMP <img src=/S/cool.gif border=0 alt=cool width=15 height=15>

    If you can't convince them, confuse them. - Harry Truman <img src=/S/scratch.gif border=0 alt=scratch width=25 height=29>

  4. #4
    Super Moderator
    Join Date
    May 2002
    Location
    Canberra, Australian Capital Territory, Australia
    Posts
    5,054
    Thanks
    2
    Thanked 417 Times in 346 Posts

    Re: Screensaver Question

    Hi NMP,

    Another Lounge Contributor, GarryBrooke, developed some PwrPt vba to do something similar - see <post#=161211>post 161211</post#>. I don't know if he ever solved a problem he was having escaping from it, though.

    The following code, which I picked up somwehere, does something similar also. You will need to specify a valid home directory in the line: Sub PictureShow()Const strHome As String = "C:FullPath" or add an API call to SHBrowseForFolder to allow the user to choose a directory.

    <pre>Option Explicit
    '
    Sub PictureShow()Const strHome As String = "C:FullPath"
    Dim strFile As String
    Dim sld As Slide
    Dim shp As Shape
    strFile = Dir(strHome & "*.*")
    Do While strFile <> ""
    Set sld = ActivePresentation.Slides.Add(Index:=1, Layout:=ppLayoutBlank)
    Set shp = sld.Shapes.AddPicture(FileName:=strHome & strFile, _
    LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, _
    Left:=1, Top:=1, Width:=1, Height:=1)
    shp.ScaleHeight 1, msoTrue
    ' scale picture to full size
    shp.ScaleWidth 1, msoTrue
    With ActivePresentation.PageSetup
    ' center picture
    shp.Left = (.SlideWidth 2) - (shp.Width 2)
    shp.Top = (.SlideHeight 2) - (shp.Height 2)
    End With
    strFile = Dir()
    Loop
    Set shp = Nothing
    Set sld = Nothing

    ' Make slide master background black
    With ActivePresentation.SlideMaster.Background
    .Fill.Visible = msoTrue
    .Fill.ForeColor.RGB = RGB(0, 0, 0)
    .Fill.Transparency = 0#
    .Fill.Solid
    End With

    ' Setup 5 seconds between slides
    With ActivePresentation.Slides.Range.SlideShowTransitio n
    .EntryEffect = ppEffectNone
    .AdvanceOnClick = msoTrue
    .AdvanceOnTime = msoTrue
    .AdvanceTime = 5
    .SoundEffect.Type = ppSoundNone
    End With

    ' Setup show and run it continuously
    With ActivePresentation.SlideShowSettings
    .ShowType = ppShowTypeSpeaker
    .LoopUntilStopped = msoTrue
    .ShowWithNarration = msoTrue
    .ShowWithAnimation = msoTrue
    .RangeType = ppShowAll
    .AdvanceMode = ppSlideShowUseSlideTimings
    .PointerColor.SchemeColor = ppForeground
    .Run
    End With
    End Sub
    </pre>

    Cheers,

    Paul Edstein
    [MS MVP - Word]

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •