Add Month Name to Title via macro

[bremen22]

Good Morning,



I am working on a project that automatically generates reports in PowerPoint. Essentially I have an excel spread sheet that queries a database, pulls in the data, opens a PowerPoint template, builds tables in Powerpoint based upon the data in the sheets, and then saves out the Powerpoint presentation as a new file.

Each slide in the template has some various header information. One item of information that it must contain is the Month and Year the data was generated.

Is there some way possible to, in the header block, have the name of previous month apear automatically based on the system date?

[amw]

Originally Posted by bremen22

Good Morning,

I am working on a project that automatically generates reports in PowerPoint. Essentially I have an excel spread sheet that queries a database, pulls in the data, opens a PowerPoint template, builds tables in Powerpoint based upon the data in the sheets, and then saves out the Powerpoint presentation as a new file.

Each slide in the template has some various header information. One item of information that it must contain is the Month and Year the data was generated.

Is there some way possible to, in the header block, have the name of previous month appear automatically based on the system date?

use control panel for this situation .
No you cannot have previous slides

[JohnWilson]

Is the header on the slide master?

Assuming you have a textbox on the Master with some text this macro should insert the Month and Year before the text.

Sub AddDate()
With ActivePresentation.Designs(1).SlideMaster.Shapes(" Header").TextFrame.TextRange
.Text = Mid(.Text, InStrRev(.Text, ":") + 1)
.InsertBefore (MonthName(Month(Now)) & "_") & Year(Now) & ":"
End With
End Sub

[bremen22]

Thanks. I will give that a try as soon as I can and I will let you know how it came out.

[amw]

Your Welcome if anything does not work out please contact your computer service number.

[amw]

Originally Posted by JohnWilson

Is the header on the slide master?

Assuming you have a textbox on the Master with some text this macro should insert the Month and Year before the text.

Sub AddDate()
With ActivePresentation.Designs(1).SlideMaster.Shapes(" Header").TextFrame.TextRange
.Text = Mid(.Text, InStrRev(.Text, ":") + 1)
.InsertBefore (MonthName(Month(Now)) & "_") & Year(Now) & ":"
End With
End Sub

YES MICROSOFT should have a year and date and time .