Frage : Wie man Linie Diagrammfarbe kopiert und zutrifft an auf dem Diagrammtitel (Excel 2007/VBA)

Hallo haben Experten,

I eine Gruppe der Linie die Diagramme, die in einem Excel-Blatt eingebettet werden, und jede Linie hat einen anderen color.
Using VBA Code, muss ich mich durch jedes Diagramm schlingen, die Farbe der Linie Diagramm zu kopieren und sie auf dem Diagramm title.

Could anzuwenden, das jemand gefallen, den VBA Code für das above.

Thank you

vorschlagen

Attachments:

Before.jpg (151 KBS)  (Akten-Art Details)  

Diagramme vor dem Betrieb des macro

After.jpg (151 KBS)  (Akten-Art Details)  

Diagramme nach dem Betrieb des macro

Antwort : Wie man Linie Diagrammfarbe kopiert und zutrifft an auf dem Diagrammtitel (Excel 2007/VBA)

Es funktionierte, als ich prüfte.

VorChartManip ()
Schwache Bandmitte als Arbeitsbuch
Schwache Frau als Arbeitsblatt
Schwaches MCH als ChartObject


Bandmitte = ThisWorkbook einstellen
Frau = Bandmitte einstellen. Arbeitsblätter („Sheet1“)
Für jedes MCH in ms.ChartObjects
    mCh.Chart.ChartTitle.Font.ColorIndex = mCh.Chart.SeriesCollection (1).Border.ColorIndex

Folgendes MCH
Enden-Unterseeboot