Results 1 to 5 of 5
  1. #1
    3 Star Lounger
    Join Date
    Jul 2001
    Location
    ASKER, Norway
    Posts
    277
    Thanks
    6
    Thanked 0 Times in 0 Posts

    Inserting LastSavedDate (Win 2000, Office XP)

    I would like to know when a document is last saved (or call it last issue date).

    I cannot find that I can do the same in PP as in Word, so how to insert the LastSavedDate e.g. in the footer?

    Bjorn

  2. #2
    Plutonium Lounger
    Join Date
    Mar 2002
    Posts
    84,353
    Thanks
    0
    Thanked 29 Times in 29 Posts

    Re: Inserting LastSavedDate (Win 2000, Office XP)

    PowerPoint doesn't offer this feature. If you really need this, you would need VBA, and this is not trivial, since PowerPoint is, let's say, VBA-challenged.

    The following will set the saved date in *all* your PowerPoint presentations when you save them - it may be more than you bargained for:
    <UL><LI>Create a blank new presentation.
    <LI>Activate the Visual Basic Editor (Alt+F11).
    <LI>Select Insert | Class Module.
    <LI>Enter or paste the following code:

    Public WithEvents App As Application

    Private Sub App_PresentationBeforeSave(ByVal Pres As Presentation, Cancel As Boolean)
    With ActivePresentation.SlideMaster.HeadersFooters
    With .DateAndTime
    .Format = ppDateTimeMdyy
    .Text = Date
    .UseFormat = msoFalse
    .Visible = msoTrue
    End With
    .Footer.Visible = msoTrue
    .SlideNumber.Visible = msoFalse
    End With
    End Sub

    <LI>Name this class module clsApp (in the Properties window)
    <LI>Select Insert | Module.
    <LI>Enter or paste the following code:

    Dim objApp As New clsApp

    Sub Auto_Open()
    Set objApp.App = Application
    End Sub

    <LI>Switch back to PowerPoint (Alt+F11).
    <LI>Save the presentation. If you ever need to modify the code, you will need it.
    <LI>Unfortunately, the Auto_Open won't be run automatically in a .ppt - presentations don't have automatically executed macros. You will have to create a PowerPoint add-in.
    <LI>Select File | Save As...
    <LI>In the 'Files of Type' box, select 'PowerPoint Add-In (*.ppa)'.
    <LI>Specify a name and save the add-in; it will be saved in the add-ins folder by default.
    <LI>Select Tools | Add-Ins...
    <LI>Click Add New...
    <LI>Select the add-in you created and click Load, then Close.[/list]From now on, the date will be set in the footer when you save a presentation. Is it worth the hassle?

  3. #3
    3 Star Lounger
    Join Date
    Jul 2001
    Location
    ASKER, Norway
    Posts
    277
    Thanks
    6
    Thanked 0 Times in 0 Posts

    Re: Inserting LastSavedDate (Win 2000, Office XP)

    Thanks a lot HansV,

    I will apply it at appropriate PP templates.

    Its sometimes very usefull to know the time for the issue of a presetation. One may have an old one ...

    Thanks!!

    Bjorn

  4. #4
    Plutonium Lounger
    Join Date
    Mar 2002
    Posts
    84,353
    Thanks
    0
    Thanked 29 Times in 29 Posts

    Re: Inserting LastSavedDate (Win 2000, Office XP)

    <big>Warning!</big>

    If you create and load the add-in I described, this will modify *each* PowerPoint presentation you save, not just some! If you only want to apply it to selected presentations, you could ask the user if the date should be set. To do so, modify the code in the .ppt, as indicated below, then save it as a .ppt first, then as a .ppa.

    Private Sub App_PresentationBeforeSave(ByVal Pres As Presentation, Cancel As Boolean)
    If MsgBox("Do you want to set the 'saved date' in the footer?", _
    vbQuestion + vbYesNo) = vbNo Then Exit Sub

    With ActivePresentation.SlideMaster.HeadersFooters
    With .DateAndTime
    .Format = ppDateTimeMdyy
    .Text = Date
    .UseFormat = msoFalse
    .Visible = msoTrue
    End With
    .Footer.Visible = msoTrue
    .SlideNumber.Visible = msoFalse
    End With
    End Sub

  5. #5
    3 Star Lounger
    Join Date
    Jul 2001
    Location
    ASKER, Norway
    Posts
    277
    Thanks
    6
    Thanked 0 Times in 0 Posts

    Re: Inserting LastSavedDate (Win 2000, Office XP)

    Thanks again!

    I will remember this and apply it as you suggest.

    Thanks!!!!!

    Bjorn

Posting Permissions

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