三流君 ken3のmemo置き場

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

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

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

Word, VBA の検索結果:

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

Excelに入力された英単語から機械音声を作成し、 PowerPointの縦スライドに転記する#ExcelVBA #PowerPointVBA #自動転記 #英単語 #縦スライド #マクロ youtu.be https://youtu.be/pHpxR_IaJ3M 目次 00:00 0.実行結果 00:53 1.単体の部品説明 06:50 2.不具合0.実行結果 実行結果を先に見せる作成結果: #shorts 英単語をパワポの #縦スライド で作成 #PowerPointVB…

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

2003でマクロ記録したコードを使い、 新規プレゼンを縦スライドにして、 テスト用の音声wavファイル D:\2022\TEST.wav を挿入してみます。 youtu.be https://youtu.be/6KOtib8Isfg#PowerPointVBA #マクロ記録 #縦スライド #wav #Presentations #PageSetup #Shapes #AddMediaObject #デバッグ作成したコード AddMediaObject2でハマった・・・ Opt…

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

youtu.be https://youtu.be/OEQRDtOinmw 目次 00:00 0.恥ずかしいお話・・・ 02:55 1.機械音声の言語を英語USにしてみた 05:00 2.組み込み結果0.恥ずかしいお話・・・ 音声ファイルの作成で、英単語を読ませたら、そのまま日本語読みしていた・・・ apple banana orange pineapple から、音声を作成したら・・・ 恥ずかしいお話、指摘されるまで、日本語カタカナ読みに気が付かなかった。#ExcelVBA…

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

タイトルサムネイル1.小数点をそろえる、オッズ10倍以下を赤にする 見た目を少し、修正してみます。 時間稼ぎの見た目修正よりも、異常なオッズや勝ち馬を探すロジックを組み込めよ・・・ なんて、声が聞こえてきますが。。。下記、いつもの あのあの 解説動画です・・・ youtu.be https://youtu.be/rAi_uL41Bp02.いつものマクロ記録で作成 ぉぃぉぃ コードをマクロ記録から探ってみます '小数点を00.0にする Range("E4").Select Se…

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

…セットする 'keywords 区分のセット Debug.Print Debug.Print objIE.document.getElementsByName("keywords")(0).OuterHTML strWORK = objIE.document.getElementsByName("keywords")(0).OuterHTML n = InStr(strWORK, "content=") strWORK = Mid(strWORK, n, 9999) strW…

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

テスト:5分単位でVBSの実行を繰り返すように設定 開始と繰り返しの設定はうまくいきました。 終了時刻を設定して、止まる予定が、、、設定でつまづく。 失敗しました。有効期限内に終了しませんでした。 テストしないとなぁ。何か別な方法で行くか、迷うところ。youtu.be https://youtu.be/4IkuWVECTVo 目次 00:00 1.タスクスケジューラを起動する 00:25 2.タスクを追加する 00:34 3.設定 00:41 3.1 操作を設定する 01:1…

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

タイトルサムネイルWithEvents myChartClass As Chartを使い、グラフのイベントをクラスモジュールで処理する グラフ選択で軸の値を表示、ダブルクリックで修正、そんな処理を作成しました。 グラフの軸の値は、 With myChartClass.Axes(xlValue) Debug.Print "最小値.MinimumScale:" & .MinimumScale Debug.Print "最大値.MaximumScale:" & .MaximumSc…

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

タイトルサムネイル単純に SlideShowSettings.Run して、n秒間待っただけでした・・・ VBSでスライドショーの 自動実行もどき 偽物を作成してみます。 youtu.be https://youtu.be/v0ADG_l4QY8 目次 00:00 0.あいさつ 01:20 1.過去のコードをコピペして、実行してみます 02:22 2.スライドの画面切り替えのタイミングを0にする 05:12 失敗例 07:10 ゼロ秒をセットして次に進ませる1.過去のコードを…

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

VBA

Excel A列に切替タイミングの秒数を入力、PowerPointの画面切り替え タイミングにセットする そんな処理を行ってみます。 タイトルサムネイルYoutubeのコメント欄で下記の質問をいただきました パワーポイントの自動画面切り替えの秒数の設定において、エスセルに記入した秒数を流し込むことは可能でしょうか。 パワーポイントのスライドが600ページ✖️4セットあり、それぞれ表示する秒数がエクセルにまとめてあります。 これを手打ちしていく作業がなかなか大変なので、効率的な…

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

