%C2%A0

Tavvafi@gmail.com

≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡

Sub SaveChartAsAutoformat()

    Dim oGraphChart As Object

    Set oGraphChart = ActiveWindow.Selection.ShapeRange(1).OLEFormat.Object
    With oGraphChart.Application
        ' give it a name and a description:
        Call .AddChartAutoFormat("ChartName", _
            "This is the description of the chart.")

        ' or to remove:
        ' .DeleteChartAutoFormat ("BogusChart")

    End With

End Sub