Hi,

I've copied over the chart from Excel to PowerPoint and need to enlarge the chart font size & unbold the font in PowerPoint. I don't do this in Excel because i also need to copy the same chart to Word.
I'm not familiar in VBA and i got the bug from the code below. I hope someone can help me fix the error.

Thanks,
Ling

Sub FormatChart()

    Dim oSld As Slide
    Dim oShp As Shape
    Dim oShapes As Shapes
    
    
    For Each oSld In ActivePresentation.Slides
    Set oShapes = oSld.Shapes
    
    
    For Each oShp In ActiveWindow.Selection.ShapeRange
        With oShp
            With Shapes.Format.TextFrame.TextRange
                .Font.Size = 12
                .Font.Name = "Arial"
                .Font.Bold = msoFalse
            End With
        End With
    Next
Next