データ転記でページが足りない時、 'スライドを増やす ppApp.ActivePresentation.Slides(1).Copy '1ページ目をコピー ppApp.ActivePresentation.Slides.Paste p '最終スライドpageに貼り付け で、1ページ目をコピーしました。 p = 1 While Len(Trim("" & r.O…

Option Explicit Sub test1() '.Speakなんてあるんだ・・・ Debug.Print "開始" & Now Range("A1:C5").Speak Debug.Print "終了" & Now End Sub Sub test2() '直接文字列で読み上げ も 可能みたいです Application.Speech.Speak "あのあの" Application.Spee…

ken3memo.hatenablog.com ↑で使用する、メニューの名前がわからないとき、、右クリック メニューへ マクロを追加したい時、 どのメニューか？調べる時に使ってみてください。現在の設定をExcelシートへ書き出してみました。 Sub CommandBarの内容をセルに書…