三流君 ken3のmemo置き場

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

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

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

VBA の検索結果:

Win10 共有フォルダでAccess DB運用 .laccdbで使用PCを特定してみた

… #ロックファイル #.laccdb #テスト #デバッグ Accessのロックファイルから攻めないで、 OSの共有ファイル使用者 や Excelの使用者から攻めるのも手かも google:WindowsServer 共有 Excel 使用者で検索するとhttps://it-study.info/sharefile-open/ や https://www.moug.net/tech/exvba/0060070.html が見つかります。こちら側から攻めるのがいいのかも・・・・

パワポ マクロでグラフのリンク更新 LinkFormat.SourceFullNameにFile名セット後LinkFormat.Update

…1 3.エクセル側にVBA マクロを記載する 15:08 Excel側マクロの説明 18:50 4.更新用 デイリーマクロ作成 20:54 日課の開始 22:25 マクロの説明 0.やりたいこと 知恵袋の質問に 毎日更新するブックでパワポのグラフを更新したい(リンク更新したい) とあったので、探ってみました。PowerPointでExcelから貼り付けたグラフを更新したい。 ただの更新なら、更新ボタンを押せばいいのですが、 book0907.xlsx から book0908.…

パワポでノートを読み上げるマクロボタンを設置する PowerPoint VBA SAPI.SpVoice Speak

…PowerPointVBA #マクロ #デバッグ #ノート読み上げ #SAPI.SpVoice #Speak下記、いつもの あのあの うるさく イライラさせる 解説動画です youtu.be https://youtu.be/mLUdzmReyCU 目次 00:00 0.あいさつ、やりたいこと 01:32 1.標準モジュールにコードを書く 01:50 2.挿入・動作でマクロ指定 03:03 3.動作したボタンのコピー確認 03:30 簡単なコード説明 と 気になった点 04:…

Excel VBA 折れ線グラフに直値の系列を追加 .NewSeriesで新系列追加

…on.Count Debug.Print ".Name=" & ActiveChart.SeriesCollection(n).Name Next End Sub 解決のヒントとなれば幸いです。 前回の動画: www.youtube.com Excel VBA グラフの範囲 値を直値にする セルの範囲を使わないで強引にマクロでセット https://www.youtube.com/watch?v=UTLJ59dz4IQ ↑この動画の元です。時間のある時にこちらも見てください。

Excel VBA グラフの範囲 値を直値にする セルの範囲を使わないで強引に配列に入れた値をセット

…てみた。#ExcelVBA #MSExcel #Chart #グラフ #マクロ #デバッグ #エクセル youtu.be https://youtu.be/UTLJ59dz4IQ 目次 00:00 0.やりたいこと 00:40 1.直接 値を文字列でセットする 02:37 2.As Variantの配列でセット 04:06 配列のサイズに注意 (0 To 2) As Variant 05:50 3.ひながたグラフの値を直接セット下記、テストで作成したソースコードです。アレンジ…

Access OLE型で登録された Wordアートの文字列を取り出し 文字を読み上げる

Access VBAでOLE型に登録されたWordアート内の文字列を読み上げる下記、いつもの解説動画です。 youtu.be https://youtu.be/0ZkhpOj-uDU 目次 00:00 0.あいさつ、テスト実行 03:45 1.単体 Access VBAで文字を読み上げる 04:59 2.単体 ワードアート内の文字列を取り出す 08:24 3.結合 AccessでOLE型 Wordアートを読み上げる#AccessVBA #OLE型 #WordVBA #読み上げ…

PowerPoint UserForm イメージオブジェクトを使い図形の連続セット スタンプ処理もどき

パワポでスタンプ処理 UserForm イメージオブジェクトを使い連続で図形をセットする。 そんな処理を試作 仕組みは単純で、UserFormのイメージコントロールを使い、 イメージが押された位置にスタンプ図形シェイプをセットしてみました知恵袋の質問 detail.chiebukuro.yahoo.co.jp にチャレンジしてみました。下記、いつもの あのあの イライラ 解説動画です。 youtu.be https://youtu.be/fKNl6FX-h0A 目次 00:0…

Excel複数画像ファイルリスト から パワポのスライドに図・画像を貼り付ける パワポ図を作成

