パワーポイントについて質問です。まったくの初心者です。


複数行で書かれているテキストがあります。その1行1行をパワーポイントの1ページ1ページに記入する手順、もしくはそのようなツールがあったら教えてください。

(例)
下記のような複数行のテキストがあったとします。
東京都
大阪府
愛知県
福岡県

パワーポイントにおいて
スライド1 東京都
スライド2 大阪府
スライド3 愛知県
スライド4 福岡県

初心者ですので、質問が足りなかったら、教えて下さい。ご回答のほどお願いします。

環境
Windows 10  Microsoft Office Professional PLUS 2016

回答の条件
  • 1人5回まで
  • 13歳以上
  • 登録:
  • 終了:2019/11/01 21:18:05

ベストアンサー

id:ken3memo No.1

回答回数316ベストアンサー獲得回数113

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

コードが参考るといいなぁ・・と思いつつ、失礼します。

id:taroemon

ありがとうございます。

大切に使わせていただきます。

2019/11/01 21:17:59

この質問への反応(ブックマークコメント)

「あの人に答えてほしい」「この質問はあの人が答えられそう」というときに、回答リクエストを送ってみてましょう。

これ以上回答リクエストを送信することはできません。制限について

回答リクエストを送信したユーザーはいません