Vraag : Hoe te om de kleur van de lijngrafiek te kopiëren en op de grafiektitel (Excel 2007/VBA) van toepassing te zijn

Hello hebben de deskundigen,

I een groep lijngrafieken ingebed in één blad van Excel, en elke lijn heeft een verschillende code color.
Using VBA, heb ik aan lijn nodig door elke grafiek, kopi�ër de kleur van de lijngrafiek en pas het op de grafiek title.

Could iemand toe de code VBA voor above.

Thank you

gelieve voor te stellen

Attachments:

van

Before.jpg (151 KB)  (de Details van het Type van Dossier)  

Grafieken alvorens macro

in werking te stellen style= " breedte in werking te stellen

van

After.jpg (151 KB)  (de Details van het Type van Dossier)  

Grafieken na het runnen van macro

style= " breedte

Antwoord : Hoe te om de kleur van de lijngrafiek te kopiëren en op de grafiektitel (Excel 2007/VBA) van toepassing te zijn

Het werkte toen ik testte.

Sub ChartManip ()
Schemerige mb als Werkboek
Schemerig Mej. als Aantekenvel
Schemerige mCh als ChartObject


Vastgesteld mb = ThisWorkbook
Vastgesteld Mej. = mb. Aantekenvellen („Sheet1“)
Voor Elke mCh in ms.ChartObjects
    mCh.Chart.ChartTitle.Font.ColorIndex = mCh.Chart.SeriesCollection (1). Border.ColorIndex

Volgende mCh
Sub van het eind