タイトルサムネイルPowerPointのスライドで複数サムネイル画像を作成 各スライドをjpgファイルに保存したいと思い、 VBAを探ってみたら、 .Export で 簡単に画像ファイルを作成できました。 youtu.be https://youtu.be/Gf1AGfSdN5c 目次 00:00 挨拶 やりたいこと 00:50 1.プレゼンファイル全体を.Exportで出力 02:33 2.指定スライドを.Exportで出力 04:11 3.名前を付けて、全スライドを出力し…

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

detail.chiebukuro.yahoo.co.jp が気になったので、 google:パワークエリ url post を検索してみた・・・これが使えるなら、 Excel web パワークエリで取得 オッズ取得でこの方法こっちもいいかな? javascriptで処理しているページで リンク処理で、POSTのパラメーターを渡しています。 下記、私の試行錯誤動画ですが https://youtu.be/RjZZUq40gxY?t=665 youtu.be (VBAなのでパワ…

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

VBS

タイトル画像VBSからExcelマクロを10分間隔で タスクスケジューラ を使い起動したテスト をライブでやったが、準備不足で話が続かなくて、後半無言で垂れ流してました・・・反省。 下記、ライブのアーカイブです、コメント欄の目次で飛ばしながら、 10分間隔で10回 Excelマクロが実行されたことを確認してみてください。 また、.VBS ファイルを載せるので、VBSからExcelを開き マクロ実行(.RUN)の参考にしてみてください。www.youtube.com https…

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

タイトルとサムネイル下記、知恵袋の質問に触発され detail.chiebukuro.yahoo.co.jp ExcelのデータをPowerPointに転記する そんな処理をやってみます。勝手に作った仕様は、 Excel:A1一行目~項目名 2行目からデータ pp:図やテキストボックスに名前を付け、その場所にセットするExcel1行目の項目名 PowerPoint同じ名前のオブジェクト にデータをセットしますそんなラフなイメージです。下記、いつもの あのあの そのその 解説と…

CreateObject("htmlfile")でDocumentを作りweb上のhtmlデータを抜き出す 例題でJRAオッズを取得してみた

タイトルとサムネイルDim oDocument As Object Set oDocument = CreateObject("htmlfile") で作成したhtmlfileドキュメントオブジェクトに html文字列を書き込む、そんなデバッグ風景です。下記、いつもの あのあの そのその 解説動画です www.youtube.com https://www.youtube.com/watch?v=RjZZUq40gxY 目次 00:00 0.IEが無くなるので CreateO…

Excelで読み上げ Range(範囲).Speak で簡単にできました Application.Speech.Speakもアリかな

タイトルExcelのVBAで.Speakを使用すると、簡単に読み上げが可能です Application.Speech.Speak もあって、 セル読み上げだけじゃなく、好きな言葉を読み上げることができます。MsgBoxと組み合わせてみたけど、チョット、イマイチでした。 視聴者のみなさんで、面白い使い方があったら、 ぜひコメント欄で教えてください。 youtu.be https://youtu.be/c4mH9szOo2w#ExcelVBA #Speak #読み上げ #Spee…

Excel VBA 短い台詞から.wavファイル 機械音声を作成してみた

Excelで入力された文字列(台詞)からwavファイルを作成してみた。 機械音声のファイルを作成してみました。 意外と簡単に音声ファイル .wavを作ることができそうなので、 コードをアレンジしながら使ってみてください。 何か面白い使い方、アイデアがあったら(視聴者の皆さんがひらめいたら) コメント欄やメッセージで教えてくださいね。 #ExcelVBA #音声ファイル #機械音声下記、いつもの あのあの そのその 解説動画です youtu.be https://youtu.b…

Excel VBA 右クリック メニュー に自作マクロを追加する CommandBarを探ってみた

