UtterAccess.com
X   Site Message
(Message will auto close in 2 seconds)

Welcome to UtterAccess! Please ( Login   or   Register )

Custom Search
 
   Reply to this topicStart new topic
> Macro For Datestamp On All Pages Not Working In 2010, Office 2010    
 
   
Hatman50
post Aug 22 2014, 08:07 AM
Post#1



Posts: 138
Joined: 24-October 13
From: Port Elgin, Ontario, Canada


We have a macro that was recorded in PP2003 to update the Master Notes & Notes Pages with a Date & Time stamp in the footer.
Everything worked fine in 2003 but it fails in 2010. It only updates the Master but does not update the Notes.
And we can't record a new macro in 2010 (why would MS remove this feature? :thumbdn: :shrug: )
In any case, following is the VBA which I am not very familiar with at all. Hence the frustration associated with not being able to Record a Macro.
Is there something missing that is needed to be able to update the Master AND the Notes pages?
Thanks for any help on this!
CODE
[size="2"]Sub Footer_Right()
ActiveWindow.ViewType = ppViewNotesMaster
    ActivePresentation.NotesMaster.Shapes("Rectangle 7").Select
    With ActiveWindow.Selection.ShapeRange
        .Fill.Transparency = 0#
        .Height = 32
        .Width = 300
        .Left = 235
        .Top = 690
    End With
    With ActiveWindow.Selection.ShapeRange
        .Fill.Transparency = 0#
        .Left = 229.5
    End With
    ActiveWindow.Selection.ShapeRange.Fill.Transparency = 0#
    ActivePresentation.NotesMaster.Shapes("Rectangle 7").Select
    ActiveWindow.Selection.ShapeRange.TextFrame.TextRange.Select
    ActiveWindow.Selection.ShapeRange.TextFrame.TextRange.Select
    ActiveWindow.Selection.ShapeRange.TextFrame.TextRange.Characters(Start:=1, Length:=55).Select
    ActiveWindow.Selection.TextRange.Text = ""
    ActiveWindow.Selection.ShapeRange.TextFrame.TextRange.Characters(Start:=1, Length:=0).Select
    With ActiveWindow.Selection.TextRange
        .Text = "Page "
        With .Font
            .Name = "Arial"
            .Size = 11
            .Bold = msoFalse
            .Italic = msoFalse
            .Underline = msoFalse
            .Shadow = msoFalse
            .Emboss = msoFalse
            .BaselineOffset = 0
            .AutoRotateNumbers = msoFalse
            .Color.RGB = RGB(Red:=88, Green:=48, Blue:=151)
        End With
    End With
    ActiveWindow.Selection.ShapeRange.TextFrame.TextRange.Characters(Start:=6, Length:=0).InsertSlideNumber
    ActiveWindow.Selection.ShapeRange.TextFrame.TextRange.Characters(Start:=9, Length:=0).Select
    With ActiveWindow.Selection.TextRange
        .Text = Chr$(CharCode:=13)
        With .Font
            .Name = "Arial"
            .Size = 11
            .Bold = msoFalse
            .Italic = msoFalse
            .Underline = msoFalse
            .Shadow = msoFalse
            .Emboss = msoFalse
            .BaselineOffset = 0
            .AutoRotateNumbers = msoFalse
            .Color.RGB = RGB(Red:=88, Green:=48, Blue:=151)
        End With
    End With
    ActiveWindow.Selection.Unselect
    ActivePresentation.NotesMaster.Shapes("Rectangle 7").Select
    ActiveWindow.Selection.ShapeRange.TextFrame.TextRange.Select
    ActiveWindow.Selection.ShapeRange.TextFrame.TextRange.Characters(Start:=10, Length:=0).Select
    ActiveWindow.Selection.ShapeRange.TextFrame.TextRange.Characters(Start:=27, Length:=0).InsertDateTime DateTimeFormat:=ppDateTimedMMMMyyyy, InsertAsField:=msoFalse
    ActiveWindow.Selection.ShapeRange.TextFrame.TextRange.Characters(Start:=43, Length:=0).Select
    With ActiveWindow.Selection.TextRange
        .Text = "  "
        With .Font
            .Name = "Arial"
            .Size = 11
            .Bold = msoFalse
            .Italic = msoFalse
            .Underline = msoFalse
            .Shadow = msoFalse
            .Emboss = msoFalse
            .BaselineOffset = 0
            .AutoRotateNumbers = msoFalse
            .Color.RGB = RGB(Red:=88, Green:=48, Blue:=151)
        End With
    End With
    ActiveWindow.Selection.ShapeRange.TextFrame.TextRange.Characters(Start:=45, Length:=0).InsertDateTime DateTimeFormat:=ppDateTimehmmAMPM, InsertAsField:=msoFalse
    ActiveWindow.ViewType = ppViewNotesPage
    ActiveWindow.ViewType = ppViewNotesPage
End Sub
[/size]
Go to the top of the page
 
nmurray
post Aug 31 2014, 12:57 AM
Post#2



Posts: 439
Joined: 28-February 11
From: UK


Hi
Macros have moved to the developer tab, which you need to enable first as it isn't by default.
Step 1
In PowerPoint, right-click the "Quick Access Toolbar," which is in the upper left corner next to the Publisher icon. Select "Customize the Ribbon."
Step 2
Select "All Tabs" under Customize the Ribbon on the right.
Step 3
Select the Developer Tab check box in the list of tabs available. Click "OK." The Developer tab appears on the PowerPoint Ribbon
Go to the top of the page
 


Custom Search
RSSSearch   Top   Lo-Fi    11th December 2017 - 03:48 PM