Option Explicit '起動済みの既存 パワーポイント スライド .Shapes から テキストを取り出す 'アクティブシートに名前とテキストをセット Sub test20220915ppスライド内シェイプ名取得() Dim ppApp As Object 'As PowerPoint.Application Set ppApp = Nothi…

ActiveChart.SeriesCollection.Count で グラフ系列の数 ActiveChart.SeriesCollection.Count よく見かける .Count でChartのSeries数がわかりそうです Option Explicit Sub bbb() Dim n As Integer Debug.Print "コレクションの数:" & ActiveChart.SeriesCo…

ken3memo.hatenablog.comhttps://youtu.be/jP0O2KlXeLE 目次 00:00 1.処理のタイミングをとりたい 00:32 1.2 標準モジュールにOnSlideShowPageChange 03:20 1.4 ん？一回目にコードが走らない？なんだこれ？ 05:55 2.事前準備で名前を付ける 08:12 3.1 1ペー…

PowerPoint2003マクロ記録で 挿入 ビデオとサウンド ファイルからサウンド 操作を記録した。 記録したコードは概要欄・コメント欄を見てください。youtu.be#PowerPointVBA #マクロ記録 #Shapes #AddMediaObject #デバッグ .AddMediaObject は 2013で廃止され…

PowerPoint2003マクロ記録で ファイル ページ設定 スライド 縦(P) 操作を記録した。 記録したコードは概要欄・コメント欄を見てください。youtu.be#PowerPointVBA #マクロ記録 #PageSetup #デバッグ Sub Macro3() ' ' マクロ記録日: 2022/5/18 ユーザー名: K…

PowerPoint2003マクロ記録で ファイル 新規作成 (ついでに レイアウト 空白) 操作を記録した。 記録したコードは概要欄・コメント欄を見てください。youtu.be#PowerPointVBA #マクロ記録 #Presentations #Add #デバッグ Sub Macro2() ' ' マクロ記録日: 2022…

.vbs で マクロ付きExcelファイル .xlsm を開き、マクロを実行してみます。 タイトル画像1.簡単なVBSの説明 Set oApp = Nothing '1.1 Excelを起動 WScript.Sleep 1000 Set oApp = CreateObject("Excel.Application") oApp.Visible = True '可視にする oApp.U…

データ転記でページが足りない時、 'スライドを増やす 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の内容をセルに書…

Sub Macro1() ' ' Macro1 Macro ' ' Dim n As Integer '先頭にカーソル移動 https://www.relief.jp/docs/word-vba-selecting-start-documents.html から引用 ActiveDocument.Bookmarks("\StartOfDoc").Select '文字列を探す、ターゲット位置決め Selection.F…