花ちゃんさんへ動作致しました。有難うございました。また、パワーポイントのアクティブシートをクリップボードに取得する方法ですがPPAPP.ActiveSheet.Copy では駄目なのでしょうか?重ね重ね申し訳ありません。