最終更新日:2020-06-22VBAで表やグラフをPowerPointへ貼り付けるエクセルのグラフや表範囲をパワーポイントへ貼り付ける方法の解説です。何十個も、そして、何回も貼り付けを行うのであればマクロVBAで自動化したいところです。'PowerPoint2007以前の場合は有効にしてください。ThisWorkbook.Worksheets("Sheet1")'セル範囲を画像で貼りつけws.Range("A1").CurrentRegion.Copy'PasteSpeciaでエラーが出るときは、ここに待ちを作ります。xlPicture'PasteSpeciaでエラーが出るときは、ここに待ちを作ります。'PowerPoint2007以前の場合は有効にしてください。Nothing上のVBAでは参照設定をしています。2このように変更してください。表(セル範囲)をPowerPointへ貼り付けるVBAの解説ws.Range("A1").CurrentRegion.Copy'PasteSpeciaでエラーが出るときは、ここに待ちを作ります。'横幅ppSlide.Shapes.Countこれは、そのスライドにあるShapesの数になるので、ppSlide.Shapes(ppSlide.Shapes.Count)これは、そのスライドの最後に貼り付けた図になります。クリップボードの内容をドキュメントに挿入するときの形式です。既定値は、クリップボードの内容によって異なります。指定したデータ型がサポートされていない場合、エラーが発生します。DataTypeには以下が指定可能です。埋め込みオブジェクトまたはリンクをアイコンで表示するには、MsoTrue?を設定します。定数?msoTrue?に設定されている場合、この引数は表示するアイコンが保存されているファイルのパスとファイル名となります。定数?msoFalse?に設定されている場合、この引数は無視されます。ファイルで使用するアイコンに対応する番号です。番目のアイコンに対応します。アイコンが使用されます。msoFalseに設定されている場合、この引数は無視されます。定数?msoTrue?に設定されている場合、この引数はアイコンの下に表示されるテキストとなります。ラベルが作成されます。定数?msoFalse?に設定されている場合、この引数は無視されます。ファイルへのリンクを作成するかどうかを指定します。Application.InchesToPointsこちらは、インチ単位の数値をポイント単位に変換します。