…ださい。#ExcelVBA #PowerPointVBA #マクロ #画像ファイル #パワポ #貼り付け #デバッグ #Shapes #AddPictureコードをアレンジして使ってみてください。 ソースコード 'Excelの画像ファイルリストから、 'パワポのスライドを作成してみます。 Sub ExcelからPowerPointへ画像ファイルをセット20220823() Dim ppApp As Object 'PowerPoint.Application Set ppAp…

VBScriptに画像ファイルをドラッグAndドロップして パワポのスライドに図・画像を複数貼り付ける

…PowerPointVBA #パワポ #画像貼り付け #マクロ #デバッグ #Shapes #AddPicture下記、いつもの解説動画・・・あのあの イライラ動画ですがよろしく・・・ youtu.be https://youtu.be/jZV4o_Uz0oY 目次 00:00 挨拶、やりたいこと 00:48 いきなりテストしてみる 02:06 挿入 図 ファイル Shapes.AddPicture 02:33 VBSの処理説明 03:58 プロパティを修正後テスト 06:4…

パワポ マクロ 図形の配置 整列を探る PowerPoint VBA ShapeRangeに対してAlign Distribute メソッドを使用

…ったので、 パワポ VBA ユーザフォームで図形の配置 整列を探ってみました。知恵袋の質問 detail.chiebukuro.yahoo.co.jp ↑に回答してみました。下記、いつもの あのあの そのその イライラ解説動画・・・ youtu.be https://youtu.be/46MBczsYmww 目次 00:00 挨拶、処理内容 00:59 0.テスト実行 02:00 1.コードの説明 04:48 2.便利なユーザフォームのモードレス モード 07:32 3.簡単…

パワポ マクロで図形の動作設定 マウス通過動作をセットする PowerPoint VBA ActionSettings ppMouseOver

…PowerPointVBA #パワーポイント #マクロ #ActionSettings #MouseOver #リンク動作設定 #マウス通過1.手作業だと、設定がめんどくさい ※複数、図形、オブジェクトを選択して、 動作リンクをなぜか?設定不可? 複数まとめて同じ動作を設定したいだけなのに・・・2.↑なので、図形を複数選択後、マクロを起動すると、 選択図形の動作リンクで、スライドの最後に移動させる2.1 図形のマウス通過の設定は、 With ActiveWindow.Sele…

Outlook VBA 図を含んだ返信メール作成 .WordEditorで編集 .Paragraphs段落を使ってみた

…ようなoutlookvbaでメール返信をしたいのですが、埋め込み図形がそのまま反映してくれません。何か方法はありませんか? Dim objReItem As Outlook.MailItem Set objReItem = ActiveInspector.CurrentItem.ReplyAll objReItem.Recipients.ResolveAll objReItem.Display Set objReItem = Nothing に答えてみた。図を含んだ返信メール…

XXXXXさんへ Outlook VBA 送信時にフラグのセット について

…事 Outlook VBA でフラグを付ける処理 三流君VBA:Outlook VBAでフラグ作成 .FlagStatus .FlagRequest .FlagDueBy http://www.ken3.org/vba/backno/vba161.html に下記の質問をいただきました。 教えていただければと思います。 No161のフラッグ設定を既存のマクロに付け足そうとしています。(BCCで自分へのメールを付け足すマクロです) 下記がうまく働きません。 どうすればよいでしょ…

PowerPoint VBA ハイパーリンクを探る ExcelからパワポのHyperlinkを取得するマクロ

パワポのデバッグ・確認資料として、ハイパーリンクの一覧を作成したく、 ハイパーリンクのオブジェクトを探るが、 しっくりこなかったお話です。知恵袋の質問 detail.chiebukuro.yahoo.co.jp の回答用に作成する、他の回答者がシンプルなコードを先にUPしているのでそちらも参考にしてみてください。下記、いつもの あのあの そのその 解説動画です。参考程度に聞き流してください。 www.youtube.com https://www.youtube.com/wa…

Excel HTMLメール作成 GetInspector().WordEditorでWordオブジェクトを編集 デバッグ

…jp/office/vba/api/outlook.inspector.wordeditor ' .GetInspector().WordEditor とかで検索 Dim objDOC As Object Set objDOC = oItem.GetInspector().WordEditorで、 あとは、Wordの世界で、、※詳しい人に聞いてみてください・・・1.フォントサイズを変える Wordの世界なので、いろいろとやり方があると思いますが、 手前みその https://…

