三流君 ken3のmemo置き場

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

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

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

VBA

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

知恵袋の質問に答えてみた。: detail.chiebukuro.yahoo.co.jp 下記のようなoutlookvbaでメール返信をしたいのですが、埋め込み図形がそのまま反映してくれません。何か方法はありませんか? Dim objReItem As Outlook.MailItem Set objReItem = ActiveInspec…

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

昔の記事 Outlook VBA でフラグを付ける処理 三流君VBA:Outlook VBAでフラグ作成 .FlagStatus .FlagRequest .FlagDueBy http://www.ken3.org/vba/backno/vba161.html に下記の質問をいただきました。 教えていただければと思います。 No161のフラッグ設定を…

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

パワポのデバッグ・確認資料として、ハイパーリンクの一覧を作成したく、 ハイパーリンクのオブジェクトを探るが、 しっくりこなかったお話です。知恵袋の質問 detail.chiebukuro.yahoo.co.jp の回答用に作成する、他の回答者がシンプルなコードを先にUPして…

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

ExcelからHTMLメールを作成してタグにFontサイズを指定したけど、変わらなかった。 そんな質問に答えてみた。 teratail.com detail.chiebukuro.yahoo.co.jp下記、いつもの あのあの 解説動画・・・ youtu.be https://youtu.be/vuq1fe29JU0 目次 00:00 あいさ…

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

下記の質問をいただく、 (が、いつものように、できない、難しい・・・の後ろ向き回答、ぉぃぉぃ) >さてこのたび仕事の関係で某厚生労働省の年金関連のqaページをエクセルの表にして抽出したいと考えています。最低限A列にQ(質問内容)、B列に(回答内容)…

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

タイトルサムネイル1.小数点をそろえる、オッズ10倍以下を赤にする 見た目を少し、修正してみます。 時間稼ぎの見た目修正よりも、異常なオッズや勝ち馬を探すロジックを組み込めよ・・・ なんて、声が聞こえてきますが。。。下記、いつもの あのあの 解説動…

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

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

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

VBA

Excel A列に切替タイミングの秒数を入力、PowerPointの画面切り替え タイミングにセットする そんな処理を行ってみます。 タイトルサムネイルYoutubeのコメント欄で下記の質問をいただきました パワーポイントの自動画面切り替えの秒数の設定において、エス…

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

タイトルサムネイルPowerPointのスライドで複数サムネイル画像を作成 各スライドをjpgファイルに保存したいと思い、 VBAを探ってみたら、 .Export で 簡単に画像ファイルを作成できました。 youtu.be https://youtu.be/Gf1AGfSdN5c 目次 00:00 挨拶 やりたい…

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

タイトルとサムネイル下記、知恵袋の質問に触発され detail.chiebukuro.yahoo.co.jp ExcelのデータをPowerPointに転記する そんな処理をやってみます。勝手に作った仕様は、 Excel:A1一行目~項目名 2行目からデータ pp:図やテキストボックスに名前を付け、…

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

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

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

タイトルExcelのVBAで.Speakを使用すると、簡単に読み上げが可能です Application.Speech.Speak もあって、 セル読み上げだけじゃなく、好きな言葉を読み上げることができます。MsgBoxと組み合わせてみたけど、チョット、イマイチでした。 視聴者のみなさん…

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

Excelで入力された文字列(台詞)からwavファイルを作成してみた。 機械音声のファイルを作成してみました。 意外と簡単に音声ファイル .wavを作ることができそうなので、 コードをアレンジしながら使ってみてください。 何か面白い使い方、アイデアがあったら…

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

自作マクロVBAをExcelの右クリックメニューに追加したかったので、 いつものように デバッグ テスト してみます。 ※最後の後始末がうまくいかなかったのは・・・実力・確認不足です。下記、いつもの、あのあの そのその 動画解説です youtu.be https://youtu…

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

VBA

最近は、マクロ付きExcelブックなどを配布してないんだけど(ぉぃぉぃ、活動してないのか?) ファイル配布がセキュリティ関係で厳しくなるのかなぁ。 まぁ、あまり簡単にメール添付やネットからダウンロードした マクロ付きファイルから実行できたらまずいの…

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

