VBAでパワーポイントの画像の形式を変更するには?

Question

パワーポイント上の画像(写真)の形式をjpgからpngに変更したいのですが,出来る場合もあるが,”不正な内容で張付けられない”というメッセージが出力されます. どうすればいいのでしょうか教えていただきたくお願いします.

エラーメッセージ
”Shapes(不正なメンバ) 無効な要求です. クリップボード何も入っていないか貼り付けることが出来ないデータが入っています”

途中にstop命令を入れて,画像1枚1枚で処理すると上記エラーが起こりにくくななりました.

Sub Abc()
Dim sld As Slide
Dim sh As Shape

For Each sld In ActivePresentation.Slides
For Each sh In sld.Shapes
If sh.Type = 13 Then '画像
sh.Copy
With sld.Shapes.PasteSpecial(Datatype:=6)
.Top = sh.Top
.Left = sh.Left
sh.Delete
End With
Else
End If
Next
Next