Как найти диаграммы (графики) в PowerPoint с помощью VBA?

Question

Я просто хочу, чтобы код или свойство находили диаграмму в PowerPoint Silde с помощью макроса (vba).

спасибо

Answer 1

Один из способов найти диаграмму -

Sub EachSlides()
'developer by Bruno Leite  
'http://officevb.com  
Dim sld As Slide
Dim i As Integer

   For Each sld In ActivePresentation.Slides
           For i = 1 To sld.Shapes.Placeholders.Count
                      'select the placeholder
                      sld.Shapes.Placeholders(i).Select msoCTrue
           Next i
   Next sld

End Sub