Instructor PPTX VBA - Standardize the PPTX Slide Deck "Title" position, font, width and other formatting settings
Dealing with PowerPoint slide deck "Title" Insanity Here is a script that will: loop through each slide you have selected in your presentation detects all shapes with TextFrames it attempts to characterize them for the probability one is actually the intended title it uses font size, frame width, height and proximity to the top of the slide sometimes a slides will not have a textFrame with the name "title" or worse... will have multiple TextFrames with the name "title" but are not a title but an integral part of your slides presented data, and cannot be moved once a probable title has been detected, the script will relocate and apply consistent formatting across all selected slides Sub positionTitleTxtBoxallslide() Dim oSld As Slide Dim oShp As Shape For Each oSld In ActiveWindow.Selection.SlideRange Dim x As Long For x = oSld.Shapes.Count To 1 Step -1 Set oShp = oSld.Shapes(x) If oShp.HasTextFrame =