|
|
#2
08-22-2014, 11:32 PM
|
|||
|
|||
Your code should actually work in 2010 as long as the shape called Rectangle 7 exists.
The main reason the recorder was dropped in PPT was that it produced appalling unreliable code and PowerPoint had become much more complex and many items no longer worked at all. See if this gets you closer. Code:
Sub fixCode()
Dim newShp As Shape
On Error Resume Next
ActivePresentation.NotesMaster.Shapes("DATEFOOTER").Delete
Set newShp = ActivePresentation.NotesMaster.Shapes.AddTextbox(msoTextOrientationHorizontal, _
Left:=229.5, _
Top:=690, _
Width:=300, _
Height:=32)
newShp.Name = "DATEFOOTER"
With newShp.TextFrame.TextRange
.ParagraphFormat.Alignment = ppAlignCenter
.Font.Name = "Arial"
.Font.Size = 11
.Font.Color.RGB = RGB(Red:=88, Green:=48, Blue:=151)
.Text = "Page ": .InsertSlideNumber: .InsertAfter Chr(13)
.InsertDateTime ppDateTimedMMMMyyyy: .InsertAfter " ": .InsertDateTime ppDateTimehmmAMPM
End With
End Sub
|
|
|
Similar Threads
|
||||
| Thread | Thread Starter | Forum | Replies | Last Post |
 Macro to update ole links not working
|
kisa500 | PowerPoint | 7 | 02-05-2013 03:52 AM |
| Word 2010 Page Color not working in macro | Sorceress | Word | 3 | 10-15-2012 06:02 AM |
|
Macro for selecting pages and formatting of tables
|
ubns | Word VBA | 25 | 08-15-2012 11:48 PM |
|
Fraction macro not working
|
Ulodesk | Word VBA | 1 | 07-18-2012 04:01 PM |
| Splitting multiple pages using macro | F5JASON | Excel Programming | 0 | 07-27-2011 08:22 AM |
Windows 7 64bit 
Office 2010 32bit
Threaded Mode