TPE

http://bayanbox.ir/view/263405954590585756/2mobile.png

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