Benutzerdefiniertes Diagrammformat übernehmen
23.11.2007 14:32:00
Johannes
ich versuche ein Makro zu schreiben, das das Format des aktivierten Diagramms automatisch als benutzerdefinierten Typen definiert und anschließend alle anderen Diagramme entsprechend formatiert. Das speichern gelingt, der Rest leider nicht.
Vielen Dank schonmal im Voraus!
Johannes
Sub Formataenderung ()
Application.AddChartAutoFormat Chart:=ActiveChart, Name:="temporary", _
Description:=""
For n = 1 To 10
ActiveSheet.ChartObjects("Diagramm " & n).ApplyCustomType ChartType:=xlUserDefined, _ TypeName:= _
"temporary"
Next
End Sub