Метод ChartData.Activate (PowerPoint)

Активирует первое окно книги, связанной с диаграммой.

Синтаксис

expression. Активировать

выражение Переменная, представляющая объект ChartData.

Замечания

Если диаграмма связана с книгой Microsoft Excel, этот метод не выполняет никаких Auto_Activate или Auto_Deactivate макросов, которые могут быть присоединены к книге (используйте метод RunAutoMacros для запуска этих макросов).

Примечание.

Этот метод необходимо вызвать, прежде чем ссылаться на свойство Workbook .

Пример

Примечание.

Хотя приведенный ниже код относится к microsoft Word, его можно легко изменить для применения к PowerPoint.

В следующем примере активируется книга Excel, связанная с первой диаграммой в активном документе. Если книга Excel имеет несколько окон, пример активирует первое окно. Затем в примере копируется содержимое ячеек B1–B5 и вставляется содержимое ячейки в диаграмму.

With ActiveDocument.InlineShapes(1) 
    If .HasChart Then 
        .Chart.ChartData.Activate 
        .Chart.ChartData.Workbook. _ 
            Worksheets("Sheet1").Range("B1:B5").Copy 
        .Chart.Paste 
    End If 
End With 

См. также

Объект ChartData

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.