Cuestión : Cómo copiar la línea color de la carta y aplicarse encendido en el título de la carta (Excel 2007/VBA)

Hola los expertos,

I tienen un grupo de línea cartas encajadas en una hoja de Excel, y cada línea tiene un diverso código de color.
Using VBA, necesito colocar a través de cada carta, copiar el color de la línea carta y aplicarlo en la carta title.

Could que alguien satisface sugerir el código de VBA para el you

 de above.

Thank class= " lastRow del
>Attachments del " nombre " del class= del class= " valor " del
del >
class= " fileInfo " del
el title= " del " nombre de fichero del class= " del Before.jpg el class= (151 KB)  Javascript del href= " de los " attachmentDetails del class= " del (tipo de archivo detalles)  
class= " descripción " del
Cartas antes de funcionar el macro
target= " _blank " de " http://filedb.experts-exchange.com/incoming/2010/08_w35/340216/Before.jpg " del href= del " attachmentLink " del class= del anchura del style= del cartas de http://filedb.experts-exchange.com/incoming/2010/08_w35/t340216/Before.jpg” del “src=
el class= de
del >
del >
class= " fileInfo " del
el title= " del " nombre de fichero del class= " del After.jpg el class= (151 KB)  Javascript del href= " de los " attachmentDetails del class= " del (tipo de archivo detalles)  
class= " descripción " del
Cartas después de funcionar el macro
target= " _blank " de " http://filedb.experts-exchange.com/incoming/2010/08_w35/340217/After.jpg " del href= del " attachmentLink " del class= del anchura del style= del cartas de http://filedb.experts-exchange.com/incoming/2010/08_w35/t340217/After.jpg” del “src=
el class= de
del >
class= del

Respuesta : Cómo copiar la línea color de la carta y aplicarse encendido en el título de la carta (Excel 2007/VBA)

Trabajó cuando probé.

ChartManip secundario ()
Mb dévil como libro de trabajo
Ms dévil como hoja de trabajo
mCh dévil como ChartObject


Fijar el mb = ThisWorkbook
Fijar el ms = el mb. Hojas de trabajo (“Sheet1”)
Para cada mCh en ms.ChartObjects
    mCh.Chart.ChartTitle.Font.ColorIndex = mCh.Chart.SeriesCollection (1).Border.ColorIndex

mCh siguiente
Submarino del extremo
Otras soluciones  
 
programming4us programming4us