…jSLIDE As PowerPoint.Slide 'スライド Dim objShape As PowerPoint.Shape 'シェイプ、テキスト、図形ほか Dim strLINK As String 'リンク文字列、エラーチェックも兼ねて使用 Dim nPAGE As Integer 'アクティブなパワポのスライド全てをあさる。 Debug.Print "スライド番号", "objShape.Name", "リンク先" nPAGE = 0 For Each objSL…

…テストしてみた。 ＞powerpointに貼った動画をすべて自動再生＋ループ再生の設定にしようと ＞VBAをchatGPTにお願いしました。 ＞ ＞以下のものを実行しましたが、自動再生が設定されませんでした。 ＞ループ再生のほうがちゃんとマクロにて設定されました。 ＞ ＞どこがまずいですか？ ＞macでOSは最新、 ＞powerpointは16.73を使用しています。よろしくお願いいたします。 Sub AutoPlayAndLoopVideos() Dim slide As …

… Excel to PowerPointの差し込み印刷もどき処理 ken3memo.hatenablog.com ↑で、 不具合・バグが発生していたので、その対策も兼ねて、 パワーポイントのスライドを削除してみました。処理の参考となれば幸いです。youtu.be https://youtu.be/OJLUpVB6cUA 目次 00:00 あいさつ・キッカケ 00:27 1.ExcelからPowerPointに差し込み印刷っぽくデータをセットするマクロ 02:16 2.質問をい…

…ント #読み上げ #PowerPoint #PowerPointVBA #マクロ #SAPI #GetVoices #Microsoft #ms365 #Windows10 1.やりたいこと 男性の声で読み上げを行いたい・・・ と質問をみかけたので、少し調べてみました。Gender=Male; Gender=Female; をパラメーターに追加すると、可能？2.テストしてみますテストしたけど、、、動かない 笑いSpVoiceを検索すると、 MSのページ learn.micro…

…いをテストしてみた#PowerPointVBA #マクロ #英語で読み上げ #ms365 #PowerPoint #テスト #パワーポイント #VBA #音声読み上げ #字幕 #英語 #言語指定 #ソースコード1.現状確認 00:23 まずは、現状を確認する CreateObject("SAPI.SpVoice") に何も指定しないで、 デフォルト状態で ノートを読ませ、現状を確認する。2.機械音声の言語を英語USにしてみた 01:10 なので、 次に演者じゃなかった 読み込…

…です#ms365 #PowerPointVBA #マクロ #PowerPoint #パワポ #パワーポイント #ExcelVBA #エクセル #テキスト #図形 #位置を移動 #作成方法 #初心者 #プレゼン #Left #Top1.テキストや図形の位置LeftとTopを取得 01:25 ～ 図001 PowerPointからテキスト・図形の位置をExcelシートへ過去に作成した、似ている処理を修正してみます。Excel VBA で PowerPointのタイトルテキストを取…

…ティブシート内の表をPowerPointへコピペ(転記)する 複数の表を探す #デバッグ #バグ https://ken3memo.hatenablog.com/entry/2021/02/24/092355 www.youtube.com1.Range("B2:D5")など固定エリアをパワーポイントに貼り付けてみる https://www.youtube.com/watch?v=iMavOYyH2ac2.シート内の表を探… 02/24 09:23に更新 3年前の記事 and…

マクロでPowerPointのテキストを取得したい なら 昔書いた記事の ken3memo.hatenablog.com が使えれば。 ※↑テキストボックスや図形に付いた文字列だけで、 表などは取得してないけど、参考になれば幸いです。リンク先のコードを転記します。 Option Explicit '起動済みの既存 パワーポイント スライド .Shapes から テキストを取り出す 'アクティブシートに名前とテキストをセット ※勝手に全クリアして書き込むので※※注意 Sub t…

…でノートを読み上げ PowerPoint VBA SAPI.SpVoice Speak デバッグ マクロ作り方・使い方 https://www.youtube.com/watch?v=mLUdzmReyCU に (↑音読処理 CreateObject("SAPI.SpVoice")で処理した 元になった上記動画もヨロシク)ノートを行単位 改行コード vbCR で区切って、 SAPI.SpVoiceで読み上げと用意したテキストボックスに代入しただけです。動画で設置方法や仕組みを…

…meLine As PowerPoint.TimeLine 'タイムラインって日本語だと？何だろう？ Set objTimeLine = objSLD.TimeLine 'スライドの下にタイムラインがあります '↑このタイムラインにアニメ効果を追加していくイメージです Dim objEffect As PowerPoint.Effect '効果 Set objShape = ActiveWindow.Selection.ShapeRange(1) '←このシェイプを↓アニメ効…

