TPE
Tavvafi@gmail.com |
≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡
Sub If_NoLine_And_NoFill_Then_KILL() Dim oSh As Shape Dim x As Long For x = ActiveWindow.Selection.SlideRange.Shapes.Count To 1 Step -1 Set oSh = ActiveWindow.Selection.SlideRange.Shapes(x) If oSh.Fill.Visible = msoFalse Then If oSh.Line.Visible = msoFalse Then oSh.Delete End If End If Next ' X End Sub