タイプミスマッチは、Powerpoint VBAのFind + Replaceを実行しています

Question

PowerPoint VBAにはまったく新しい - これは、基本的な検索を行うための定型コードであるという印象を受けました。&スライドショー（この場合は最初の5つのスライド）を置き換えます。しかし、のRun-time error 13 - Type mismatchが届いており、その理由がわかりません。どんな洞察？

Dim sld As Slide, shp As Shape, i As Long 

For i = 1 To 5 
    Set sld = PPT.ActivePresentation.Slides(i) 
     For Each shp In sld.Shapes '<- Error here 
      If shp.HasTextFrame Then 
       If shp.TextFrame.HasText Then 
        shp.TextFrame.TextRange.Text = Replace(shp.TextFrame.TextRange.Text, "LastMonth", "September") 
       End If 
      End If 
     Next shp 
Next i 

Answer 1

アンエクセルShapeパワーポイントShapeと同じではありません：あなたは、PowerPointライブラリを使用して宣言を修飾する必要があります。

Dim shp as PowerPoint.Shape