ExcelVBAとPowerPointの連携パート１【PowerPointの起動とスライドの挿入】

1 ExcelVBAとPowerPointの連携

この記事を書いた人
最新の記事

taka

あることがキッカケでVBAを独学で勉強しました、今ではブログを通してVBAでできることを解説しつつ、VBAや他の言語の勉強、ブログ運営の勉強をしています(^^♪

ExcelVBAとPowerPointの連携

さて、とうとうExcelVBAで操作できるOfficeソフトも最後となりましたPowerPoint！

今までAccess、Outlook、Wordと紹介してきましたが今回のPowerPointでOLEも最後となると思います(*_*;・・・ないですよね？

正直、PowerPointに詳しくない私としては、PowerPointをExcelVBAで操作したところでそこまで恩恵が受けられるのかナゾですが、せっかくOffice365にインストールされているので操作してみようかと思います(笑)

ExcelVBAでPowerPointを操作するための準備をしよう

まずはExcelVBAからPowerPointを起動するところから始めてみましょう(^^♪

参照設定を使用した場合のコードで紹介してきます。

参照設定する方法はこちらを参考にしてください。
PowerPointを参照設定する場合は【Microsoft PowerPoint ＃＃.＃ Object Library】を探し出してください

参照設定とCreateObject関数の違いについてはこちら
【VBA CreateObject関数と参照設定の違い】

ExcelVBAからPowerPointを起動してみよう

ではさっそくExcelVBAからPowerPointを起動してみます。まずは簡単に短いコードから試してみましょう！

オブジェクト変数を宣言
インスタンスを作成
PowerPointを表示

Sub Sample()
Dim pwpApp  As PowerPoint.Application
' PowerPointのインスタンスを作成。
Set pwpApp = New PowerPoint.Application
'PowerPointを表示する
pwpApp.Visible = True
Set pwpApp = Nothing 'オブジェクトを開放
End Sub

Sub Sample()

Dim pwpApp As PowerPoint.Application

' PowerPointのインスタンスを作成。

Set pwpApp = New PowerPoint.Application

'PowerPointを表示する

pwpApp.Visible = True

Set pwpApp = Nothing 'オブジェクトを開放

End Sub

PowerPointのアプリケーションが起動したはずです。

ExcelVBAからPowerPointのスライドを追加する！

起動したPowerPointは上記画像のようにスライドが表示されていない、ただ起動されただけの状態になっているはずです。このままではVBAでスライド操作したくても操作ができません(;^ω^)

まずはプレゼンテーションを作成するために【Presentations.Add】を使います、プレゼンテーションを作成するだけならこのままでもいいですが、このままだとスライドは追加されません。

なので【Presentations.Add】をオブジェクト変数にセットして、【Slides.Add メソッド】と一緒に使うことでスライドを追加するようにします。

Sub Sample()
Dim pwpApp  As PowerPoint.Application
Dim pradd As Object
' PowerPointのインスタンスを作成。
Set pwpApp = New PowerPoint.Application
'PowerPointを表示する
pwpApp.Visible = True
'PowerPointのプレゼンテーション作成する＆スライドを追加するためにオブジェクト変数にセット
Set pradd = pwpApp.Presentations.Add
'新しいプレゼンテーションを作成して新しいスライドを作成する
'Indexは挿入する位置を指定、Layoutはレイアウトを指定(ppLayoutTitleはスライドの見出し)
pradd.Slides.Add Index:=1, Layout:=ppLayoutTitle
Set pwpApp = Nothing 'オブジェクトを開放
End Sub

Sub Sample()

Dim pwpApp As PowerPoint.Application

Dim pradd As Object

' PowerPointのインスタンスを作成。

Set pwpApp = New PowerPoint.Application

'PowerPointを表示する

pwpApp.Visible = True

'PowerPointのプレゼンテーション作成する＆スライドを追加するためにオブジェクト変数にセット

Set pradd = pwpApp.Presentations.Add

'新しいプレゼンテーションを作成して新しいスライドを作成する

'Indexは挿入する位置を指定、Layoutはレイアウトを指定(ppLayoutTitleはスライドの見出し)

pradd.Slides.Add Index:=1, Layout:=ppLayoutTitle

Set pwpApp = Nothing 'オブジェクトを開放

End Sub

このようにタイトルスライドが追加されていると思います(^.^)

２ページ目以降もスライドを追加する

さて、上記で説明したようにタイトルスライドだけのスライドを作成してみてもあまり意味がありませんよね？

２ページ目以降もスライドは必要ですので、このページに続く「テキストレイアウト」を追加してみましょう！

ppLayoutText見本

下記のコードでは２ページ目以降には「ppLayoutText」というレイアウトを指定しています。

Sub Sample()
Dim pwpApp  As PowerPoint.Application
Dim pradd As Object
　　Dim i As Long
' PowerPointのインスタンスを作成。
Set pwpApp = New PowerPoint.Application
'PowerPointを表示する
pwpApp.Visible = True
'PowerPointのプレゼンテーション作成する＆スライドを追加するためにオブジェクト変数にセット
Set pradd = pwpApp.Presentations.Add
'新しいプレゼンテーションを作成して新しいスライドを作成する
With pradd
'ppLayoutTitleはスライドの見出し
'ppLayoutTextはテキストとタイトル
.Slides.Add Index:=1, Layout:=ppLayoutTitle
For i = 2 To 4 '繰り返し処理を使用して任意の枚数を作成
.Slides.Add Index:=i, Layout:=ppLayoutText
Next
End With
Set pwpApp = Nothing 'オブジェクトを開放
End Sub

Sub Sample()

Dim pwpApp As PowerPoint.Application

Dim pradd As Object

　　Dim i As Long

' PowerPointのインスタンスを作成。

Set pwpApp = New PowerPoint.Application

'PowerPointを表示する

pwpApp.Visible = True

'PowerPointのプレゼンテーション作成する＆スライドを追加するためにオブジェクト変数にセット

Set pradd = pwpApp.Presentations.Add

'新しいプレゼンテーションを作成して新しいスライドを作成する

With pradd

'ppLayoutTitleはスライドの見出し

'ppLayoutTextはテキストとタイトル

.Slides.Add Index:=1, Layout:=ppLayoutTitle

For i = 2 To 4 '繰り返し処理を使用して任意の枚数を作成

.Slides.Add Index:=i, Layout:=ppLayoutText

End With

Set pwpApp = Nothing 'オブジェクトを開放

End Sub

ExcelVBAからPowerPointを保存・終了する

では最後にExcelからPowerPointを終了してみましょう。

PowerPointを保存するには「ActivePresentation.Save」などを使用しますが今回は名前を付けて保存する「ActivePresentation.SaveAs 」を使用しました。

また、理由がまだわかりませんが【保存の動作が安定しません】とりあえずWaitメソッドなどで2~3秒ほど待たないと保存ができないです(;^ω^)(待ってもできないときがある)

DoEvents関数を挟むと割と安定します。もし理由がわかりましたらコメントで教えてください(__)

最後にPowerPointを終了する「pwpApp.Quit」というコードを追加すれば完成です！

Sub Sample()
Dim pwpApp  As PowerPoint.Application
Dim pradd As Object
Dim i As Long
' PowerPointのインスタンスを作成。
Set pwpApp = New PowerPoint.Application
'PowerPointを表示する
pwpApp.Visible = True
'PowerPointのプレゼンテーション作成する＆スライドを追加するためにオブジェクト変数にセット
Set pradd = pwpApp.Presentations.Add
'新しいプレゼンテーションを作成して新しいスライドを作成する
With pradd
'ppLayoutTitleはスライドの見出し
'ppLayoutTextはテキストとタイトル
.Slides.Add Index:=1, Layout:=ppLayoutTitle
For i = 2 To 4 '繰り返し処理を使用して任意の枚数を作成
.Slides.Add Index:=i, Layout:=ppLayoutText
DoEvents
Next
End With
'なぜか3秒ほど待たないと保存できないのでWaitメソッドを使用します
Application.Wait Now() + TimeValue("00:00:02")
'名前を付けて保存します｡マイドキュメントに保存されます
pwpApp.ActivePresentation.SaveAs Filename:="Sampleプレゼン"
pwpApp.Quit
Set pwpApp = Nothing 'オブジェクトを開放
End Sub

Sub Sample()

Dim pwpApp As PowerPoint.Application

Dim pradd As Object

Dim i As Long

' PowerPointのインスタンスを作成。

Set pwpApp = New PowerPoint.Application

'PowerPointを表示する

pwpApp.Visible = True

'PowerPointのプレゼンテーション作成する＆スライドを追加するためにオブジェクト変数にセット

Set pradd = pwpApp.Presentations.Add

'新しいプレゼンテーションを作成して新しいスライドを作成する

With pradd

'ppLayoutTitleはスライドの見出し

'ppLayoutTextはテキストとタイトル

.Slides.Add Index:=1, Layout:=ppLayoutTitle

For i = 2 To 4 '繰り返し処理を使用して任意の枚数を作成

.Slides.Add Index:=i, Layout:=ppLayoutText

DoEvents

End With

'なぜか3秒ほど待たないと保存できないのでWaitメソッドを使用します

Application.Wait Now() + TimeValue("00:00:02")

'名前を付けて保存します｡マイドキュメントに保存されます

pwpApp.ActivePresentation.SaveAs Filename:="Sampleプレゼン"

pwpApp.Quit

Set pwpApp = Nothing 'オブジェクトを開放

End Sub

フォロー・チャンネル登録お願いします

■Twitterフォロー

Follow @taka_pc1027

■YouTubeチャンネル登録

ファイルやコードの利用、WEBサイトの利用について

サンプルコードなどは当サイトの免責事項をよくお読みになってからお使いください。

カテゴリーで絞る

月で探す

ExcelVBAとPowerPointの連携パート１【PowerPointの起動とスライドの挿入】

taka

最新記事 by taka (全て見る)

ExcelVBAとPowerPointの連携

ExcelVBAでPowerPointを操作するための準備をしよう

ExcelVBAからPowerPointを起動してみよう

ExcelVBAからPowerPointのスライドを追加する！

２ページ目以降もスライドを追加する

ExcelVBAからPowerPointを保存・終了する

フォロー・チャンネル登録お願いします

ファイルやコードの利用、WEBサイトの利用について

Sponsored Link

アクセスカウンター

プロフィール

Facebook

Twitter

当サイトの環境について

特別企画実施中

アーカイブ

最近の投稿

メニュー

カテゴリーで絞る

月で探す

taka

最新記事 by taka (全て見る)

ExcelVBAとPowerPointの連携

ExcelVBAでPowerPointを操作するための準備をしよう

ExcelVBAからPowerPointを起動してみよう

ExcelVBAからPowerPointのスライドを追加する！

２ページ目以降もスライドを追加する

ExcelVBAからPowerPointを保存・終了する

フォロー・チャンネル登録お願いします

ファイルやコードの利用、WEBサイトの利用について

Sponsored Link

共有:

RECOMMENDこちらの記事も人気です。

一貫性のあるBookの値を取得するツールを作ってみた

VBA Excelを非表示にしたシステムの作り方

ExcelとWord連携パート2【セルの値をWordに転記してみよう】

VBAで漢字学習ツールを作成してみた

Application.Dialogs使用方法＆定数一覧

VBA【Waitメソッド】指定した時間処理を止める

VBA【先月末/今月末/来月末を取得する方法】

ざっくりローン計算システム作成しました

アクセスカウンター

プロフィール

Facebook

Twitter

当サイトの環境について

特別企画実施中

アーカイブ

最近の投稿

メニュー

VBA　Excelを非表示にしたシステムの作り方