三流君のソースコード置き場

三流プログラマーが作成したコードが置いてあります。ブログに過去のソースコードをアップして、ブログの検索機能で利用してます(利用予定です)※古くさいコードが多いです・・・



パワーポイント マクロ .SlideShowWindows(1).View.Next 次ページ処理を探ってみた

人力検索はてなの質問
q.hatena.ne.jp

回答をライブ配信で作ろうとするが、ハマったお話です。
※前半は、グダグダなので、ゆるしてください・・・

PowerPoint VBA 二つのスライド 次ページ処理を同時に行う方法をライブ配信で探ってみた・・・ - YouTube
www.youtube.com

マクロのボタンを押すと、
立ち上がっている二つのスライド

単純に次のページにするなら
18:32 のような処理でいいなら

Sub next2()

    Application.SlideShowWindows(1).View.Next  'スライド1番目を次ページ
    Application.SlideShowWindows(2).View.Next  'スライド2番目を次ページ

End Sub


動作ボタン
f:id:ken3memo:20180222031840j:plain

割り当てるとできそうです。
※動作イメージが間違っていたらすみません。

昔の手前味噌サンプル
ken3memo.hatenablog.com
より

スライドの次ページが書いてあるので、
これを参考に探ってみました。

oApp.SlideShowWindows(1).View.Next '次のページ

余談、下記失敗した、長いコードです。

Sub aaa()

    'Application.Presentations(4).Name
    '
    'oApp.SlideShowWindows(1).View.Next '次のページ

    Dim oPT As Presentation

    Set oPT = Application.Presentations(1)
    Debug.Print oPT.Application.Name
    
    oPT.Application.SlideShowWindows(1).View.Next
    oPT.Application.SlideShowWindows(2).View.Next

End Sub

9:00 ~ As Presentations と sをつけてるから、変でした。
As Presentation に直してから、.Nameを使えば、ファイル名を取れそうです。
へんなライブ配信ですみません。

As Presentations
As Presentation
の違いでした。

また、
.Applicationを二つ重ねたり、
面白いことをしてて、スミマセン。ぉぃぉぃ。
※※ミスは、ライブ配信の醍醐味ってことで温かい目でみていただけると・・・

挨拶・自己紹介:
失敗続きのAB型の変わり者 :三流プログラマー Ken3です
フリーのエンジニア・個人事業主です・・と書くと聞こえはイイが(それとなくカッコよく聞こえるが)、 現在は小さな案件の受注請負 と 短期派遣 で 日々つつましく?ほそぼそと暮らしてます。
(※詳細は[三流君 三流プログラマーとは?]を見てください)



Ken3 ホームページ 目次

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

三流解説動画の再生リスト
https://www.youtube.com/user/ken3video/playlists

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