Sub Test() ActiveSelectionRange("MyRectangle").Fill.UniformColor.RGBAssign 255, 0, 0End Sub
Sub Test() Dim i As Long Dim sr As ShapeRange Set sr = ActivePage.FindShapes(Type:=cdrEllipseShape) For i = 1 To sr.Count sr(i).Fill.UniformColor.RGBAssign 0, 0, 255 Next iEnd Sub
Sub Test() Dim s As Shape Dim sr As ShapeRange Set sr = ActivePage.FindShapes(Type:=cdrEllipseShape) For Each s In sr s.Fill.UniformColor.RGBAssign 0, 0, 255 Next sEnd Sub