> How i can get individual slide background through automation if
> background is gradient ?
[quoted text clipped - 6 lines]
> text or background.
> I need at least one pixel color which belong to exact background.
This is one of those cases where the macro recorder will give you almost
exactly what you need (assuming you're using 2003 or earlier).
Sub Macro1()
With ActiveWindow.Selection.ShapeRange
.Fill.Transparency = 0#
.Fill.Visible = msoTrue
' These are the properties you need:
.Fill.ForeColor.RGB = RGB(0, 0, 255)
.Fill.BackColor.RGB = RGB(255, 0, 0)
.Fill.TwoColorGradient msoGradientHorizontal, 2
End With
End Sub
You'd first want to test the shape's .Fill.Type to determine whether it's a
gradient or not.
-----------------------------------------
Steve Rindsberg, PPT MVP
PPT FAQ: www.pptfaq.com
PPTools: www.pptools.com
================================================