Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Найти диаграмму по названию заголовка (VBA)
 
#1
29.03.2018 10:21:26
Добрый день.

Подскажите, пожалуйста, как с помощью VBA найти определенную диаграмму по названию заголовка?
Необходимо найти среди кучи диаграмм, только одну, скопировать и вставить на второй лист.
Код
Sheets("Лист1").ChartObjects.Chart.HasTitle = True
Sheets("Лист1").ChartObjects.Chart.ChartTitle.Text = "Заголовок диаграммы бла бла"

Sheets("Лист1").ChartObjects.CopyPicture
Sheets("Лист2").ChartObjects.PasteSpecial

Или хотя бы какую-нибудь информацию можете предоставить? Заранее спасибо.
 
 
 
#2
29.03.2018 10:43:16
Пож-та изучите п.2.3 Правил.
Неизлечимых болезней нет, есть неизлечимые люди.
 
 
 
#3
29.03.2018 10:46:33
Как-то так
Код
Sub FindChart()
Dim iCh As ChartObject
For Each iCh In ActiveSheet.ChartObjects
    If iCh.Chart.ChartTitle.Text = "Заголовок диаграммы бла бла" Then
        iCh.Copy
        Worksheets("Второй_лист").Paste
        Exit For
    End If
Next
End Sub
Согласие есть продукт при полном непротивлении сторон
 
 
 
#4
29.03.2018 12:56:37
Sanja, спасибо большущее! А то долго голову ломал, не получалось сделать, забыл совсем про оператор For Each...Next :)
 
 
 
#5
29.03.2018 13:26:45
Цитата
AlexSinch написал: забыл совсем про оператор For Each...Next
Можно и более 'классически'
Код
Sub FindChart()
Dim I&
With ActiveSheet.ChartObjects
For I = 1 To .Count
    If .Item(I).Chart.ChartTitle.Text = "Заголовок диаграммы бла бла" Then
        .Item(I).Copy
        Worksheets("Второй_лист").Paste
        Exit For
    End If
Next
End With
End Sub
Согласие есть продукт при полном непротивлении сторон
 
 
 
Страницы: 1
Наверх