三流君 ken3のmemo置き場

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

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

パワポ 縦スライドにwavファイルを追加 PowerPoint2003で記録したマクロを修正してみた

2003でマクロ記録したコードを使い、
新規プレゼンを縦スライドにして、
テスト用の音声wavファイル D:\2022\TEST.wav を挿入してみます。
youtu.be
https://youtu.be/6KOtib8Isfg

#PowerPointVBA #マクロ記録 #縦スライド #wav #Presentations #PageSetup #Shapes #AddMediaObject #デバッグ

作成したコード AddMediaObject2でハマった・・・

Option Explicit

Sub TEST()
    Presentations.Add WithWindow:=msoTrue  '新規作成
    ActiveWindow.View.GotoSlide Index:=ActivePresentation.Slides.Add(Index:=1, Layout:=ppLayoutTitle).SlideIndex
    ActiveWindow.Selection.SlideRange.Layout = ppLayoutBlank
 
    'ページを縦に
    With ActivePresentation.PageSetup
        .SlideSize = ppSlideSizeOnScreen
        .FirstSlideNumber = 1
        .SlideOrientation = msoOrientationVertical
        .NotesOrientation = msoOrientationVertical
    End With
    
    'wav音声の追加
    ActivePresentation.Slides(1).Shapes.AddMediaObject2 _
    (FileName:="D:\2022\TEST.wav", Left:=0, Top:=0).Select

End Sub

マクロ記録からF1のヘルプで公式に飛ぶと便利です。
Presentations.Add メソッド (PowerPoint)
https://docs.microsoft.com/ja-jp/office/vba/api/powerpoint.presentations.add

Presentation.PageSetup プロパティ (PowerPoint)
https://docs.microsoft.com/ja-jp/office/vba/api/powerpoint.presentation.pagesetup

Shapes.AddMediaObject メソッド (PowerPoint)
https://docs.microsoft.com/ja-jp/office/vba/api/powerpoint.shapes.addmediaobject
>重要
PowerPoint 2013で廃止されました。 Shapes.AddMediaObject2 メソッド (PowerPoint)を参照してください。 メディア オブジェクトを作成します。 新しいメディア オブジェクトを表す Shape オブジェクトを返します。

Shapes.AddMediaObject2 メソッド (PowerPoint)
https://docs.microsoft.com/ja-jp/office/vba/api/powerpoint.shapes.addmediaobject2


下記、マクロ記録で記録されたコード

Sub Macro2()
'
' マクロ記録日: 2022/5/18 ユーザー名: Ken3           O
'

    Presentations.Add WithWindow:=msoTrue
    ActiveWindow.View.GotoSlide Index:=ActivePresentation.Slides.Add(Index:=1, Layout:=ppLayoutTitle).SlideIndex
    ActiveWindow.Selection.SlideRange.Layout = ppLayoutBlank
End Sub

Sub Macro3()
'
' マクロ記録日: 2022/5/18 ユーザー名: Ken3           O
'

    With ActivePresentation.PageSetup
        .SlideSize = ppSlideSizeOnScreen
        .FirstSlideNumber = 1
        .SlideOrientation = msoOrientationVertical
        .NotesOrientation = msoOrientationVertical
    End With
End Sub

Sub Macro4()
'
' マクロ記録日: 2022/5/18 ユーザー名: Ken3           O
'

    ActiveWindow.Selection.SlideRange.Shapes.AddMediaObject(FileName:="G:\0-新規プロジェクト.wav", Left:=258, Top:=348).Select
End Sub

Ken3 ホームページ 目次

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



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