三流君 ken3のmemo置き場

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

挨拶・自己紹介:
失敗続きのAB型の変わり者 :三流プログラマー Ken3です
フリーのエンジニア・個人事業主です・・と書くと聞こえはイイが(それとなくカッコよく聞こえるが)、 現在は小さな案件の受注請負 と 短期派遣 で 日々つつましく?ほそぼそと暮らしてます。

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

Word, VBA の検索結果:

Excel VBA ListViewの設置方法 使用例:Drag And Dropでファイル名を受け取り サンプルコード

ExcelのUserFormとSheetに ListViewを設置して、 Drag And Drop でファイル名を受け取ってみた。 OLEDragDropを使ってみた ListView1.OLEDropMode = ccOLEDropManual www.youtube.com https://www.youtube.com/watch?v=Z9b5dXKVKzE 目次 00:00 0.やりたいこと 00:35 2.UserFormで使ってみる 02:57 2.2 OLED…

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

…rPoint から Word に Shapeをコピーしてみた 06:14 2.1 手作業 PowerPoint から Word 経由でPublisher0.やりたいこと。 パワポからパブリッシャーへ貼り付け知恵袋の質問で、 detail.chiebukuro.yahoo.co.jp >パワーポイントで作成したデータをパブリッシャーへ貼り付ける方法があれば教えて欲しいです。 >パワーポイントで作成されたチラシのデータがあるのですが、 >そのスライドをCtrl+Aで全体をコピーし…

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を使用する

