Hi,

Can anyone help me? The line color code does not working.
I want to color the border of object.


 Set mySlide = pres.Slides.Add(1, ppLayoutTitleOnly)
"
"
"

 ElseIf Rsht.Name = "Chart" Then
             Rsht.ChartObjects("Chart 1").Activate
             ActiveChart.ChartTitle.Font.Size = 12
             ActiveChart.PlotArea.Select
             ActiveChart.ChartArea.Copy
             
            Set myShapeRange = mySlide.Shapes.PasteSpecial(ppPasteDefault)
                 myShapeRange.Left = 17
                 myShapeRange.Top = 300
                 myShapeRange.Width = 420
                 myShapeRange.Height = 190
                 myShapeRange.Line.Visible = msoTrue
                 myShapeRange.Line.Weight = 2
                 myShapeRange.Line.ForeColor.RGB = RGB(255, 192, 0)


"
"