…jSlide As PowerPoint.Slide 'スライド Set objSlide = ActivePresentation.Slides(nPAGE) '↑現在のページを変数に '選択されたシェイプをまず変数に保存する※あとで入れ替えるので Dim 交換元Shape As PowerPoint.Shape 'シェイプ Set 交換元Shape = ActiveWindow.Selection.ShapeRange(1) 'タイトルを細工したい※複製作成後、テキストボ…

ExcelからPowerPointのテンプレートへデータセットするサンプル処理をデバッグしてみます。 #ExcelVBA #PowerPointVBA #テンプレート #自動セット #マクロデバッグ動画です www.youtube.com https://www.youtube.com/watch?v=mp2Mh_69fhQ前回までの再生リスト↓↓ https://www.youtube.com/watch?v=mjnqMrxk0qM&list=PL8vZhsyiiFhtDY…

… 3.ExcelからPowerPointテンプレにデータを流し込む 11:12 3.2 A列の値が変化するまで、データをセットする 11:59 3.3 グループが変わった時の処理 13:22 3.4 明細にExcelデータをセットする 16:17 3.5 改ページのチェック 21:09 3.6 後始末 21:35 再度ポイントを解説1.仕様の説明仕様 A列の値、日付をグループ化のキーにして、 事前に用意されたパワーポイントのテンプレートに値をセットする グループは５行がMAX…

…NR5YrdtDQ#PowerPointVBA #Shape #GroupItem #グループ化 #デバッグ 1.まずは、.Type タイプで判断グループの頭、グループ化したシェイプか？ .Type で判断できます。If ppShp.Type = msoGroup Then 'グループ化の判断 みたいな感じで、 .Typeの値がmsoGroupかで判断可能です。2.グループ内のシェイプにたどり着く方法なんて、いってるけど、シンブルで .GroupItems に まとまっていま…

…が消えてしまう。 #PowerPointVBA #TextBox #Replace #デバッグ www.youtube.com https://www.youtube.com/watch?v=VR1V18qbZn8 目次 00:00 1.不具合の再現 TextFrame.TextRange.Text再代入をチェックする 01:55 実行結果を見せて、不具合の説明 03:28 2.TextRange.Replace メソッドがあるので、これを使うテスト 06:44 3.Repl…

…ドを1ページ作成するPowerPointにTextBoxを追加するのは簡単で、 Set ppShape = ppSlide.Shapes.AddTextbox(1, 500, 200, 400, 50) ↑、みたいな感じで、 Shapes.AddTextbox(方向, Left:左上, Top:上位置, Width:幅, Height:高さ) で簡単に追加できました。youtu.be https://youtu.be/Vt2p1WSEFFo 目次 00:00 あいさつ、昔どこ…

…寧に説明してみる #PowerPointVBA #テンプレート #自動作成 キーワード: パワポ,マクロ,エクセル,スライド,自動作成,テンプレート,修正,コードタイトル案: パワポマクロでエクセルデータからスライドを自動作成！テンプレート修正方法も解説 エクセルデータからパワポスライドを自動作成する方法とテンプレート修正のコツ パワポマクロでエクセルデータからスライドを自動作成する裏技！テンプレート修正方法も紹介 www.youtube.com https://www.yo…

…をコードで示す。 #PowerPointVBA #PDF出力 #自動作成 #JPG出力 キーワード: エクセル,パワポ,自動作成,出力,jpg,pdf,修正情報YouTubeのタイトル案を3つ: エクセルからパワポに自動変換！スライドをjpgやpdfで保存する方法 視聴者の質問に答えます！エクセルデータからパワポスライドを作って画像やPDFに出力するコード エクセルとパワポの連携術！スライドの自動作成と出力 www.youtube.com https://www.youtub…

…ータを事前に用意したPowerPointひな型テンプレートにセットする。 ↑あっ、勝手に最大5件にして、あとでトラブル発生パターンを作る気満々で・・・ youtu.be https://youtu.be/tprejIA-Q-M 目次とソースコード 00:00 やりたいこと 1.要求仕様:下記の質問をいただく 00:54 2.仕様をまとめる:入力と出力を考える 02:23 3.テンプレートファイルを作成する 03:13 4.1 1日単位で1スライドを作成 10:02 4.2 明…

PowerPoint VBA で 箇条書きを設定したかったので、探ってみました。 ParagraphFormat.Bullet プロパティを探ってみてください。 タイトルyoutu.be https://youtu.be/iLzfaqJvCmY 目次 00:00 実行結果 00:51 0.段落オブジェクトの下 Bulletで箇条書きの設定ができそうです。 01:20 1.選択されたテキストを箇条書きにしてみた 04:49 2.Character = &H2022 を Ascに…

