Excelの表をPowerPointへ図として貼り付け
PowerPointを作っていると、エクセルの表を挿入したいことが多いです、
単発作業なら手作業で十分ですが、
定期的にやる場合や、数が多いと大変ですので、マクロで自動化したくなります。
Excelの表をPowerPointへ図として貼り付けるVBA
Sub sample()
Dim ppApp As New PowerPoint.Application
Dim ppPt As Presentation
Dim ppSlide As Slide
Dim ppShape As PowerPoint.Shape
Dim ws As Worksheet
'ppApp.Visible = True 'PowerPoint2007以前の場合は有効にしてください。
Set ppPt = ppApp.Presentations.Open(ThisWorkbook.Path & "\sample.pptx")
Set ws = ThisWorkbook.Worksheets("Sheet1")
With ws
.Range("A1").CurrentRegion.Copy
'PasteSpeciaでエラーが出るときは、ここに待ちを作ります。
'スライド番号を指定
Set ppSlide = ppPt.Slides(1)
ppSlide.Shapes.PasteSpecial DataType:=ppPasteEnhancedMetafile, Link:=msoFalse
Set ppShape = ppSlide.Shapes(ppSlide.Shapes.Count)
'上位置
ppShape.Top = Application.CentimetersToPoints(1)
'左位置
ppShape.Left = Application.CentimetersToPoints(1)
'縦横比を固定
ppShape.LockAspectRatio = msoTrue
'横幅
ppShape.Width = Application.CentimetersToPoints(30)
Application.CutCopyMode = False
End With
ppPt.Save
ppApp.Quit
Set ppPt = Nothing
Set ppApp = Nothing
End Sub
Excelの表をPowerPointへ図として貼り付けるVBAの解説
セル範囲をコピーして、拡張メタファイルとして貼り付けています。
エラー処理は入れていませんので、適宜入れて下さい。
良く発生するエラーについては、下で説明を書きました。
| DataType | PpPasteDataType | クリップボードの内容をドキュメントに挿入するときの形式です。 既定値は、クリップボードの内容によって異なります。 クリップボードの内容が引数 DataType で指定したデータ型がサポートされていない場合、エラーが発生します。 DataTypeには以下が指定可能です。 ppPasteBitmap ppPasteDefault ppPasteEnhancedMetafile ppPasteHTML ppPasteGIF ppPasteJPG ppPasteMetafilePicture ppPastePNG ppPasteShape |
| DisplayAsIcon | MsoTriState | 埋め込みオブジェクトまたはリンクをアイコンで表示するには、MsoTrue?を設定します。 |
| IconFileName | 文字列型 (String) | 引数 DisplayAsIcon が定数?msoTrue?に設定されている場合、この引数は表示するアイコンが保存されているファイルのパスとファイル名となります。 引数 DisplayAsIcon が定数?msoFalse?に設定されている場合、この引数は無視されます。 |
| IconIndex | 長整数型 (Long) | DisplayAsIcon がmsoTrueに設定されている場合この引数は IconFilename で指定されるプログラム ファイルで使用するアイコンに対応する番号です。 たとえば、0 (ゼロ) は最初のアイコンに対応して 1、2 番目のアイコンに対応します。この引数を省略すると、最初の (既定の) アイコンが使用されます。 DisplayAsIcon がmsoFalseに設定されている場合、この引数は無視されます。IconIndex が有効な範囲外にある場合は、既定のアイコン (インデックス 0) が使用されます。 |
| IconLabel | 文字列型 (String) | 引数 DisplayAsIcon が定数?msoTrue?に設定されている場合、この引数はアイコンの下に表示されるテキストとなります。 このラベルがない場合、クリップボードの内容に基づいてアイコン ラベルが作成されます。 引数 DisplayAsIcon が定数?msoFalse?に設定されている場合、この引数は無視されます。 |
| Link | MsoTriState | クリップボード内容のソース ファイルへのリンクを作成するかどうかを指定します。クリップボードの内容がリンクをサポートしていない場合、エラーが発生します |
ほとんどの場合、上記のコードで問題ないのですが、
Excelの表が大きかったり、情報が複雑な場合、
PasteSpecialでエラーとなる場合があります。
エラーの発生理由は、
Copyが非同期で行われているらしいことが原因です。
そこで、対策としては、Copyの直後に一定時間待ちを作ることです。
まず最初には、
DoEvents
これでダメなら、
Application.Wait
これで1秒程度の待ちを作って下さい。
APIのSleepなら、ms単位で調整できます。
実際のプログラムでは、この貼り付けが複数になり、
かつ、サイズ等もそれぞれ指定する必要がありますので、
結構複雑なコードを書くことになります。
このような貼り付け情報を別シートに表にしておき、
それを基に貼り付けるようにする必要があります。
グラフをPowerPointへ貼り付け
以下でまとめて解説記事にしました。
VBAで表やグラフをPowerPointへ貼り付ける
既にパワーポイントを開いている場合
GetObject関数を使います。
VBAで表やグラフをPowerPointへ貼り付ける
同じテーマ「マクロVBAサンプル集」の記事
Excel2003(xls)を2007以降(xlsx,xlsm)に変換する（HasVBProject）
ハイパーリンクからファイルのフルパスを取得する
ボタンのテキスト名のシートへ移動（Application.Caller）
Excelの表をPowerPointへ図として貼り付け
VBAで表やグラフをPowerPointへ貼り付ける
フォルダ（サブフォルダも全て）削除する、Optionでファイルのみ削除
Shift_JISのテキストファイルをUTF-8に一括変換
VBAコードの全プロシージャー・プロパティ一覧を取得
数式バーの高さを数式の行数で自動設定
図形オートシェイプ（Shape）の複数選択
GoogleスプレッドシートをExcelにインポートする
新着記事NEW ・・・新着記事一覧を見る
Excel将棋：駒を動かす｜VBAサンプル集（8月9日）
Excel将棋：将棋進行クラスの作成｜VBAサンプル集（8月8日）
Excel将棋：将棋盤クラスの作成&単体テスト｜VBAサンプル集（8月8日）
Excel将棋：位置クラスをデフォルトインスタンスに変更｜VBAサンプル集（8月7日）
VBAで数値を漢数字に変換する方法｜エクセル雑感（8月6日）
Excel将棋：駒台クラスの作成&単体テスト｜VBAサンプル集（8月6日）
Excel将棋：駒クラスの単体テスト｜VBAサンプル集（8月5日）
Excel将棋：駒クラスの作成｜VBAサンプル集（8月5日）
Excel将棋：クラスの設計｜VBAサンプル集（8月4日）
Excel将棋：マクロVBAの学習用｜VBAサンプル集（8月3日）
アクセスランキング ・・・ ランキング一覧を見る
1.最終行の取得（End,Rows.Count）｜VBA入門
2.RangeとCellsの使い方｜VBA入門
3.変数宣言のDimとデータ型｜VBA入門
4.マクロって何？VBAって何？｜VBA入門
5.セルのコピー&値の貼り付け（PasteSpecial）｜VBA入門
6.繰り返し処理（For Next)｜VBA入門
7.Range以外の指定方法（Cells,Rows,Columns）｜VBA入門
8.セルに文字を入れるとは（Range,Value）｜VBA入門
9.とにかく書いてみよう（Sub,End Sub）｜VBA入門
10.マクロはどこに書くの（VBEの起動）｜VBA入門
- ホーム
- マクロVBA応用編
- マクロVBAサンプル集
- Excelの表をPowerPointへ図として貼り付け
このサイトがお役に立ちましたら「シェア」「Bookmark」をお願いいたします。
記述には細心の注意をしたつもりですが、
間違いやご指摘がありましたら、「お問い合わせ」からお知らせいただけると幸いです。
掲載のVBAコードは動作を保証するものではなく、あくまでVBA学習のサンプルとして掲載しています。
掲載のVBAコードは自己責任でご使用ください。万一データ破損等の損害が発生しても責任は負いません。