ox = CREATEOBJECT("powerpoint.application" ox.Presentations.Add ox.Presentations(1).SlideMaster.Background.Fill.ForeColor.rgb = 200+200+100 ox.presentations(1).SlideMaster.Shapes.AddDiagram ???????????