三流君 ken3のmemo置き場

三流プログラマーのメモ書きです。主にVBAやWindowsの話題が多いです

挨拶・自己紹介:
失敗続きのAB型の変わり者 :三流プログラマー Ken3です
フリーのエンジニア・個人事業主です・・と書くと聞こえはイイが(それとなくカッコよく聞こえるが)、 現在は小さな案件の受注請負 と 短期派遣 で 日々つつましく?ほそぼそと暮らしてます。
よく検索されるキーワード: [質問回答XXXXさんへ] [CreateObject] [VBA] [JRA競馬オッズ]

人力検索の回答下書き ExcelのA列をPowerPointのスライド 1ページ単位で作成する

下記の人力検索の質問に回答してみた
q.hatena.ne.jp

ここから下書き、テスト

操作方法のテストとコードの設置方法
※Office365 の ExcelPowerPointでテストしました
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

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

Ken3 ホームページ 目次

分類:HPを大きく分けると4つの柱(分類)です。
・[Excel/Access VBA]の解説
・[ASP(Active Server Pages)]の解説。
・[元コンビニ店長時代の話]が弟に巻き込まれ、失敗した脱サラ、畑違い?の仕事で失敗。
・[プログラマーの愚痴]では、あまり見せたくない三流プログラマーの内面かな。
三流君を踏み台にする
主に上記4つの分類でHP作成やメルマガの発行を行ってます。
※更新頻度が落ちていて情報の鮮度が悪いです。



Googleを使用して検索する

読者の声:三流君の説明・解説じゃ よくわからなかったから、Googleを使って、自分で検索します。
三流君:残念です。あっ、下記にGoogleの検索窓を設置しました。
いろいろ指定して試してみてください。

Google
探す言葉:気になる単語や,オブジェクト(Document),プロパティ(.Busy)やメソッド(.Navigate)などを入れて検索してみてください。


言語を指定:見つからない時は指定無しで探す

サイト指定:人気QAサイト や 一次情報MS本家を指定する
一次情報・二次情報まとめから探る
QAサイトの質問から探る
検索実行: ←オプション確認後に検索ボタンを押してください

期間指定:情報の鮮度も大切?
検索実行: ←オプション確認後に検索ボタンを押してください


本当に三流なんです(笑):たまにスゴイですねなんて言われることもありますが、
真実は→ [三流君の真実は...] ←を初めに見てくださるとわかると思います。
(からくりは、成功例↑しか載せてなくて ヒドイ失敗例はお蔵入り迷宮入りが多かったりします)