Application.ActivePresentation.Slides(1).Shapes(1).Chart.ChartData.Workbook.activesheet

Option Explicit

Sub Macro1()

    ' recorded in excel and modified

    Dim chrt As Chart
'   Set chrt = ActiveSheet.ChartObjects("Chart 1").Chart                 ' excel object
    Set chrt = Application.ActivePresentation.Slides(1).Shapes(1).Chart

    chrt.ClearToMatchStyle
    chrt.ChartStyle = 203
    chrt.ChartStyle = 340
    chrt.ChartStyle = 333
    chrt.ChartStyle = 399

    chrt.ChartType = xlColumnClustered

    Dim fsc As FullSeriesCollection
    Set fsc = chrt.FullSeriesCollection

    With fsc(1).Format.Fill
        .Visible = msoTrue
        .ForeColor.RGB = RGB(255, 192, 0)
        .Transparency = 0.5
        .Solid
    End With

    With fsc(1).Format.Line
        .Visible = msoTrue
        .ForeColor.RGB = RGB(255, 0, 0)
        .Transparency = 0
    End With

    With fsc(2).Format.Fill
        .Visible = msoTrue
        .ForeColor.ObjectThemeColor = msoThemeColorAccent1
        .ForeColor.TintAndShade = 0
        .ForeColor.Brightness = -0.25
        .Transparency = 0
        .Solid
    End With

    With fsc(3).Format.Fill
        .Visible = msoTrue
        .ForeColor.RGB = RGB(146, 208, 80)
        .Transparency = 0
        .Solid
    End With

    With fsc(3).Format.Line
        .Visible = msoTrue
        .ForeColor.RGB = RGB(255, 0, 0)
        .Transparency = 0
    End With

    With fsc(1).Points(1).Format.Fill
        .Visible = msoTrue
        .ForeColor.RGB = RGB(255, 0, 0)
        .Transparency = 0.6299999952
        .Solid
    End With

    With fsc(1).Points(1).Format.Line
        .Visible = msoTrue
        .ForeColor.RGB = RGB(0, 176, 80)
        .Transparency = 0.0500000119
        .Weight = 5
        .Style = msoLineThickBetweenThin
    End With

End Sub