下記の人力検索の質問に回答してみた
q.hatena.ne.jp
ここから下書き、テスト
操作方法のテストとコードの設置方法
※Office365 の ExcelとPowerPointでテストしました
https://youtu.be/MOxfmcQcAk0
youtu.be
↑処理イメージが合っているか?確認してください
下記のコードをExcel VBAの標準モジュールに貼り付けて、実行してみてください
Option Explicit 'A列(A1から)にセットされたデータを使用して、 '1行1スライドのタイトルにして、 'PowerPointのスライドを作成する Sub スライド作成test() Dim oApp As Object 'PowerPoint の 起動、インターフェース用のオブジェクトを作る Set oApp = CreateObject("PowerPoint.Application") oApp.Visible = True '可視にする '新規プレゼンのファイル作成 新規の空ファイル作成 oApp.Presentations.Add WithWindow:=msoTrue 'ここからスライドをA列のデータがなくなるまで、追加する Dim n As Integer Dim strTITLE As String 'A列のデータをタイトルにする For n = 1 To 99 'MAX99枚 A列のデータを使用してスライドを作成 'A列のデータ存在チェック strTITLE = Trim("" & Cells(n, "A").Text) 'A列のデータを取り出し、左右の空白をカット If Len(strTITLE) = 0 Then Exit For '文字列の長さが0 データ無しならループ処理を抜ける 'スライドの追加 'レイアウトの種類 'Layout:=ppLayoutText 2 'Layout:=ppLayoutTitleOnly 11 'Layout:=ppLayoutTwoColumnText 3 oApp.ActiveWindow.View.GotoSlide Index:=oApp.ActivePresentation.Slides.Add(Index:=n, Layout:=2).SlideIndex 'タイトルをセット 一番目のオブジェクトにテキストセット oApp.ActiveWindow.Selection.SlideRange.Shapes(1).TextFrame.TextRange.Text = strTITLE Next n End Sub
蛇足で解説
VBA マクロ記録でパワーポイントスライド追加とタイトル代入を探る PowerPoint2003のマクロ記録を使用
https://youtu.be/dENBobeb5lY
youtu.be
コードが参考になるといいなぁ・・と思いつつ、失礼します。
2022/03/28 追記
とコメントが来たので、パワポのテキスト取得にチャレンジしてみたいと思います。
ken3memo.hatenablog.com