Results 1 to 7 of 7
  1. #1
    2 Star Lounger
    Join Date
    Jul 2001
    Location
    Kuala Lumpur , MALAYSIA
    Posts
    154
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Autosave everytime i quit power point (2000)

    Hello guys,

    I'm a newby in power point..please bear with me..

    Let say i have 1 presentation of power point..i named it 123..ppt

    Is there a macro that i can store ilke in excel..there are "personal.xls" that are always runs everytime we run

    excel

    Is there any in power point like the personal.xls in excel ?

    If there is , how can i do it and everytime i quit the presentation..i want to save it in another location..

    let say..i open it..in location : a:123.ppt..

    so everytime i quit the file..i want it to be save automatically in..c:windows

    is it possible..thanks

  2. #2
    2 Star Lounger
    Join Date
    Jul 2001
    Location
    Kuala Lumpur , MALAYSIA
    Posts
    154
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Re: Autosave everytime i quit power point (2000)

    hello jscher..

    thanks for the prompt reply..

    to be honest with , i'm really a newbie to this..

    if you dont mind, could plz upload some example file to me..so i can see and study it..

    just a request..if you dont mind..thanks..regards

  3. #3
    Super Moderator jscher2000's Avatar
    Join Date
    Feb 2001
    Location
    Silicon Valley, USA
    Posts
    23,112
    Thanks
    5
    Thanked 93 Times in 89 Posts

    Re: Autosave everytime i quit power point (2000)

    <P ID="edit" class=small>(Edited by jscher2000 on 25-May-04 11:28. Restored something I accidentally deleted...)</P>PowerPoint 2000 doesn't have a central code container like Excel's personal.xls or Word's Normal.dot, so it's a little more difficult to make things happen automatically.

    I wrote some macros that hook up PowerPoint to our document management system, and every time PPT saves the file to the server, it does a second save to a local folder on the C drive. This requires several code tricks to "intercept" the Save and SaveAs commands. You could do a similar thing with the Close command, as I sort of did in my code.

    In order to force PowerPoint to run my macros, I manually run a DoSetup macro. To make it more automatic, you could explore creating an add-in, either of the .PPA type or a COM Add-in (.DLL). I've done that for Outlook, but not PowerPoint, so can't be of much assistance there.

    Anyway, at the risk of code overload, here's how I intercept the Save command and Close event:

    1. <LI>Insert a new Class Module. I named mine clsPPTevts and will use that in the rest of this discussion. Add the following code to the class module:

      Option Explicit
      Public WithEvents ppApp As PowerPoint.Application
      Public WithEvents cbFileSave As CommandBarButton

      Private Sub cbFileSave_Click(ByVal Ctrl As Office.CommandBarButton, _
      CancelDefault As Boolean)
      ' Procedure runs when user invokes File>Save
      Call FileSave
      CancelDefault = True
      End Sub

      Private Sub ppApp_PresentationClose(ByVal pres As Presentation)
      If MsgBox("Mirror presentation to your hard drive?", vbYesNo) _
      = vbYes Then
      MirrorPres pres
      End If
      End Sub

      <LI>Insert a new code module. The name is not important, but something descriptive like modSaveLocal might be good. Add the following code to the module (I've chopped out the part that relates to our DMS):

      Option Explicit
      Dim PPevts As New clsPPTevts

      Sub DoSetup()
      ' Snag application events
      Set PPevts.ppApp = PowerPoint.Application
      ' Link buttons to event procedures
      Dim ctlBtn As CommandBarButton
      ' Save
      Set ctlBtn = Application.CommandBars.FindControl(Id:=3)
      Set PPevts.cbFileSave = ctlBtn
      ' Clean up
      Set ctlBtn = Nothing
      End Sub

      Sub FileSave()
      ActivePresentation.Save
      MirrorPres ActivePresentation
      End Sub

      Sub MirrorPres(ppFile As Presentation)
      If StrComp(Left(ppFile.Path, 3), "C:", vbTextCompare) = 0 Then 'already local!
      Debug.Print Time(), "MirrorPres skipped for " & ppFile.FullName
      Exit Sub
      Else
      Debug.Print Time(), "MirrorPres called for " & ppFile.FullName
      End If
      With ppFile
      ' Mirror based on [our DMS]
      If InStr(1, .Path, "folder1folder2", vbTextCompare) > 0 Then
      FileCopy .FullName, Replace(.FullName, "X:", "C:Mirror2", , , vbTextCompare)
      ElseIf InStr(1, .Path, "folder1folder3", vbTextCompare) > 0 Then
      FileCopy .FullName, Replace(.FullName, "Y:", "C:Mirror3", , , vbTextCompare)
      Else
      MsgBox "Unable to mirror to C drive. Use Save As to mirror locally."
      End If
      End With
      End Sub
    Obviously I've changed a few of the details there, and yours will be different. Hope this helps.

  4. #4
    Super Moderator jscher2000's Avatar
    Join Date
    Feb 2001
    Location
    Silicon Valley, USA
    Posts
    23,112
    Thanks
    5
    Thanked 93 Times in 89 Posts

    Re: Autosave everytime i quit power point (2000)

    <P ID="edit" class=small>(Edited by jscher2000 on 25-May-04 11:40. Added a disclaimer on p2)</P>Here's a re-worked sample.

  5. #5
    2 Star Lounger
    Join Date
    Jul 2001
    Location
    Kuala Lumpur , MALAYSIA
    Posts
    154
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Re: Autosave everytime i quit power point (2000)

    Thanks...i will study it..

  6. #6
    3 Star Lounger
    Join Date
    Dec 2002
    Location
    USA
    Posts
    397
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Re: Autosave everytime i quit power point (2000)

    I'm not aware of a way to do exactly what you want, however, Shyam Pillai's Sequential Save may be worth a look. This is a free add-in for PPT. http://www.mvps.org/skp/seqsave.htm

  7. #7
    2 Star Lounger
    Join Date
    Jul 2001
    Location
    Kuala Lumpur , MALAYSIA
    Posts
    154
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Re: Autosave everytime i quit power point (2000)

    thanks echo

Posting Permissions

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