ArubaNetworks - Course and Lab Tips

How to manipulate shapes out of borders of your PPTX Slides If your like me, you find the out of bounds unnecessary shapes in your PPTX distracting when working with pptx files. here is a script that will: detect how many slide masters you have in a pptx then loop through each layout in each slide master it then detects all shapes, determines if they are groups if the group is out of bounds and is the exact size of the color selector group: it shows you the group for final validation and asks you if you want to delete it Option Explicit Sub ColorGroupCheck()     Dim shp As Shape     Dim sld As Slide     Dim oMaster As Design     Dim oLayout As CustomLayout     Dim sldHeight As Long     Dim userResponse As Integer     'Debug.Print ActivePresentation.PageSetup.SlideHeight     'Debug.Print ActivePresentation.Designs.Count     sldHeight = ActivePresentation.SlideMaster.Height       ...

How to change textbox language to English If your like me, you find the red squiggly lines in PPTX TextFrames distracting when working with pptx files that have a mismatched language issue. Here is a script that will: detect how many slides in your presentation for each slide, loop through each shape determining if it has a TextFrame, then... sets the language to EnglishUS while deleting empty TextFrames if  the shape has a table: it sets each table cell to EnglishUS Sub format_all_textboxes()     Dim oSld As Slide     Dim oSh As Shape          For Each oSld In ActiveWindow.Selection.SlideRange         For x = oSld.Shapes.Count To 1 Step -1             Set oSh = oSld.Shapes(x)             If oSh.HasTextFrame = True Then                 If oSh.Name Like "Titl*" Or _                ...

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     ...