TPE

http://bayanbox.ir/view/263405954590585756/2mobile.png

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