XXXXXさんへ スクレイピング関連の質問について 年金関連のqaページ

…これを達成することはvbaだけで可能でしょうかそれとも別のアプリケーション?やなにか別のプログラミング知識が必要でしょうか?②仮にKen3様が(その経験・知識をもってして)それを実行しようと思った場合、どの程度の時間を必要と考えますか? 年金関連のqaページ https://www.nenkin.go.jp/faq/n_net/toroku/moshikomi/20150519.html などから、 >最低限A列にQ(質問内容)、B列に(回答内容) だと思いますが、 これは、…

パワポ スライドショー 1ページ目に乱数セット 2ページ目で設定値を使いたい PowerPoint VBA OnSlideShowPageChange

…、 いつものように VBA PowerPoint イベント処理 スライド開始SlideShowBegin と スライド終了SlideShowEnd を例題に クラスモジュールのWithEventsを解説 https://www.youtube.com/watch?v=E837vhWZ09g みたいに、 WithEventsを使って、 Public WithEvents App As Application なんて、難しく、やろうと思っていたら、なんと、最近は、1.2 標準モジ…

Excel英単語から機械音声付きの縦スライドPowerPointを作る 自動転記マクロのテスト

…転記する#ExcelVBA #PowerPointVBA #自動転記 #英単語 #縦スライド #マクロ youtu.be https://youtu.be/pHpxR_IaJ3M 目次 00:00 0.実行結果 00:53 1.単体の部品説明 06:50 2.不具合0.実行結果 実行結果を先に見せる作成結果: #shorts 英単語をパワポの #縦スライド で作成 #PowerPointVBA #ExcelVBA https://youtube.com/shorts/NxVO…

パワポ 縦スライドにwavファイルを追加 PowerPoint2003で記録したマクロを修正してみた

…PowerPointVBA #マクロ記録 #縦スライド #wav #Presentations #PageSetup #Shapes #AddMediaObject #デバッグ作成したコード AddMediaObject2でハマった・・・ Option Explicit Sub TEST() Presentations.Add WithWindow:=msoTrue '新規作成 ActiveWindow.View.GotoSlide Index:=ActivePresenta…

Excel wav作成 機械音声変換 言語の指定を409英語にして音声ファイル.wavを作成してみた

…かった。#ExcelVBA #英単語 を #機械音声 で #wav 作成1.機械音声の言語を英語USにしてみた なので、言語を英語に指定して、本場っぽく読ませてみた。ぉぃぉぃ指定は簡単で、 google:SAPI.spVoice 言語 で検索すると、Language=409の指定で英語みたいです。 Dim US '言語の指定 2022/05/16 テストで英語USにしてみた。 Set US = oVoice.GetVoices("Language=409")(0) '409:…

Excel VBAで表示変更 10倍以下を赤 小数点を0.0でそろえる 例題:JRA 単勝オッズ取得

…om/watch?v=4IkuWVECTVo4. ExcelVBAで表示変更 10倍以下を赤 小数点を0.0でそろえる 例題:JRA 単勝オッズ取得 youtu.be https://youtu.be/rAi_uL41Bp05. Excel 読み上げ Range(範囲).Speak で簡単にできます Application.Speech.Speakもアリかな www.youtube.com https://www.youtube.com/watch?v=c4mH9szOo2w

XXXXXさんへ YouTubeのテキストエリアの書き出しの件 スクレイピング pythonで検索してみては? IE非推奨サイトが増えてきて寂しいなぁ

…昔のサンプルだと、 VBA IE操作 例題:指定したYouTube動画から はてなブログ の本文を作成する そんな転記プログラム 今は、動作しないコードですが、 https://ken3code.hatenablog.jp/entry/2018/07/01/223940 を見て、参考になれば・・・ タイトルサムネイルF12のDOMエクスプローラでIDやNameを探すのがポイントかなぁ youtu.be https://youtu.be/6yo4PJnzwk0?t=530 目次…

VBScript 定期実行 タスクスケジューラの設定テスト 終了設定でつまづく VBSを5分単位で実行させてみた

