PowerPoint (一般・VBA)

PowerPoint 一般・VBAに関する話題を扱うフォーラムです。
  • 掲示板への投稿には会員登録(無料)が必要です。会員登録がまだの方はこちら
  • 掲示板ご利用上のお願い」に反するご記入はご遠慮ください。
  • Q&A掲示板の使い方はこちらをご覧ください
トピックに返信
質問

 
(Windows 10 Pro : PowerPoint 2016)
PowerpointVBAで、開いたPowerpointの任意のページに、クリップボードから画像を貼り付けたい。
投稿日時: 20/01/17 11:30:33
投稿者: gorby

RPAツールで、クリップボードに画像をコピーしたあと、PowerpointVBAで、開いたPowerpointの任意のページに、クリップボードから画像を貼り付けたいです。
 
ざっと下記のとおりたたき台を作ってみましたが、PowerpointVBA初心者のため自信がありません。初歩的なミスを犯している可能性もあります。
 
詳しい方、誤りがあればご指摘をお願いします!
 
★クリップボードを、コードでどう記入すればよいか知らないので、下記は変数に画像が格納されている仮定で記入しています。
クリップボードに格納された画像をPowerPointファイルに貼るためには、どうコードを改造すればよいか、併せてご教示ください!
 
 
ーー<Start of code>ーー
Dim picture '画像が格納された変数 ★クリップボードをどうコードで記入すればよいか知らないので変数で代替
Dim num_slide 'PowerPointファイルのスライド番号
Dim tmp 'tempファイル
Dim positions 'スライド内の挿入位置
Dim x 'スライド内の挿入位置x座標
Dim y 'スライド内の挿入位置y座標
 
 
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>ーー

トピックに返信