Powerpointでクリップボードから任意のページに画像を貼り付けるユーザーライブラリ自作を考えています。

ざっと下記のとおりたたき台を作ってみましたが、VBScript初心者のため自信がありません。初歩的なミスを犯している可能性もあります。

詳しい方、誤りがあればご指摘をお願いします！

★クリップボードを、コードでどう記入すればよいか知らないので、下記は変数pictureに画像が格納されている仮定で記入しています。
クリップボードに格納された画像をPowerPointファイルに貼るためには、どうコードを改造すればよいか、併せてご教示ください！

ｰｰ<Start of code>ｰｰ
picture = !画像!
num_slide = Cint( !スライド番号! )
positions = !挿入位置!

tmp = Split(positions, ",")

x = cint(tmp(0))
y = cint(tmp(1))

Set objPpt = GetObject(, "PowerPoint.Application") 

If objPpt is Nothing then
  Set objPpt = CreateObject("PowerPoint.Application") 
End if

If objPpt is Nothing then
  Err.Raise 1, "", "指定されたPowerPointアプリケーションが開けません。"
End if

objPpt.Visible = True

Set targetPptObj = objPpt.ActivePresentation

targetPptObj.Slides(num_slide).Shapes.AddmsoPicture(1,x,y) = picture

ｰｰ<End of code>ｰｰ