TPE

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

Tavvafi@gmail.com


≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡

Sub AllSchemesToRGB()
' changes scheme fills to rgb fills

    Dim oSh As Shape
    Dim oSl As Slide
    Dim lColor As Long

    For Each oSl In ActivePresentation.Slides
        For Each oSh In oSl.Shapes
            With oSh
                If .Fill.ForeColor.Type = msoColorTypeScheme Then
                    lColor = .Fill.ForeColor.RGB
                    .Fill.ForeColor.RGB = lColor
                End If
            End With
        Next    ' shape
    Next    ' slide
End Sub

Sub SchemeToRGB()
' changes scheme fills to rgb fills

    Dim oSh As Shape
    Dim lColor As Long

    Set oSh = ActiveWindow.Selection.ShapeRange(1)        
        With oSh
            If .Fill.ForeColor.Type = msoColorTypeScheme Then
                lColor = .Fill.ForeColor.RGB
                .Fill.ForeColor.RGB = lColor
            End If
        End With
End Sub