自作マクロVBAをExcelの右クリックメニューに追加したかったので、 いつものように デバッグ テスト してみます。 ※最後の後始末がうまくいかなかったのは・・・実力・確認不足です。下記、いつもの、あのあの そのその 動画解説です youtu.be https://youtu.be/Zeccp33SPQA 目次 00:00 0.こんなことできます 00:52 1.登録は簡単でControls.Add 02:10 2.Cell や Row って、どこでさがすの? 11:00 …

これからは VBA マクロの配布時にセキュリティの説明をキチントしないと?

VBA

最近は、マクロ付きExcelブックなどを配布してないんだけど(ぉぃぉぃ、活動してないのか?) ファイル配布がセキュリティ関係で厳しくなるのかなぁ。 まぁ、あまり簡単にメール添付やネットからダウンロードした マクロ付きファイルから実行できたらまずいのか。 docs.microsoft.com https://docs.microsoft.com/ja-jp/deployoffice/security/internet-macros-blocked ↑のスケジュールだと、 更新チ…

Word VBA 表の列幅 Columns.Countで列数 Columns(x).Widthで幅

…れば列幅が変わりますWord 表の列幅 取得・変更 処理の参考となれば幸いです。 ※Excelとのリンク貼り付けで列幅が狂った時、戻す処理をやろうとするが、 失敗したので、動画の後半、カットしました・・・・0.つかみで、列幅の表示VBAを走らせる1.Selection.Tables.Count で 選択したエリアに表・テーブル数 Selection.Tables.Count で選択されたテーブルの数がわかるので、 If Application.Selection.Tables…

Word VBA 段落オブジェクト Paragraph マクロ記録と検索で探ったお話

VBA

…ube.com ↑ Word VBAを探る マクロの記録 と オブジェクトの調べ方 例題:検索した文字列の1行下に指定文字を入れる Word VBAのコードをマクロ記録から修正 - YouTube Sub Macro1() ' ' Macro1 Macro ' ' Dim n As Integer '先頭にカーソル移動 https://www.relief.jp/docs/word-vba-selecting-start-documents.html から引用 ActiveD…

がんばれ 新社会人 新人プログラマー くたばれ 老害 三流プログラマー YouTube新規向けのチャンネル紹介動画を作成した

がんばれ 新社会人 新人プログラマー くたばれ 老害 三流プログラマー 私Ken3も ステップアップの踏み台くらいにはなりたかったなぁ (視聴者の声:今からでも遅くないぞ良い踏み台を目指せ、おじさんもがんばれ) youtu.be https://youtu.be/HCoi7KQs-14 ↑Youtubeチャンネル https://www.youtube.com/user/ken3video のチャンネル紹介動画を作成した。※これじゃ紹介動画になってないぞ・・・・は、置いといて…

Excel VBA で PowerPointのタイトルテキストを取得したい Shapes から テキストを取り出す

VBA

ExcelからPowerPointのテキストを取得したい 過去の記事:A列のデータをパワポへ ken3memo.hatenablog.com >これの逆(パワポのスライドタイトルをExcelへ)ってできますか? とコメントが来たので、パワポのテキストを取得してみたいと思います下記、作成した解説動画です。ソースコードと合わせてみてください。 youtu.be https://youtu.be/FZovWjt0xtQ 目次 00:00 質問内容 00:20 実行結果を見せながら説…

未解決 msoLineJoinRound 丸められた結合を指定します ってどこにあるの?

↑あっ、間違えた、先端の方ですね・・・結合は図形を折れ線とか足した時だから、この先端の丸と join は関係ないな。はずかしいけど、残しておくか・・・ 似ている質問見つけました ぉぃぉぃ teratail.comMSのページ※勘違いの結合だけど docs.microsoft.comこれ、 msoLineJoinRound 1 丸められた結合を指定します。 って、どこでつかうの? どのオブジェクトのプロパティだろう・・・? メモをブログに残す。google:msoLineJoi…

Outlook VBA 差出人を変更 別の名前にする SentOnBehalfOfName を意図せずに発見

いつものように参照設定の下記回答動画を作成、 テスト結果を確認した時に あれ?差出人が違う名前になってる? SentOnBehalfOfName を意図せずに発見→ https://youtu.be/u4sLe5J2Tms?t=80 And 落ちてたコードの拾い食い発言は面白くない(ネットにUPされているコードに敬意を払いましょう)動画全体を見るには下記 https://youtu.be/u4sLe5J2Tms 目次 00:00 知恵袋の質問 00:28 #参照設定 の話 0…