Selection.Tables.Count で 選択したエリアに表・テーブルがあるか?判断 Columns.Count で 列数 Columns(x).Width で 幅が取得できます youtu.be https://youtu.be/FeZvnfIHWZ0 ← 文字が小さい時はYouTubeで直接見てください。 目次 00:00 0.つかみで、列幅…

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

VBA

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

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

VBA

ExcelからPowerPointのテキストを取得したい 過去の記事:A列のデータをパワポへ ken3memo.hatenablog.com >これの逆(パワポのスライドタイトルをExcelへ)ってできますか? とコメントが来たので、パワポのテキストを取得してみたいと思います下記、作成した…

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

↑あっ、間違えた、先端の方ですね・・・結合は図形を折れ線とか足した時だから、この先端の丸と join は関係ないな。はずかしいけど、残しておくか・・・ 似ている質問見つけました ぉぃぉぃ teratail.comMSのページ※勘違いの結合だけど docs.microsoft.com…

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

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

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

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

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

実行時エラー 1004 : RangeクラスのAutoFilterメソッドが失敗しました 質問元: teratail.com ↑が質問元です。※回答してから勘違いに気が付く、痛恨のパターン・・・落ち着け・・・VBAからフィルターを使ったこと無かったので、 勝手にデバッグ動画を作成 htt…

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

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

IsDateで日付かチェック可能なのですが、 1200-12 みたいなYYYY-MMと取れる文字列を真 Trueと判断する まぁ、当たり前のお話なのかなぁ・・・なので、追加で、書式が文字列かチェックしてみたり、 置き換え前の文字に 日 が入っているか?チェックしてみたり…

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

下記の質問 Q. をいただく Vbaを、勉強中初心者なのですが、この度質問させて頂きたいことがあり、自身では調べきれずメッセー ジさせていただきました。「内容」 Vbaとvbsの違いについてです。現在、勤め先でvbaを使用し作成したxlsmファイル(150個)を作成…

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

またまた浮気して人力検索から teratail の質問を答えて、恥をかいてみたり・・・ (※ここまできたら、浮気じゃなくて、あっちが本命か?ぉぃぉぃ・・・)元ネタの質問ページは下記を見てください。※他の回答や質問のコードを参考にする。 teratail.com PowerP…

Word VBA ルビの情報を ActiveDocument.Fields(n).Code から探ってみた #Word #VBA #デバッグ

人力検索から浮気して teratail の質問に回答してみた。 テスト不足で、浮気先で恥をかいてしまった ぉぃぉぃ ※正確には、人力検索でもダメ回答で恥をかいていたりするんだけど・・・浮気先(質問元) teratail.com https://teratail.com/questions/j9rj56gr6h…

VBA Excelで指定した文字をWord文章中から探す 段落オブジェクト Paragraph を使用 Range.Informationで位置を取得 #VBA #Word #デバッグ #Excel

ExcelからWordの段落オブジェクトParagraphsを使用して検索文字列の位置Range.Informationを探してみました ※人力検索から浮気して teratail の質問に回答してみた。いつもの人力検索のノリなので、常連さんに怒られないか心配しつつ・・・浮気先(質問元) te…

XXXXXさんへ IEサポート終了後の VBA WEBからのデータ取得について キーワード Selenium で検索すると流行の方法がわかるかなぁ

>ExcelVBAでデータを集め、競輪予想を作っています。 ・ ・ ・ >さて最近、IEのサポート終了が告知されていますが >WEBからのデータ取得はどのような対処がベターなのでしょうか?ご意見をお聞かせください。ベター、ベスト、イロイロな考え方がありますが、…

XXXXXさんへ Excel VBA 1行単位 A列からE列 5つのデータをPowerPointの1スライド 縦に5個並べたテキストボックスにセットする

VBA

下記の質問をいただきました。 >パワーポイントのVBAを検索していたらこちらに辿り着きました。 >A列~E列までのデータを1枚のスライドの5か所のテキストボックスに流し込むにはどうしたら >いいでしょうか? >テキストボックスは上から下へ同じ大きさ…

Ken3 ホームページ 目次

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

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



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