…分後、2回で止めたかったので。※通常は最終レース後の時刻かな4.OKを押して、タスクを登録します。 ※テスト開始時刻の設定をわかりやすい時間にしてね。5.しばらく、話術で場をつなぐ(テスト実行されるまで、何か話す・・・)6.テスト実行を確認失敗しました。有効期限内に終了しませんでした。 VBAから登録したり、スケジュールを削除する方法を来週までには探りたいなぁ・・と思いつつ、 もしかして、タスクスケジューラでやるよりも、Excel内でループで待った方がいのかなぁ・・・う~ん。

Excel VBA グラフ選択時のイベント処理を探る クラスモジュールにWithEvents As Chartを書きイベント取得

…い・・・#ExcelVBA #グラフイベント #WithEvents #Chart #クラスモジュール #デバッグ1.クラスモジュールで WithEvents myChartClass As Chart でグラフのイベントを取得します。 Option Explicit '埋め込みグラフでイベントを使用する ' https://msdn.microsoft.com/ja-jp/library/office/ff194070.aspx 'を参考にして、↓WithEventsでイベ…

VBSからPowerPoint を起動して スライドショーの実行 SlideShowSettings.Run 自動実行もどきを作成してみた

…して、実行してみますVBA(vbs)で パワーポイント スライドショー の 自動実行 に チャレンジ ken3memo.hatenablog.com の test.vbs をコピペして、コメントを追加 '20220508スライド再生テスト001.VBSに保存して、実行 Set oApp = CreateObject("PowerPoint.Application") oApp.Visible = True '可視にする oApp.Presentations.Open("d:\…

XXXXXさんへ ExcelからPowerPoint連続設定 自動画面切り替え 秒数の設定 を Excelから連続で行う VBA マクロ デバッグ

VBA

… 5 なとで設定可能VBA powerpoint 画面切り替え タイミング で検索すると、SlideShowTransition オブジェクト (PowerPoint) https://docs.microsoft.com/ja-jp/office/vba/api/powerpoint.slideshowtransition docs.microsoft.com が見つかり、そこから、 SlideShowTransition.AdvanceOnTime プロパティ (Powe…

PowerPoint 全てのスライドをjpg画像で出力 VBA マクロ .Exportで簡単にできました

…保存したいと思い、 VBAを探ってみたら、 .Export で 簡単に画像ファイルを作成できました。 youtu.be https://youtu.be/Gf1AGfSdN5c 目次 00:00 挨拶 やりたいこと 00:50 1.プレゼンファイル全体を.Exportで出力 02:33 2.指定スライドを.Exportで出力 04:11 3.名前を付けて、全スライドを出力してみた1.プレゼンファイル全体を.Exportで出力 出力場所の指定はできるが、ファイル名が気に入らなか…

Excel web パワークエリで取得かぁ 今度調べてみよう メモメモ JRA オッズ取得

…youtu.be (VBAなのでパワークエリとは違いますが、↑POSTパラメーターのイメージがつかめれば) <li><a href="#" onclick="return doAction('/JRADB/accessO.html', 'pw151ouS305202202040120220501Z/96');"><img src="/JRADB/img/race_number/race_num_1.png" alt="1レース"/></a></li> <li><a href=…

VBSで JRAオッズ自動取得Excelマクロ を10分間隔で タスクスケジューラ を使い起動したテスト

VBS

…レース別に複数蓄積する" WScript.Sleep 500 '1.4 ブックを閉じる oApp.ActiveWorkbook.Close 'ブックを閉じる '2 Excelを閉じる oApp.Quit WScript.Sleep 500 Set oApp = Nothing '---- ↑のVBSをタスクスケジューラ に登録して、 10分間隔で起動しました。#タスクスケジューラ #オッズ #競馬 #デバッグ #オッズ自動取得 #ExcelVBA #VBS #Excelマクロ

ExcelからPowerPointへ 項目名が同じ名前のオブジェクトにデータをセットする

…QuSw#ExcelVBA #PowerPointVBA #マクロ #自動転記 #デバッグExcelからパワポにデータをセットしてみました。 Excelのソース ※パワポを開いた状態でテストしてみてください Option Explicit Sub Excelから起動済みのパワポにデータセット20220425() '起動済みのパワポを捕まえる Dim ppApp As Object Set ppApp = Nothing On Error Resume Next 'エラーが発生…

Ken3 ホームページ 目次

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

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



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