ウォッチ式の使用例として PowerPoint VBA グラデーション 色を ウォッチ式でトロイおじさんが探ってみた

結果を先に書くと、 Shape.TextFrame2.TextRange.Font.Fill.GradientStops.Item(1).Color で取得できました。 - : TextFrame2 : : TextFrame2/TextFrame2 : Module1.aaa - : TextRange : : TextRange2/TextRange2 : Module1.aaa - : Font : : Font2/Font2 : Module1.aaa - : Fil…

実行時エラー 1004 : RangeクラスのAutoFilterメソッドが失敗しました Excel VBA .AutoFilter フィルター処理を勝手にデバッグ

実行時エラー 1004 : RangeクラスのAutoFilterメソッドが失敗しました 質問元: teratail.com ↑が質問元です。※回答してから勘違いに気が付く、痛恨のパターン・・・落ち着け・・・VBAからフィルターを使ったこと無かったので、 勝手にデバッグ動画を作成 https://www.youtube.com/watch?v=DG968fWAx78 ↑エラーを強引に出してみました。へんなデバッグ動画ですが、参考となれば・・・無いとは思いますが Range("…

VBA PowerPoint クラスモジュールで WithEvents イベント処理 例題として スライド開始 SlideShowBegin と スライド終了 SlideShowEnd を処理

VBA PowerPoint イベント で検索すると、いろいろなページがヒットします。 今回は、下記公式の Application オブジェクトでイベントを使用する https://docs.microsoft.com/ja-jp/office/vba/powerpoint/how-to/use-events-with-the-application-object を見ながら、テストしていきます。下記、いつものテスト動画です www.youtube.com https://w…

ExcelからWord #データ差し込み 処理を #デバッグ してみた Excel VBA IsDate("1200-10") が True になるので小細工してみた・・・

…質問 ExcelからWord #データ差し込み 処理を #デバッグ してみた teratail.com https://teratail.com/questions/ug68w33bvto3t0いつもの あのあの そのその 酔っ払い解説動画は下記 www.youtube.com https://www.youtube.com/watch?v=kd9C4CtZRJsオープニング・質問内容 テスト実行 00:00 0.原因 日付チェックの関数 IsDate 04:40 1.対策1…

XXXXXさんへ Q. IE操作 Vbaとvbsの違いについて #IE操作 #VBA #VBS #業務改善 を邪魔する #老害 ぉぃぉぃ

下記の質問 Q. をいただく Vbaを、勉強中初心者なのですが、この度質問させて頂きたいことがあり、自身では調べきれずメッセー ジさせていただきました。「内容」 Vbaとvbsの違いについてです。現在、勤め先でvbaを使用し作成したxlsmファイル(150個)を作成しまし た。当該各ファイルにアクセスした際、open時イベントでieエクスプローラを操作し、それぞれのurl(4 ページ程経由、各xlsmファイルの設定ごとに、キーワードを入力したりチェックして別々のInterne…

VBA PowerPoint 全てのスライドを選択しながら スライドノートを音声に変換して埋め込む #VBA #PowerPoint #ノート #音声埋め込み

またまた浮気して人力検索から teratail の質問を答えて、恥をかいてみたり・・・ (※ここまできたら、浮気じゃなくて、あっちが本命か?ぉぃぉぃ・・・)元ネタの質問ページは下記を見てください。※他の回答や質問のコードを参考にする。 teratail.com PowerPointで音声データを埋め込み、終わったら次のスライドへ移動させたい https://teratail.com/questions/tpr2jlldqc85js↓いつもの あのあの そのその 酔っ払い説明動…


質問・感想・クレームなど、
気軽にコメント欄に書いてもらえるとうれしいです。

[Googleフォームにコメントを残す]
↑質問・コメントの入力フォームです、気軽に書いてください


フッター:最後にKen3Videoの動画一覧を紹介します

YouTubeにアップした動画です。他の動画を一瞬でも見てもらえるとさらに嬉しいです。
再生リスト:[三流君Ken3の最新動画]←リストの一覧形式で表示する


また、ブログを見に来てくださいね。ではまたぁ~