VBA - エラー1004 - メソッドクラスのCopyPictureが失敗しました

Question

私のコードで助けが必要です。私はPowerPointにさまざまなExcelファイルから写真として多くのテーブルをコピーするマクロを書きましたが、時には完全に動作し、ときどき表示されますエラー1004 - メソッドクラスのCopyPictureが失敗しました。ここに私のコードは次のとおりです。

Sheets("List1").Select 
' group chart 
ActiveSheet.Outline.ShowLevels RowLevels:=0, ColumnLevels:=1 
' select cells to be copied to PowerPoint: 
Range("A1:X83").Select 
' copy cells: 
Selection.CopyPicture Appearance:=xlScreen, Format:=xlPicture 
' paste to PowerPoint: 

pptSld.Shapes.Paste.Select 

私は誰かがRange("A1:X83").Select前Sheets("List1").を挿入有用であることがわかったが、それは助けにはなりませんでした。 私はOffice 2010を使用している仕事場でこの問題を抱えています。私は自宅でOffice 2016を持っており、コードは完全に機能しています。

あなたはアイデアを持っていますか、どのようにエラーなく動作させる方法はありますか？

Answer 1

.Selectをすべて使用する習慣を失います。これはマクロレコーダーコードの機能ですが、マクロレコーダーコードはすべての手動アクションを模倣するためです.Officeを自動化する場合、手動でタスクを実行するときにマウスクリックを再現する必要はありません。 Officeアプリケーションのオブジェクトモデル。

</rant>

だからWorksheets("List1")をオフに作業し、画像としてspecitic Rangeをコピーします。

Application.Worksheets("List1").Range("A1:X83").CopyPicture xlScreen, xlPicture 

このコードは、はるかに堅牢Selectionに依存している何よりもです：あなたは.CopyPictureオフを呼んでいます特定のRangeオブジェクトです。

はそうするために残っているすべては、貼り付けることです。

pptSld.Shapes.Paste 

。なおPaste is a method that doesn't return anythingを、あなたが合法的に.Selectを行うことはできませんので、 - しかし、なぜあなたはとにかく.Selectそれをするのでしょう？

あなたは新しく作成されたShapeオブジェクトにアクセスする必要がある場合は、pptSld.Shapesコレクションから、それを取得することができます。その後、

Dim excelScreenshot As Shape 
Set excelScreenshot = pptSld.Shapes(pptSld.Shapes.Count) 

そして、あなたがそうSelectionと、あなたが今excelScreenshotで行うことができますしたいものは何でも - とボーナスとしてIntelliSenseと、すべてのメンバーに遅延バインドコールを呼び出させるObjectではなく、厳密に型指定されたオブジェクトリファレンスを使用するための自動補完機能があります。言い換えれば、パフォーマンスは向上しますそれは可能性があります。

Answer 2

参考文献を参照して、正しいライブラリを呼び出していることを確認してください。

ツール]> [参照

わからないその次のものが必要ですが、あなたは、Microsoft PowerPointがxx.xの何とか何とか何とかがチェックされていることを確認しますに。