Instructor PPTX VBA - Removing out of slide boundary Color Selector Shape
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 For Each oMaster In ActivePresentation.Designs 'Debug.Print oMaster.SlideMaster.Custom