…rmat、 Password、 WriteResPassword、 ReadOnlyRecommended、 CreateBackup、 AccessMode、 ConflictResolution、 AddToMru、 TextCodepage、 TextVisualLayout、 Local) 上記メソッドが、あって、 ファイル名は適当で"D:\2023\test.xls" とFileFormat 旧のxlsでテストしてみます(※埋め込み形式に、97-2003形式 があっ…

PowerPoint リンク切れグラフの表示順をマクロSeries.PlotOrderで変更するテスト デバッグ

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

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

Excelのシートをリンクして作成しているプレゼンがあります そのExcelシートのリンク情報・リンク先を VBAマクロで更新する。 youtu.be https://youtu.be/wnhVcYHxXXQ 目次 00:00 0.やりたいこと Excelリンク貼り付けのシートを更新したい 02:25 1.まずは、リンク情報の確認 LinkFormat.SourceFullName 05:42 2.リンク情報 LinkFormat.SourceFullName を書き換える …

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

パワーポイント マクロで動画の自動再生+ループ再生を設定する 貼り付け済みの動画アイテム ppMediaTypeMovie に対して、 マクロで自動再生+ループ再生のアニメ設定 AnimationSettings を行う。0.やりたいこと テスト知恵袋の質問をデバッグ、テストしてみます。 detail.chiebukuro.yahoo.co.jp をテストしてみた。 >powerpointに貼った動画をすべて自動再生+ループ再生の設定にしようと >VBAをchatGPTにお願…

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

ActivePresentation.Slides(p).Delete でpページ目のスライドを削除することができます。 昨年作成した Excel to PowerPointの差し込み印刷もどき処理 ken3memo.hatenablog.com ↑で、 不具合・バグが発生していたので、その対策も兼ねて、 パワーポイントのスライドを削除してみました。処理の参考となれば幸いです。youtu.be https://youtu.be/OJLUpVB6cUA 目次 00:00 あいさ…

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

GetVoices("Gender=Male;Language=409")(0)と Gender=Maleで男性声 Language=409で英語US を指定しただけのコードなんですが、、、 環境によっては男性声の追加が必要です。 そんなお話です。youtu.be https://youtu.be/3E1H-c46DZA 目次 00:00 1.やりたいこと 00:20 現在使用可能な声の名称を取得 02:21 Windows設定 音声認識から言語の追加をやってみる 05:06…

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

パワーポイントのVBAで音声読み上げを英語で行うには? 流暢な英語発音で読み上げたい時 など、テストしてみました。下記のメッセージをいただく。 >パワポVBAで音声読み上げ&字幕を使用させて頂いています。 >大変活躍しており、感謝申し上げます。 >本題ですが、これは他言語(例:英語)で読み上げる事は可能でしょうか? >Microsoft Ziraに読ませようとしましたが上手く行きません。。。 と 質問をいただきました。 youtu.be https://youtu.be/oO…

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

単純にシェイプの Shape.Leftと.Topを取得してシートに書き出す。 次に、逆のシートの値をパワポのShape.Leftと.Topにセットして、 移動っぽく処理しただけです。 大量テキストや図形の移動処理のヒントとなれば幸いです。 youtu.be https://youtu.be/zYczLG7wF9E 目次 00:00 やりたいこと 01:25 1.テキストや図形の位置LeftとTopを取得 04:01 2.シートの値をShape.Leftと.Topにセット 09…

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

…更新 ExcelからWord #データ差し込み 処理を #デバッグ してみた Excel VBA IsDate("1200-10") が True になるので小細工してみた・・・ https://ken3memo.hatenablog.com/entry/2022/02/20/114054 IsDateで日付かチェック可能なのですが、 1200-12 みたいなYYYY-MMと取れる文字列を真 Trueと判断する まぁ、当たり前のお話なのかなぁ・・・なので… 02/20 11:…

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

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

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

>パワーポイントノートに記入した内容をナレーションと字幕にしたい と要望をいただいたので、 マクロで作成・チャレンジしてみました。 やりたいこと イメージ図と言っても、前回作成( 2022/09/07 )のマクロ マクロ パワーポイントでノートを読み上げ PowerPoint VBA SAPI.SpVoice Speak デバッグ マクロ作り方・使い方 https://www.youtube.com/watch?v=mLUdzmReyCU に (↑音読処理 CreateObj…

実行時エラー2046 が 発生する件をテスト Access VBA DoCmd.RunCommand acCmdWindowHide

DoCmd.RunCommand acCmdWindowHide で 実行時エラー '2046': 実行時エラー '2046': コマンドまたはアクション'ウインドウを表示しない'は無効です。 が発生した件をテストしてみた。キッカケは下記の質問です detail.chiebukuro.yahoo.co.jp回答・テスト結果:思い込みが激しい失敗テストだけど、、、 youtu.be https://youtu.be/qhWSQBRZXTUたぶん、 ナビゲーションウインドなどを消…

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

パワポのアニメ設定を追加するには、 Dim objTimeLine As PowerPoint.TimeLine 'タイムラインって日本語だと?何だろう? Set objTimeLine = objSLD.TimeLine 'スライドの下にタイムラインがあります '↑このタイムラインにアニメ効果を追加していくイメージです Dim objEffect As PowerPoint.Effect '効果 Set objShape = ActiveWindow.Selection.S…

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

マクロ・VBAでリンク情報 Shape.LinkFormat.SourceFullName を現在位置に更新する パワポのExcelリンクを現在の場所に自動更新したい ペアで同じ位置にコピペしたのにリンク先がコピー前の位置なので自動変更したい リンク貼り付けされたパスマクロ パワポのExcelリンクを現在の場所に更新したい ペアで同じ位置にコピペしたのにリンク先がコピー前の位置なので自動変更したい - YouTube https://youtu.be/OBDI3ZnKZoE …

XXXXXさんへ JRA レース番号 URLの探り方 CNAME=の法則がわからなくてスミマセン

こんにちは。下記質問メッセージに回答します。 今年に入ってからJRAの画面がVBAで取れなくなりました。 ・ ・ 出馬表、オッズ、レース結果、馬情報を取得するVBAを作成し予想していました。が今できません。 ・ ・ 教えて欲しいのは strURL strPARA strHTMLの文字列切り出し検索方法です。 ソースは a href="/JRADB/accessS.html?CNAME=pw01sde1006202301061120230115/48"です レース番号の判定方法…

Outlook VBA マクロで分類 Categoriesの登録 蛇足でExcelから複数分類のセット

detail.chiebukuro.yahoo.co.jp >メールを色分けして分類するために、既存の色分類項目ではなく、 >新規作成で名前と色を設定したいと考えています。 >おそらく、Categories.Addメソッドを使用するとは思うのですが苦戦しております。 > >Categories オブジェクト (Outlook) >https://learn.microsoft.com/ja-jp/office/vba/api/outlook.categories > >Cat…

VBA Excelから起動したAccess.Applicationを残したい .UserControl = Trueを実験してみた

accApp.UserControl = True を入れてテストしてみました。 ※よし実験終了、QAサイトの回答に得意気に書こうとしたら、 質問が解決済みになっていたのは内緒です。youtu.be https://youtu.be/qyL7ozYEds0 目次 00:00 やりたいこと 00:30 1.不具合の再現 01:28 解決策 2.UserControl = True QAサイト teratail.com に下記の質問があったので、実験してみました エクセルVBAで…

Outlook VBA 連絡先グループをメールのCC宛先にセットしたい Recipientを使用

図1:CCにグループ化した宛先をセットメールの宛先にグループ化された宛先を使用したかったので、 Dim oRecipient As Recipient Set oRecipient = objMAIL.Recipients.Add("宛先のグループ名") を使用したデバッグ・テストです。後半の自分語りで恥をかく・・・温かく視聴してください。youtu.be https://youtu.be/lv_u8xcA0eY 目次 00:00 0.やりたいこと 00:50 結果を先に 1…

OutlookVBA メールの分類をマクロでセット MailItemの.Categoriesにセットする

図:メールの分類メールの分類は、 .Categories = "分類の文字列" に文字列で設定すると可能 分類項目 赤 など、セットすると可能みたいです。#OutlookVBA #アウトルック #デバッグ #マクロ #MailItem #Categories #ShowCategoriesDialogいつもの動画解説とソースコードを見て、アレンジしてみてください。 youtu.be https://youtu.be/R2nt09w4KyI 目次 00:00 やりたいこと 01…

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

B2のパワポファイル、フルパスを開き、B3で指定したスライドページの B4名前のテキストボックスにB10列~データセット後、A10列の名前で上書き保存する 図1.シートイメージまぁ、↑シートイメージを見た方が早いですね。テスト動画 youtu.be https://youtu.be/mof40MhZrYw 目次 00:00 やりたいこと 01:30 2.テンプレを変更して テスト実演 03:19 2.3 マクロを実行する 04:51 2.4 余談 図形のテキストにもセットでき…

WordVBA マクロ 表の行挿入と日時セットをデバッグ 表 Table 行 Row セル Cell

Word表を操作するマクロでRows.Addで行挿入後、 案1 Row.Cells(1) で 1列目だけ使用する 案2 固定のCell(2,1)にセット をテストしてみました。#MSWord #マクロ #WordVBA #デバッグキッカケは知恵袋の質問 detail.chiebukuro.yahoo.co.jp をデバッグしてみました。youtu.be https://youtu.be/Ywfr8Y-ctgQ 目次 00:00 やりたいこと 00:47 現状確認 01:18 …

VBA Wordマクロ 文字単位で処理 Word.Document.Characters 例題:丸数字の振り直し

…レンジしてみました Word.Document.Charactersマクロのデバッグ Word文章で.Characters.Countを使うと文字数がわかるので あとは、ループでCharacters(n)で一文字取り出し、処理を行ってみました。 For n = 1 To oDOC.Characters.Count strCHAR = oDOC.Characters(n) 'n文字目を取得 .Item(n)どちらでも好きな方で Debug.Print n & "文字目:" & …

Word VBA Find.Executeで検索実行 Range.HighlightColorIndexで色の変更 マクロ記録コードの修正

Wordのマクロ記録で検索条件と色変更を作り実行するが、反応しないそんな質問があったので、 おじさんが手作業で Find.Execute を足してデバッグしてみたら・・・ そんなお話です・・・って、どんな話だよ・・・ #WordVBA #マクロ記録 #デバッグ #Selection #Find #Execute #Range #HighlightColorIndex #マイクロソフトワード #マクロ #Debug #検索実行 #選択範囲 #フォント色変更知恵袋の下記質問に答え…

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

0.やりたいこと Excelシート+セル範囲のテキストデータ を パワポのPage指定した表TABLEへ転記する。 ※データを流し込む、差し込む、イメージですyoutu.be https://youtu.be/x68nZfCgFGc 目次 00:00 0.やりたいこと 00:58 1.シートのセル範囲をパワポの指定Pageの表へ転記する 04:18 1.1 簡単なコード説明 10:22 行と列のループを説明 13:18 1.2 表のサイズが合っていないときのエラーを説明 17…

Office365 Word ファイルメニューの「最近使ったファイル」を残さないようにする

…hoo.co.jp Word2019で、ファイルメニューの「最近使ったファイル」を残さないようにするにはどうしたらいいでしょうか? 上記の質問、少し前に派遣先で同じことしたので、答えてみた。MicroSoft Office365 の Wordですが、 下記のオプションで できました※添付画像参照。 オプション設定手順1.オプションの詳細設定 2.設定項目多いので、スクロールさせて 表示を探します3.文章の数を0にします4.忘れないでOKを押すと、 答えやすい質問を見つけたので…

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

0.やりたいこと パワーポイントの指定した表(TABLE) を エクセルの指定したシート・位置に書き出したいExcelのマクロを使用してパワポの表を取り込む そんな処理にチャレンジしてみます。youtu.be https://youtu.be/wjxG6L4il3w 目次 00:00 0.やりたいこと 00:29 1.アクティブなPowerPoint表の一覧を取得 11:25 2.アクティブなPowerPoint表を一括でExcelのシートへ 16:00 行と列のループでデー…

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…

Ken3 ホームページ 目次

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

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



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