Border Color of chart object does not work

[Faridwahidi]

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)


"
"

[John Wilson]

Does this get you closer

Dim myslide As PowerPoint.Slide
Dim ocht As PowerPoint.Chart
Dim myShape As PowerPoint.Shape
Set myslide = ActivePresentation.Slides(1)
Set myShape = myslide.Shapes.PasteSpecial(ppPasteDefault)(1)
myShape.Left = 17
myShape.Top = 300
myShape.Width = 420
myShape.Height = 190
If myShape.HasChart Then
With myShape.Chart.ChartArea.Format.Line
.Visible = msoTrue
.Weight = 2
.ForeColor.RGB = RGB(255, 192, 0)
End With
End With

[Faridwahidi]

Hi John,

Thanks for the alternative method.

It works when I change from .Visible = msoTrue to .Visible = msoCTrue

Is there any differences between these two functions.

[John Wilson]

msoCTrue assigns a value of +1 whereas True and msoTrue assign -1.(-1 is what vba usually expects) I've never seen an example where +1 was preferred though it usually works.