…く 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…

…ream.Close Set oFileStream = Nothing Set oVoice = Nothing End Sub 関連動画 PowerPoint 画面切り替えを自動の0にしてスライドショーの連続実行 youtu.be ↑前回の失敗動画パワポの縦スライドで動画を作成するには？ パワポで縦スライドを作成後 動画としてプレゼンスライドをエクスポート YouTubeショート動画を作ってみた www.youtube.com ↑を見てください。も、よろしくお願いします。

…teObject("PowerPoint.Application") oApp.Visible = True '可視にする oApp.Presentations.Open("d:\JRA_TEST\20220508\pptest.pptx") 'WScript.Sleep(1000) '1秒待つ ※これが無いと、下の.Runがうまく動作しなかった、なぜ？ 'あれ？無くても動いた、気になるけど、なくていいか。 oApp.ActivePresentation.SlideShowS…

…ミングの秒数を入力、PowerPointの画面切り替え タイミングにセットする そんな処理を行ってみます。 タイトルサムネイルYoutubeのコメント欄で下記の質問をいただきました パワーポイントの自動画面切り替えの秒数の設定において、エスセルに記入した秒数を流し込むことは可能でしょうか。 パワーポイントのスライドが600ページ✖️4セットあり、それぞれ表示する秒数がエクセルにまとめてあります。 これを手打ちしていく作業がなかなか大変なので、効率的な（自動化できる）方法があれ…

タイトルサムネイルPowerPointのスライドで複数サムネイル画像を作成 各スライドをjpgファイルに保存したいと思い、 VBAを探ってみたら、 .Export で 簡単に画像ファイルを作成できました。 youtu.be https://youtu.be/Gf1AGfSdN5c 目次 00:00 挨拶 やりたいこと 00:50 1.プレゼンファイル全体を.Exportで出力 02:33 2.指定スライドを.Exportで出力 04:11 3.名前を付けて、全スライドを出力し…

…ExcelのデータをPowerPointに転記する そんな処理をやってみます。勝手に作った仕様は、 Excel:A1一行目～項目名 2行目からデータ pp:図やテキストボックスに名前を付け、その場所にセットするExcel1行目の項目名 PowerPoint同じ名前のオブジェクト にデータをセットしますそんなラフなイメージです。下記、いつもの あのあの そのその 解説とデバッグ動画です youtu.be https://youtu.be/-qPCSgPQuSw#ExcelVBA…

ExcelからPowerPointのテキストを取得したい 過去の記事:A列のデータをパワポへ ken3memo.hatenablog.com ＞これの逆(パワポのスライドタイトルをExcelへ)ってできますか？ とコメントが来たので、パワポのテキストを取得してみたいと思います下記、作成した解説動画です。ソースコードと合わせてみてください。 youtu.be https://youtu.be/FZovWjt0xtQ 目次 00:00 質問内容 00:20 実行結果を見せながら説…

↑あっ、間違えた、先端の方ですね・・・結合は図形を折れ線とか足した時だから、この先端の丸と join は関係ないな。はずかしいけど、残しておくか・・・ 似ている質問見つけました ぉぃぉぃ teratail.comMSのページ※勘違いの結合だけど docs.microsoft.comこれ、 msoLineJoinRound 1 丸められた結合を指定します。 って、どこでつかうの？ どのオブジェクトのプロパティだろう・・・？ メモをブログに残す。google:msoLineJoi…

結果を先に書くと、 Shape.TextFrame2.TextRange.Font.Fill.GradientStops.Item(1).Color で取得できました。 - : TextFrame2 : : TextFrame2/TextFrame2 : Module1.aaa - : TextRange : : TextRange2/TextRange2 : Module1.aaa - : Font : : Font2/Font2 : Module1.aaa - : Fil…

VBA PowerPoint イベント で検索すると、いろいろなページがヒットします。 今回は、下記公式の Application オブジェクトでイベントを使用する https://docs.microsoft.com/ja-jp/office/vba/powerpoint/how-to/use-events-with-the-application-object を見ながら、テストしていきます。下記、いつものテスト動画です www.youtube.com https://w…

…atail.com PowerPointで音声データを埋め込み、終わったら次のスライドへ移動させたい https://teratail.com/questions/tpr2jlldqc85js↓いつもの あのあの そのその 酔っ払い説明動画・・・ https://www.youtube.com/watch?v=6gt1n0HZ6bM00:00 やりたいこと 00:20 1.スライドの選択は ActivePresentation.Slides(n).Select 01:13 2…