Excel の A列にｾｯﾄしたﾃｷｽﾄからPowerPointのｽﾗｲﾄﾞを作るｺｰﾄﾞのｻﾝﾌﾟﾙです

操作方法のﾃｽﾄとｺｰﾄﾞの設置方法
※Office365 の ExcelとPowerPointでﾃｽﾄしました
https://youtu.be/MOxfmcQcAk0
↑処理ｲﾒｰｼﾞが合っているか？確認してください

下記のｺｰﾄﾞを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

ｺｰﾄﾞが参考るといいなぁ･･と思いつつ､失礼します｡