I need to insert a blank slide after every existing slide in a Powerpoint presentation. I would like each of these new slides to have the same title as the previous slide (It's purpose is to explain the previous slide). In addition, each existing slide has a text box in its upper right corner that has a sequence number that I manually typed in. It's not the actual sequence number - i.e., it doesn't start at 1. I would like the new slide to copy the text box and value and append it with an "a" - e.g., 11a, 12a
The following code is working to add the new slide (I don't mind manually selecting each slide before running the code). Could anyone help with the code to copy the title and sequence number text box? thanks.
Dim oView As View
Set oView = ActiveWindow.View
oView.GotoSlide .Add(oView.Slide.SlideIndex + 1, _
Set oView = Nothing