三流君 ken3のmemo置き場

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

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

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

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")

…けで、 動画作成中にVBAで作らなくて良いことに気が付き・・・ また、動画録画用のPCと作成用のPCが違ったため、 マクロのセキュリティ警告が出て、動画作成を失敗したり・・一行で書くと、 実験を失敗した動画です。 失敗動画が1つでも、少しでも解決のヒントとなれば幸いです。 youtu.be https://youtu.be/CyBPqVaktGQ 目次 00:00 0.やりたいこと。パワポからパブリッシャーへ貼り付け 00:55 1.PowerPoint から Publish…

PowerPoint マクロ拡張子のpptmをConvert2を使用して別拡張子ppsxスライドショーに変更して保存する

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

…全て抽出できるようなvbaコードが作成可能であればそちらも教えていただきたいです。 1.挿入 から オブジェクトを埋め込む挿入 オブジェクト を選択すると ※なんか、小さなアイコンだったけど どのオブジェクトを選ぶのか?と出てくるので、 Excel 関係を選んでテストしてみます。2.パワポのスライドの下 シェイプのOLE埋め込みを探ってみるFor Each objShape In objSlide.Shapes 'スライド内のシェイプ達を一つ一つあさる で、スライド内のシェイ…

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

…すんだ? Next End If Next MsgBox "終了" End Sub せっかく、ブログを覗きに来ていただいたのに、 時間を無駄にさせてしまったかなぁ・・・と思いつつ。 (※動画の後半、連続実行で、なぜか?エラーになってしまったし、 やはり元データ無しだと、無理だった・・期待を持たせてできなかったパターンが怖いのですが、 空気を読まないで)解決の糸口となれば幸いです。#PowerPointVBA #マクロ #パワーポイント #MS365 #グラフ #系列表示順変更

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

…ク情報・リンク先を VBAマクロで更新する。 youtu.be https://youtu.be/wnhVcYHxXXQ 目次 00:00 0.やりたいこと Excelリンク貼り付けのシートを更新したい 02:25 1.まずは、リンク情報の確認 LinkFormat.SourceFullName 05:42 2.リンク情報 LinkFormat.SourceFullName を書き換える 08:52 3.存在しないシート名を設定したら・・・ 13:00 4.おわりの挨拶 当て…

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

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

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

…PowerPointVBA #パワーポイント #マクロ #デバッグ #データ差し込み #差し込み印刷 #スライド削除0.あいさつ・キッカケ 先頭、1ページ目だけ残し、 2ページ ~ 最終ページまでを削除する。※苦肉の策?で、1ページ目をひな型 扱いにして、 ExcelからPowerPointのスライドを複数作成する。チョット、まとまっていませんが、 テスト動画作りをスタートする。1.ExcelからPowerPointに差し込み印刷っぽくデータをセットするマクロ 昨年、 Exc…

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

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

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

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

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

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

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

…へ Q. IE操作 Vbaとvbsの違いについて #IE操作 #VBA #VBS #業務改善 を邪魔する #老害 ぉぃぉぃ https://ken3memo.hatenablog.com/entry/2022/02/05/013653 下記の質問 Q. をいただく Vbaを、勉強中初心者なのですが、この度質問させて頂きたいことがあり、自身では調べきれずメッセー ジさせていただきまし… 02/05 01:36に更新 Access 最適化すると削除されたオートナンバー型のフィール…

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

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

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

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

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

…の判断用 DoCmd.RunCommand acCmdWindowHide 'メニューバーを消す 'その他、いろいろ設定? On Error GoTo 0 'すぐに戻そうぜ※意外と忘れがちなので、Resume Nextとセットで使う とか、エラー無視で動くなら・・・解決のヒントとなれば幸いです。#MSAccess #実行時エラー #RunCommand #acCmdWindowHide #テスト #VBA #エラー2046 #コマンドまたはアクション #ウインドウを表示しない

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

…PowerPointVBA #マクロ #アニメーション #直前の操作と同時 #設定 #TimeLine #Sequence #Effect #Timing #Trigger 0.やりたいこと パワポで複数のシェイプを選択後、 アニメにする、効果を追加する 直前の動作と同時にして、同じグループ、表示タイミングにしたい。キッカケは知恵袋の質問 detail.chiebukuro.yahoo.co.jp パワーポイントの動作をVBAで再現したいと考えています 2つのアニメーションを…

