%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