Вопрос : Как скопировать линию цвет диаграммы и примениться дальше на названии диаграммы (Эксел 2007/VBA)

Здравствулте! специалисты,

I имеют группу в составе линия диаграммы врезанные в одном листе Эксел, и каждая линия имеет по-разному Кодего color.
Using VBA, мне нужно закрепить петлеть через каждую диаграмму, скопировать цвет линии диаграммы и приложить его на диаграмме title.

Could, котор кто-то угождает предложите Кодего VBA для you

 above.

Thank class= " lastRow
>Attachments " имени " class= class= " значение "
>
class= " fileInfo "
title= " " filename class= " Before.jpg (151 KB)  яваскрипт " href= " " attachmentDetails class= (тип архива детали)  
class= " описание "
Диаграммы перед бежать macro
target= " _blank " " http://filedb.experts-exchange.com/incoming/2010/08_w35/340216/Before.jpg " " href= " attachmentLink class= ширина style= диаграммы
class=
>
>
class= " fileInfo "
title= " " filename class= " After.jpg (151 KB)  яваскрипт " href= " " attachmentDetails class= (тип архива детали)  
class= " описание "
Диаграммы после бежать macro
target= " _blank " " http://filedb.experts-exchange.com/incoming/2010/08_w35/340217/After.jpg " " href= " attachmentLink class= ширина style= диаграммы
class=
>
class=

Ответ : Как скопировать линию цвет диаграммы и примениться дальше на названии диаграммы (Эксел 2007/VBA)

Оно работало когда я испытал.

Sub ChartManip ()
Тусклый mb как Workbook
Тусклая госпожа как рабочий лист
Тусклый mCh как ChartObject


Установите mb = ThisWorkbook
Установите госпожу = mb. Рабочий лист («Sheet1»)
Для каждого mCh в ms.ChartObjects
    mCh.Chart.ChartTitle.Font.ColorIndex = mCh.Chart.SeriesCollection (1).Border.ColorIndex

Следующий mCh
Подводная лодка конца
Другие решения  
  •  Как я добавляю кнопки на форме PDF для того чтобы добавить/извлекаю рядки данных?
    •
  •  Шнур ошибки в блоке задвижки?
    •
  •  сколько вариант сервера SQL на одной машине
    •
  •  Внешний вид 2007 не может архивный файл открытой сети сохраненный
    •
  •  Активно директория DNS записывает вопрос
    •
  •  Отчет о доступа 2010 экспорта к CSV с коллекторами?
    •
  •  Прокладчик OCE 9400 не начинает
    •
  •  как добавить десятичное место в формуле в отчете о кристалла seagate
    •
  •  Windows XP и Мичрософт Оутлоок и проблемы установителя Windows
    •
  •  VB6 к VS2010 - консультации тренировки?
    •
     
    programming4us programming4us