2012-01-25 73 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中複製/粘貼的圖表來識別用戶插入的圖表? –

相關問題