マクロ パワポの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"です レース番号の判定方法です。 と質問をいただきました。レース結果 https:…

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

…jp/office/vba/api/outlook.categories > >Categories.Add メソッド (Outlook) >https://learn.microsoft.com/ja-jp/office/vba/api/outlook.categories.add 上記質問に反応してみた・・・ ここまで、調べているなら、もう既に解決済みかなぁ、、、と思いつつ、OutlookVBA マクロで分類 Categoriesの登録にチャレンジ 蛇足でExcelから複…

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

…てみました エクセルVBAでアクセスを開を、プロシージャが終了しても そのまま開いておきたいのですが、下記ののコードだと閉じてしまいます。 変数の中身がなくなるので閉じてしまうと思うのですが、 プロシージャが終了しても、そのまま開いておく方法はありますでしょうか。 Dim accApp As Access.Application Set accApp = New Access.Application accApp.OpenCurrentDatabase ActiveWorkb…

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

… 'Outlook VBA メールの宛先がグループの時 受信者Recipientで解決Resolveする?単に名前解決? Sub test_20230115() Dim objMAIL As Outlook.MailItem Set objMAIL = CreateItem(olMailItem) objMAIL.Display objMAIL.Subject = "テスト " & Now() objMAIL.To = "a@a ; b@b" 'イメージは宛先・送信者なんだけ…

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

…す。#OutlookVBA #アウトルック #デバッグ #マクロ #MailItem #Categories #ShowCategoriesDialogいつもの動画解説とソースコードを見て、アレンジしてみてください。 youtu.be https://youtu.be/R2nt09w4KyI 目次 00:00 やりたいこと 01:00 1.現物確認 ShowCategoriesDialog 02:05 2.Categoriesにセットしてみる 03:23 3.蛇足1.複数時ど…

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

…#マクロ #WordVBA #デバッグキッカケは知恵袋の質問 detail.chiebukuro.yahoo.co.jp をデバッグしてみました。youtu.be https://youtu.be/Ywfr8Y-ctgQ 目次 00:00 やりたいこと 00:47 現状確認 01:18 案1 Row.Cells(1) で 1列目だけ使用する 03:29 案2 固定のCell(2,1)にセット表2行目挿入後に日時・時刻をセットする1.現在のコードを走らせる ループで回しているの…

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

…ト 21:53 再度VBAコードの説明を行う#WordVBA #マクロ #デバッグ #Document #Characters #Asc関数 #Chr関数問題点・不具合1.20を超えた丸数字2.ワードの機能で丸数字を段落で使用、混ざったとき 18:00 不具合のテスト >(①②③・・・は行頭にあるとは限らないので、 >ワード本来の機能(段落?)では難しいかなと考えています。) マクロのループでワード本来の機能(段落?) が、私の作成した単純ループでは取得できなかったので 文章…

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

…よ・・・ #WordVBA #マクロ記録 #デバッグ #Selection #Find #Execute #Range #HighlightColorIndex #マイクロソフトワード #マクロ #Debug #検索実行 #選択範囲 #フォント色変更知恵袋の下記質問に答えてみた detail.chiebukuro.yahoo.co.jp >word文書内の上付き文字に、緑マーカーを引くマクロを組みたいです。 >マクロの自動記録機能を使って、word文書内のすべての上付き文字に…

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 ファイルメニューの「最近使ったファイル」を残さないようにする

…設定 2.設定項目多いので、スクロールさせて 表示を探します3.文章の数を0にします4.忘れないでOKを押すと、 答えやすい質問を見つけたので、回答してみた。未回答のVBA難問をサクっと答えないとなぁ・・・と思いつつ、 せっかく画像を作って回答したので、ブログにも載せてみた。 ※その少しでもアクセス数がほしい、 スケベ心が、サイト・ブログの評価を落としていたりして・・・Google検索で来た人の参考となれば幸いです (※数少ないVBA読者のジャマになるブログ記事でした・・・)

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 を探る データ取得とセット

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

Ken3 ホームページ 目次

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

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



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