…ファイルで再テスト#PowerPointVBA #コピペ #デバッグShape.PickUp メソッド (PowerPoint) https://learn.microsoft.com/ja-jp/office/vba/api/powerpoint.shape.pickup 図形の書式をコピーします。 コピーした書式を別の図形に適用するには、 Apply メソッドを使用します。Shape.Apply メソッド (PowerPoint) https://learn.micros…

PowerPointのVBA マクロを使用して、 30枚の画像をランダムに入れ替え配置を行ってから、 スライドショーを実行。 単体で確認したマクロコードを組合わせて総合・結合テストを行いました。www.youtube.com https://www.youtube.com/watch?v=GXY_4b0YMtU&list=PL8vZhsyiiFhuBuPzw4CrOi0ysNAyCK8VH&index=1&pp=gAQBiAQB 目次 00:00 実行結果 01:53 1.や…

…jSlide As PowerPoint.Slide 'スライド Set objSlide = ActivePresentation.Slides(nPAGE) '↑現在のページを変数に Dim objShape As PowerPoint.Shape 'シェイプ '100件分保存する、ReDim を使ってよ・・・ Dim shpNAME(100) As String '名前、※同じ名前だと、マズイな・・・ Dim shpX(100) As Double '左上x座標 Dim…

PowerPoint Shape.Name を使用して名前を付ける。 Shape.ID をプラス、連番をShape.Nameにセットしたり。 同じ名前が許される不思議？？？事前準備として、 パワーポイントで設置したオブジェクトに対して、 名前を付ける、名前を付け直す。 そんな処理をマクロで行ってみます。上司・先輩から スライド内の画像をシャッフルするマクロを作るので、 オブジェクト・画像に固有の名前を付けといて？ と言われました。指示内容: スライド内の画像の名前を マクロ・…

…了・フェードで消す#PowerPointVBA #アニメーション #出して消す #直前の動作と同時 #順番 #モザイク youtu.be https://youtu.be/9PNq6QRLtZ0 目次 00:00 やりたいこと、実行結果を見せます 00:43 TimeLineのMainSequenceとInteractiveSequences違い 04:25 マクロでエフェクト効果のフェードを追加 06:00 フェードをイン(開始)、アウト(終了)を切り替えたいので Effe…

…て、 A列に入力したPowerPointファイルを開き、一つにまとめてみました。 実験動画です。コードをアレンジして使ってみてください。 #PowerPointVBA #ExcelVBA youtu.be https://youtu.be/7Uw9u3CbmHY 目次 00:00 0.やりたいこと 00:28 1.簡単な仕様を考えてみます。 01:42 2.単体テスト まずは、A1のファイルを開いてみます 04:36 3.複数スライド1,2ページを新規プレゼンファイルにコピー…

…け 00:55 1.PowerPoint から Publisher に Shapeをコピーしてみた 02:38 1.1 確認 失敗を確認する 03:55 2.PowerPoint から Word に Shapeをコピーしてみた 06:14 2.1 手作業 PowerPoint から Word 経由でPublisher0.やりたいこと。 パワポからパブリッシャーへ貼り付け知恵袋の質問で、 detail.chiebukuro.yahoo.co.jp ＞パワーポイントで作成したデー…

PowerPoint VBA マクロを使用して .Saveでファイルを上書き保存後、 .Convert2で別拡張子で保存 (マクロの.pptmをスライドショー.ppsxへ) .Presentations.Openで開き直し .Closeで別拡張子Convertしたファイルを閉じる そんな処理の流れです。 #PowerPointVBA #MS365 #デバッグ youtu.be https://youtu.be/sE0UswvpEIE 目次 00:00 0.やりたいこと 1.実…

…jSlide As PowerPoint.Slide 'スライド Set objSlide = ActivePresentation.Slides(nPAGE) '↑現在のページを変数に Dim objShape As PowerPoint.Shape 'シェイプ 'テストで選択ページの.Shapesを探る Debug.Print "Id", "Name" For Each objShape In objSlide.Shapes 'スライド内のシェイプ達を一つ一つあさる De…

PowerPointのスライドにExcelから貼り付けたグラフ ※リンク切れでデータが編集できない> の表示順を変えたくて、 マクロで Series.PlotOrder = 1を使用したテスト動画 youtu.be https://youtu.be/aSQeb7JyBs4 です。 ※リンク切れグラフの処理で参考となれば幸いです。キッカケは、調べ物のついでに、寄り道。 下記、知恵袋の質問 detail.chiebukuro.yahoo.co.jp ＞パワーポイントの積み上げ横棒…

…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) '←このシェイプを↓アニメ効…