…く 15:25 4.PowerPoint VBAでリンクのを更新するように変更する 21:22 Splitでパスを分解 配列最後をUBound 27:34 テストデータ 複数のExcel表をリンクする 31:11 Excel複数リンクの総合テスト 33:03 パワポマクロにコードを貼り付ける 38:32 簡単なコードの説明#パワーポイント #エクセル #リンク更新 #自動更新 #マクロ #VBA #PowerPointVBA #ExcelVBA #デバッグ #Debug #L…

…st_ExcelからPowerPointひな型にデータセット後別名保存() '入力テンプレ:パワポのファイルを開く Dim ppApp As PowerPoint.Application 'ツール・参照設定してください Set ppApp = CreateObject("PowerPoint.Application") ppApp.Visible = True '可視にする 'いつもActivePresentationでやってるけど、たまには変数を使用 Dim ppプレゼン …

… －－－－－－ → PowerPoint B列 C列 D列 E列 シート名 セル範囲 Page番号 表の名前 順位表 a3:e9 3 セリーグ 順位表 $A$11:$E$17 3 パリーグ ↑シート名とセル範囲を指定する エクセル 順位表!a3:e9 を パワポの スライド3ページ の 表名:セリーグ にセットする 次の指示 順位表!$A$11:$E$17 → 3Pageの表名:パリーグにセットするシートに B,C列 セット元(Excel:シート名と範囲) D,E列 セット先…

…9 1.アクティブなPowerPoint表の一覧を取得 11:25 2.アクティブなPowerPoint表を一括でExcelのシートへ 16:00 行と列のループでデータをセット 17:00 3.指定した表を指定した位置へ取り込む 19:45 ソースの説明 デバッグほか 23:34 転記処理のデバッグ 27:23 4.指定したファイルを開き、表を取り込む 31:07 会議で使用した報告書パワポからデータを抜く？ 34:45 コードのポイントを説明 37:47 終わりの挨拶 と…

PowerPointの表をVBAから操作するコードを探ってみます ActivePresentation.Slides(2).Shapes("表 2").Table.Cell(3,2).Shape.TextFrame.TextRange.Text = "文字列" の一行紹介の動画でOKなのに無駄に長く、 型宣言して型にハメながら ステップ実行してみます。 ※見捨てないで最後まで視聴していただけるとありがたいです。。。 ※※急ぎの人は 12:23 から視聴してください。 yout…

…テストExcelからPowerPointにデータをセットする解説動画の コメント欄に テンプレを2枚(複数)をコピーしながら、 Excel A～C,D～FをPowerPointに2枚単位でデータを流し込む、 そんな質問が書かれたので、少し探ってみます。 ＞パワポのテンプレを2枚以上にして、同じようなことは可能なのでしょうか？ ＞A～Cまでを1枚目のスライド、D～Fを2枚目に流し込み、 ＞同じように行数分複製していくイメージです。 いつもの動画解説です、ソースコードとあわせてみ…

PowerPoint VBAのイベントで、 アニメーションのイベントを探ってみました と言っても WithEvents App As Application で SlideShowNextClick スライドショー内のクリック SlideShowNextBuild アニメーション 表示前 タイミングをテストしただけでした。また、 SlideShowView.GetClickCount メソッド (PowerPoint) SlideShowView.GetClickIndex …

…#パワーポイント #PowerPointVBA #マクロ #フォント #一括変更 #マクロ設置方法 #デバッグ下記、できたと思って解説してるが、 途中で不具合・バグをみつけて気落ちする・テンション下がるオッサンの解説です※説明長いよ・・・ youtu.be https://youtu.be/2EOq7Byl3BY 目次 00:00 0.やりたいこと、コードの説明をかるく 00:50 1.実際にテストする 01:15 VBAコードの説明 デバッグ 04:01 2.エラーのテスト…

…bject 'As PowerPoint.Application Set ppApp = Nothing On Error Resume Next '取得エラー時に次へ Set ppApp = GetObject(, "PowerPoint.Application") On Error GoTo 0 'エラーを元に戻す※これを忘れると、デバッグ時にハマるから注意 If ppApp Is Nothing Then MsgBox "パワポを取得できません。プレゼンスライドを開いて…

…ahoo.co.jpPowerPointグラフの Shape.LinkFormat.SourceFullName を更新するとできるみたいです LinkFormat.SourceFullName をググって見てください。いつもの あのあの イライラ解説です※今回は特に、操作ミスが多くイライラします。 www.youtube.com https://www.youtube.com/watch?v=3MNNTh6K4Oc 目次 00:00 0.やりたいこと 00:45 単体テスト…

