三流君 ken3のmemo置き場

三流プログラマーのメモ書きです。主にVBAやWindowsの話題が多いです

挨拶・自己紹介:
失敗続きのAB型の変わり者 :三流プログラマー Ken3です
フリーのエンジニア・個人事業主です・・と書くと聞こえはイイが(それとなくカッコよく聞こえるが)、 現在は小さな案件の受注請負 と 短期派遣 で 日々つつましく?ほそぼそと暮らしてます。
Ken3三流君の連絡先:
[google formsで連絡する]
上記の問い合わせフォームに質問・感想など気軽に書き込んでください

よく検索されるキーワード: [質問回答XXXXさんへ] [CreateObject] [VBA] [JRA競馬オッズ]

PowerPoint, VBA の検索結果:

エクセルデータからパワポスライドを自動作成 テンプレート修正 差し込みテンプレートの修正手順を説明

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

パワポ マクロ JPG/PDF出力 Slide Export ファイル名 "pdf" エクセルからパワポのテンプレートへデータセット後 jpgやPDFを作成

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

A列の値が変わるまで(グループ単位で)PowerPointのテンプレにセットする 差し込み印刷もどき処 理

…ータを事前に用意した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プロパティを使ってみた

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

パワポ 書式をコピー後、別ページの同じ位置のシェイプに適応したい Shape PickUpメソッド Applyメソッド PowerPointVBA デバッグ

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

総合テスト パワポ 30枚の画像をランダム配置 フェードアウトの終了 アニメ動作付きオブジェクトの入れ替え 設定手順と動作チェック PowerPointVBA

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.や…

パワポ スライド内 画像表示位置を入れ替え 単純に.Left .Topで位置を入れ替えシャッフル

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

パワポ 選択されたオブジェクト・シェイプに名前を付ける PowerPointVBA Shape Name

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

パワポ アニメ フェードアウト 終了のアニメーションを連続セット TimeLineのMainSequenceと InteractiveSequences違いなどをデバッグ解説

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

パワポの複数スライドをExcelマクロを使用して1つにする ExcelのA列に入力したファイル名リストを使用してPowerPointのスライドを合体させる

…て、 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ページを新規プレゼンファイルにコピー…

パワポからパブリッシャーへ貼り付け VBAでPowerPointからCreateObject("Publisher.Application")

…け 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 マクロ拡張子のpptmをConvert2を使用して別拡張子ppsxスライドショーに変更して保存する

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

パワポに埋め込まれたOLE型のExcelシートを探る OLEFormatのProgIDやObjectを使用する

…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 リンク切れグラフの表示順をマクロSeries.PlotOrderで変更するテスト デバッグ

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

パワポ LinkFormat.SourceFullName リンクしたエクセルシートのシート名を変更 マクロで複数変更・更新したい PowerPoint VBA

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

パワーポイント マクロでスライド内の設置済み動画に対してループ再生するアニメーション設定 AnimationOrder=0で先頭ほか

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

PowerPoint VBA スライドの削除 Presentation Slides Delete と Excel to PowerPointの差し込み印刷もどき処理

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

パワポ ノートの英語を男声で読ませたい Gender=Maleを指定する Windows設定・音声認識から英語の声を追加する手順

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

パワポ ノートを流暢な英語発音で読み上げたい時 SAPI.spVoiceで言語指定をLanguage=409にセットしてUS英語にする

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

PowerPoint テキストや図形の位置LeftとTopをExcelシートへ シートの座標修正後に再度パワポに戻し位置を移動させる手順を解説

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

Hatenaから送られてきた ふりかえりメール を見て、自分成長してない退化(老化・老害化)・・と感じたり。

…ティブシート内の表を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…

XXXXXさんへ マクロでPowerPointのテキストを取得したい なら

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

XXXXXさんへ PowerPointのノート読み上げと同時に字幕っぽくテキスト文字を表示 自動ナレーションと字幕もどき

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

マクロ パワポ 複数のテキスト・図形にアニメを設定 直前の操作と同時 TimeLineにAddEffectでアニメを追加後 Effect.Timingを設定する

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

マクロ パワポのExcelリンクを現在の場所に更新したい Shape.LinkFormat.SourceFullNameを現在位置に更新する

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

Excelからテンプレ・ひな型のPowerPointを開き B列のデータセット後 A列の名前を付けて保存する そんなテスト

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

Excel表(セル範囲) を パワポの表TABLEへ転記する PowerPoint Table Row Column Cell VBA

… ------ → 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列 セット先…

PowerPointの表をExcelへ書き出すマクロ パワポの表・TABLEを取り込む PowerPoint Table Row Column Cell VBA

…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 表:TABLE 行:Row 列:Column セル:Cell を探る データ取得とセット

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

Excel A列~C列,D列~F列をPowerPointスライド2枚単位でデータを作成・流し込む 蛇足で三択クイズスライド

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

ランダムな占い

再生リスト:[占い 今日のラッキーカラー]をショート動画

Ken3 ホームページ 目次

分類:HPを大きく分けると4つの柱(分類)です。

  1. [VBA・マクロ プログラミング]の解説
    当店の人気はVBA系のCreateObject("XXXXXX.application")で他のアプリケーションを操作するサンプルが人気です
  2. [プログラマーの愚痴]では、あまり見せたくない三流プログラマーの内面かな。
    三流君を踏み台にする
  3. [古いクラシック ASP(Active Server Pages)]の解説。
  4. [元コンビニ店長時代の話]が弟に巻き込まれ、失敗した脱サラ、畑違い?の仕事で失敗。
主に上記4つの分類でHP作成やメルマガの発行を行ってます。
※更新頻度が落ちていて情報の鮮度が悪いです。



[連絡先はココのフォームから]←連絡先の入力フォームです、気軽に書いてください
本当に三流なんです(笑):たまにスゴイですねなんて言われることもありますが、
真実は→ [三流君の真実は...] ←を初めに見てくださるとわかると思います。
(からくりは、成功例↑しか載せてなくて ヒドイ失敗例はお蔵入り迷宮入りが多かったりします)