2012-01-25 3 views

답변

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 
+0

감사 브루노 –

+0

그 코드가 실제로 어떤 좋은 일을 할 수 있습니까 많이입니까? 나는 그것이 어떻게 될 것인지를 볼 수 없다. 그렇다면 위대하다. 그렇지 않은 경우 지원해야하는 PPT 버전을 언급하십시오. 차트 식별은 버전마다 조금씩 다릅니다. 그리고 일반적인 삽입, 차트 명령 또는 Excel에서 복사/붙여 넣기 한 차트를 사용하여 사용자가 삽입 한 차트 만 식별해야합니까? –

관련 문제