三流君 ken3のmemo置き場

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

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

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

VBA

PowerPoint VBA 表:TABLE 行:Row 列:Column セル:Cell を探る データ取得とセット

PowerPointの表をVBAから操作するコードを探ってみます ActivePresentation.Slides(2).Shapes("表 2").Table.Cell(3,2).Shape.TextFrame.TextRange.Text = "文字列" の一行紹介の動画でOKなのに無駄に長く、 型宣言して型にハメながら ステップ実行してみま…

Excel VBAで見慣れないコード Range("Sheet2!A1:D5")を見てビックリした話

Rangeにシート!範囲を渡す1.Set r1 = Range("Sheet2!A1:D5")を初見で見て、ビックリした00:00 派遣先で見たコードにビックリSet r1 = Range("Sheet2!A1:D5")↑これ、できるの?シート名書いてるけど、いけるのか?ってことで、 門外不出の秘密コードを頭の隅…

Excel A列~C列,D列~F列をPowerPointスライド2枚単位でデータを作成・流し込む 蛇足で三択クイズスライド

ひな型スライド複数ページをコピーして使う Slides.Range(Array(1, 2)).Copy をテストExcelからPowerPointにデータをセットする解説動画の コメント欄に テンプレを2枚(複数)をコピーしながら、 Excel A~C,D~FをPowerPointに2枚単位でデータを流し込む、 …

Outlook VBA 連絡先の幅 と 表示位置を探る GetInspector Width Left Top をテスト STOPで止めてウォッチ式で探ってみた

バグ・不具合の原因がウインドウの幅だと思い込み、 決めつけてデバッグした失敗動画ですが VBAデバッグでウォッチ式使用方法の参考となれば幸いです。 youtu.be https://youtu.be/9qlahSwozo8 目次 00:00 現状とやりたいことを説明 01:40 STOPで止めてウォ…

イミディエイト ウインド使用例:「イミディエイトにコードを貼り付けて確認」と言われたら VBA デバッグ

下記のコード1行を #イミディエイト に打ち込んで確認してみてください ActiveInspector.Width = 800 と言われたら?いきなり、経験者・自分たちの目線で話したけど、 ?の人、初めての人は何言ってんだコイツと、あせると思います。youtu.be https://youtu.…

Excel VBA グラフのラベルとセルをリンク As DataLabel InsertChartField msoChartFieldFormula

Dim oLABEL As DataLabel グラフのデータラベルオブジェクトに対して表示フィールドの追加 oLABEL.Format.TextFrame2.TextRange _ .InsertChartField msoChartFieldFormula, "=Sheet1!$C$7" で、シートのセルとリンクさせる、そんなテスト動画です。 youtu.b…

JRA三連複のオッズ取得 JRAのHPから三連複のオッズをExcelに取り込む デバッグ

ワイドと三連複のオッズを取得したい と質問があったので、 今回は、三連複のオッズ取得に挑戦してみます。下記、デバッグ動画です、うまくコードをアレンジしてみてください。 youtu.be https://youtu.be/MEOvxlcubAw 目次 00:00 挨拶と実行テスト 02:36 オ…

パワポ アニメのイベント SlideShowNextBuild などをWithEventsで使用する GetClickCount GetClickIndex ほか

PowerPoint VBAのイベントで、 アニメーションのイベントを探ってみました と言っても WithEvents App As Application で SlideShowNextClick スライドショー内のクリック SlideShowNextBuild アニメーション 表示前 タイミングをテストしただけでした。また…

Outlook VBA 下書きに保存したメールを元に書式を残し置換 MailItem.Copy WordEditorで置換

やりたいこと: detail.chiebukuro.yahoo.co.jp >Outlookで下書きに保存したメールを元に作成してみたいメールがあります。 >文字列を日付に変換するだけなのですが、 >下書きに保存したメールには書式があります。 >OutlookVBAでReplaceしたら書式が消え…

パワポ マクロ 全てのスライドのフォントを一括変更 使い捨てマクロ設置のお話

知恵袋の質問 detail.chiebukuro.yahoo.co.jp 既存のパワーポイントファイルのすべてのスライドのフォントを一気に変更することは出来ないのでしょうか? と あったので マクロを作成し、使い捨てのマクロ処理を設置してみた#パワーポイント #PowerPointVBA …

JRAオッズ取得 ワイドのオッズを取得 MSXML2.XMLHTTPとCreateObject("htmlfile")を使用してデバッグ

JRAのホームページから、 ワイドと三連複のオッズを取得したい と質問があったので、 まず、ワイドのオッズ取得にチャレンジしてみます。私Ken3が大好きだったIEのサポートが終了したので、 MSXML2.XMLHTTP と CreateObject("htmlfile")を使用して JRAオッズ…

VBA Q:標準モジュールのマクロが消えた? A:勘違いかも?落ち着いて表示を切り替えてみてください

VBA

