ppt→excelへリンク貼り付けされた表の一括削除

Question

excelからpptへ図表を大量にリンク貼付しています。

pptは様々な貼付形式の図表が混在している状態です。

この中からリンク貼付したもののみ削除するマクロを作成したく

以下のVBAを作成しましたが、動作しません。

どこを修正すれば動くようになるか、お知恵を拝借できれば幸いです。

おそらく太字の部分で、適切にデータのタイプを指定できていないためと思うのですが…。

よろしくお願いいたします。

Sub Test() Dim

sld As Object,

shp As Shape

For Each sld In ActivePresentation.Slides

For Each shp In sld.Shapes

If shp.DataType:=ppPasteOLEObject, Link:=True Then shp.Delete

Next

Next End

Sub

やりたいこと：

開いているpptの全スライドを参照し、リンク貼り付けされたオブジェクトのみ一括で削除する

Answer 1

Sub Test() Dim sld As Object, shp As Shape

    For Each sld In ActivePresentation.Slides
        For Each shp In sld.Shapes

            If shp.Type = msoLinkedOLEObject Then
                Call shp.Delete
            End If
        Next
    Next

End Sub

Answer 2

VBA専用のフォーラムがございますため、下記へご投稿してみてください。
https://social.msdn.microsoft.com/Forums/ja-JP/...
どうぞ宜しくお願い致します。

Answer 3

ご回答くださりありがとうございます。

こちらで意図する処理を実行できました。

大変助かりました。感謝いたします。

ありがとうございます。