定期的にやる場合や、数が多いと大変ですので、マクロで自動化したくなります。'PowerPoint2007以前の場合は有効にしてください。ws.Range("A1").CurrentRegion.Copy'PasteSpeciaでエラーが出るときは、ここに待ちを作ります。Sub上記は、まずは最低限のコードです。セル範囲をコピーして、拡張メタファイルとして貼り付けています。エラー処理は入れていませんので、適宜入れて下さい。良く発生するエラーについては、下で説明を書きました。クリップボードの内容をドキュメントに挿入するときの形式です。既定値は、クリップボードの内容によって異なります。指定したデータ型がサポートされていない場合、エラーが発生します。DataTypeには以下が指定可能です。埋め込みオブジェクトまたはリンクをアイコンで表示するには、MsoTrue?を設定します。定数?msoTrue?に設定されている場合、この引数は表示するアイコンが保存されているファイルのパスとファイル名となります。定数?msoFalse?に設定されている場合、この引数は無視されます。ファイルで使用するアイコンに対応する番号です。番目のアイコンに対応します。アイコンが使用されます。msoFalseに設定されている場合、この引数は無視されます。定数?msoTrue?に設定されている場合、この引数はアイコンの下に表示されるテキストとなります。ラベルが作成されます。定数?msoFalse?に設定されている場合、この引数は無視されます。ファイルへのリンクを作成するかどうかを指定します。クリップボードの内容がリンクをサポートしていない場合、エラーが発生しますほとんどの場合、上記のコードで問題ないのですが、Excelの表が大きかったり、情報が複雑な場合、PasteSpecialでエラーとなる場合があります。エラーの発生理由は、Copyが非同期で行われているらしいことが原因です。そこで、対策としては、Copyの直後に一定時間待ちを作ることです。最初には、DoEventsこれで試してみて下さい、これで解決するならこれが一番です。これでダメなら、Application.Waitで1秒程度の待ちを作って下さい。APIのSleepなら、ms単位で調整できます。複雑なコードを書くことになります。このような貼り付け情報を別シートに表にしておき、それを基に貼り付けるようにする必要があります。Next)|VBA入門7.マクロって何?VBAって何?|VBA入門8.セルに文字を入れるとは(Range,Value)|VBA入門9.空白セルを正しく判定する方法(IsEmpty,IsError,HasFormula)|VBA技術解説10.ひらがな⇔カタカナの変換|エクセル基本操作トップマクロVBAマクロVBAサンプル集Excelの表をPowerPointへ図として貼り付けこのサイトがお役に立ちましたら「シェア」「Bookmark」をお願いいたします。間違いやご指摘がありましたら、「お問い合わせ」からお知らせいただけると幸いです。掲載のVBAコードは動作を保証するものではなく、あくまでVBA学習のサンプルとして掲載しています。掲載のVBAコードは自己責任でご使用ください。万一データ破損等の損害が発生しても責任は負いません。GASスプレッドシート入門スプレッドシート応用GAS入門GAS応用トップマクロVBAマクロVBAサンプル集Excelの表をPowerPointへ図として貼り付けこのサイトがお役に立ちましたら「シェア」「Bookmark」をお願いいたします。