知恵袋の質問 detail.chiebukuro.yahoo.co.jp >エクセルのマクロを開こうと標準モジュールボタンを押してみたところ、 >declarationsと右上に表示されるばかりでその他何も表示されません。 >これは、マクロが消えてしまったということでしょうか? にチ…

パワポ マクロで使い捨ての一回作業 例題:コピーしたオブジェクトを2ページ目以降に連続貼り付け

同じテキストや図形をすべてのスライドに貼り付けたい、 そんな時のために使い捨てマクロを作成してみました。 0.やりたいこと detail.chiebukuro.yahoo.co.jp >30スライドある資料全部にテキスト追加して編集したいのですが、 >全スライドに一括でテキス…

ExcelからOutlook HTMLMail作成 WordEditor時 末尾にデータを追加したい時 カーソル移動のテスト

Set sel = ol.ActiveInspector.WordEditor.Windows(1).Selection .WordEditorで編集 Wordの世界(世界はいいすぎか、Object操作なので、) .Bookmarks("\EndOfDoc").Select この一行を組み込むとよいのでは?下記、いつもの あのあの 解説動画です。 youtu.be …

Word VBA ワード文章をページ単位でテキストファイルに書き出す マクロをデバッグ

ワード文章をページ単位でテキストファイルに書き出す そんな動作を行うマクロをデバッグしてみました。下記、いつもの デバッグ動画です youtu.be https://youtu.be/FXNjGsLen18 目次 00:00 あいさつ、やりたいこと 00:50 1.ページ選択のテスト 03:15 2.ペ…

Outlook予定表に書込み 登録後カレンダー表示 CalendarViewModeを1日単位の日ビュー表示にする

Outlookへ予定を登録後、CalendarViewModeを変更して、カレンダーの表示を変える。 そんな処理にチャレンジしてみました。 Outlookを複数起動していたので、いつも以上にデバッグでハマってしまいました。 お蔵入りレベルのムゴイ動画ですが、よろしくお願い…

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

パワポのグラフ元が毎日更新されるエクセルBook 0901.xlsx,0902.xlsx...で 日付別に日々bookが作成される。 パワーポイントのグラフリンク(bookを指定)を更新したい。 とあったので、探ってみました。知恵袋の質問・キッカケ detail.chiebukuro.yahoo.co.jpP…

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

パワポに記載されたノートを読み上げるマクロボタンを作成。 単純にスライドショーのノート SlideShowWindows(1).View.Slide.NotesPage.Shapes.Placeholders(2).TextFrame.TextRange.Text をSAPI.SpVoice .Speakで読み上げただけですが・・・アレンジして処…

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

前回 ken3memo.hatenablog.com の続きです今回は、 折れ線グラフに直値の系列を追加 してみました。 ActiveChart.SeriesCollection.NewSeries '.NewSeriesで新系列追加 で、できました。 って、何言ってんだコイツ・・・いきなり、話すすめられても?だよね…

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

グラフ作成時a1:b10の範囲を棒グラフに、 など、セルの範囲を元にしてグラフを作成しますが、 今回、直接、値を使用してみたいと思います。知恵袋の質問 detail.chiebukuro.yahoo.co.jp に答えてみた。#ExcelVBA #MSExcel #Chart #グラフ #マクロ #デバッグ …

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.単体 ワードアート内の文字列…

Access OLE型のフィールドに埋め込まれているWordデータをファイルに保存 TypeName(Me!OLE型.Object)=Document

Accessフォーム経由でOLE型に埋め込まれたWord形式のデータ OLE型のデータを取り出し、Wordファイル化してみました。ネタ元は下記のQAサイトです teratail.comいつもの動画解説 あのあの こんな感じ イライラ 解説は下記 youtu.be https://youtu.be/8fqAbKdA…

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

パワポでスタンプ処理 UserForm イメージオブジェクトを使い連続で図形をセットする。 そんな処理を試作 仕組みは単純で、UserFormのイメージコントロールを使い、 イメージが押された位置にスタンプ図形シェイプをセットしてみました知恵袋の質問 detail.ch…

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

Excelシートのイメージ B2にフォルダー B6~ファイル名、C,D,E,F列にセット位置 に記載されたExcelの画像ファイル名リスト・表 から パワポのスライドを複数ページ作成するQAサイト teratail.com の質問に答えてみた。いつもの あのあの そのその イライラ動…

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

知恵袋の質問に、PowerPointで図形を左揃え、上揃え、均等の質問があったので、 パワポ VBA ユーザフォームで図形の配置 整列を探ってみました。知恵袋の質問 detail.chiebukuro.yahoo.co.jp ↑に回答してみました。下記、いつもの あのあの そのその イライ…

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

イライラ棒的な処理をパワポで作りたい時、 図形のマウス通過を接触判断として、 触れたら、スライドの最後に飛ばす、そんなスライドを作成したい知恵袋の質問 detail.chiebukuro.yahoo.co.jp に答えてみました。下記、いつもの あのあの そのその、イライラ…

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 あいさ…

Ken3 ホームページ 目次

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

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



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