…#パワーポイント #PowerPointVBA #マクロ #デバッグ #ノート読み上げ #SAPI.SpVoice #Speak下記、いつもの あのあの うるさく イライラさせる 解説動画です youtu.be https://youtu.be/mLUdzmReyCU 目次 00:00 0.あいさつ、やりたいこと 01:32 1.標準モジュールにコードを書く 01:50 2.挿入・動作でマクロ指定 03:03 3.動作したボタンのコピー確認 03:30 簡単なコード説明 と …

パワポでスタンプ処理 UserForm イメージオブジェクトを使い連続で図形をセットする。 そんな処理を試作 仕組みは単純で、UserFormのイメージコントロールを使い、 イメージが押された位置にスタンプ図形シェイプをセットしてみました知恵袋の質問 detail.chiebukuro.yahoo.co.jp にチャレンジしてみました。下記、いつもの あのあの イライラ 解説動画です。 youtu.be https://youtu.be/fKNl6FX-h0A 目次 00:0…

…ddPicture PowerPoint をぐぐってみてください。#ExcelVBA #PowerPointVBA #マクロ #画像ファイル #パワポ #貼り付け #デバッグ #Shapes #AddPictureコードをアレンジして使ってみてください。 ソースコード 'Excelの画像ファイルリストから、 'パワポのスライドを作成してみます。 Sub ExcelからPowerPointへ画像ファイルをセット20220823() Dim ppApp As Object 'Po…

…VBScript #PowerPointVBA #パワポ #画像貼り付け #マクロ #デバッグ #Shapes #AddPicture下記、いつもの解説動画・・・あのあの イライラ動画ですがよろしく・・・ youtu.be https://youtu.be/jZV4o_Uz0oY 目次 00:00 挨拶、やりたいこと 00:48 いきなりテストしてみる 02:06 挿入 図 ファイル Shapes.AddPicture 02:33 VBSの処理説明 03:58 プロパティを修…

知恵袋の質問に、PowerPointで図形を左揃え、上揃え、均等の質問があったので、 パワポ VBA ユーザフォームで図形の配置 整列を探ってみました。知恵袋の質問 detail.chiebukuro.yahoo.co.jp ↑に回答してみました。下記、いつもの あのあの そのその イライラ解説動画・・・ youtu.be https://youtu.be/46MBczsYmww 目次 00:00 挨拶、処理内容 00:59 0.テスト実行 02:00 1.コードの説明 04…

…イラ#イライラ棒 #PowerPointVBA #パワーポイント #マクロ #ActionSettings #MouseOver #リンク動作設定 #マウス通過1.手作業だと、設定がめんどくさい ※複数、図形、オブジェクトを選択して、 動作リンクをなぜか？設定不可？ 複数まとめて同じ動作を設定したいだけなのに・・・2.↑なので、図形を複数選択後、マクロを起動すると、 選択図形の動作リンクで、スライドの最後に移動させる2.1 図形のマウス通過の設定は、 With ActiveW…

…jSLIDE As PowerPoint.Slide Set objSLIDE = ActivePresentation.Slides(2) 'テストで2ページ目 Dim objHL As PowerPoint.Hyperlink For Each objHL In objSLIDE.Hyperlinks On Error Resume Next '動作ボタン・図形など テキストなしの時エラーになるので無視する Debug.Print ".TextToDisplay: " &…

…いただきました。 ＞PowerPointでゲームモドキを作っているものです。 ＞スライド1に能力設定（攻撃、防御）、ランダム関数を使った数値 ＞スライド2で戦闘を考えているのですが、スライド1の数値をスライド2に反映させる方法がわかりません。 サクっとカッコつけて素早く答えたかったけど、 いつものように、あのあの、手間取りました。 ぉぃぉぃ youtu.be https://youtu.be/jP0O2KlXeLE 目次 00:00 1.処理のタイミングをとりたい 00:32…

…機械音声を作成し、 PowerPointの縦スライドに転記する#ExcelVBA #PowerPointVBA #自動転記 #英単語 #縦スライド #マクロ youtu.be https://youtu.be/pHpxR_IaJ3M 目次 00:00 0.実行結果 00:53 1.単体の部品説明 06:50 2.不具合0.実行結果 実行結果を先に見せる作成結果: #shorts 英単語をパワポの #縦スライド で作成 #PowerPointVBA #ExcelVBA http…

…Otib8Isfg#PowerPointVBA #マクロ記録 #縦スライド #wav #Presentations #PageSetup #Shapes #AddMediaObject #デバッグ作成したコード AddMediaObject2でハマった・・・ Option Explicit Sub TEST() Presentations.Add WithWindow:=msoTrue '新規作成 ActiveWindow.View.GotoSlide Index:=Acti…