三流君 ken3のmemo置き場

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

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

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

2023-01-01から1年間の記事一覧

総合テスト パワポ 30枚の画像をランダム配置 フェードアウトの終了 アニメ動作付きオブジェクトの入れ替え 設定手順と動作チェック PowerPointVBA

PowerPointのVBA マクロを使用して、 30枚の画像をランダムに入れ替え配置を行ってから、 スライドショーを実行。 単体で確認したマクロコードを組合わせて総合・結合テストを行いました。www.youtube.com https://www.youtube.com/watch?v=GXY_4b0YMtU&list…

パワポ スライド内 画像表示位置を入れ替え 単純に.Left .Topで位置を入れ替えシャッフル

毎回プレゼン前に スライド内の画像をシャッフル、ランダムで入れ替えたい。 そんな処理を依頼されたら? なんで?そんなこと・・と、理由を知りたくなるけど、 そんなことは、置いといて、 youtu.be https://youtu.be/nrEzOnGEsZk 目次 00:00 やりたいこと …

パワポ 選択されたオブジェクト・シェイプに名前を付ける PowerPointVBA Shape Name

PowerPoint Shape.Name を使用して名前を付ける。 Shape.ID をプラス、連番をShape.Nameにセットしたり。 同じ名前が許される不思議???事前準備として、 パワーポイントで設置したオブジェクトに対して、 名前を付ける、名前を付け直す。 そんな処理をマ…

パワポ アニメ フェードアウト 終了のアニメーションを連続セット TimeLineのMainSequenceと InteractiveSequences違いなどをデバッグ解説

終了、フェードアウトのアニメーションを複数の図形・シェイプに連続でセットする。 パワーポイントのアニメを設置するマクロコードの紹介と解説です。 タイルで隠す?アニメーションの終了・フェードで消す#PowerPointVBA #アニメーション #出して消す #直…

パワポの複数スライドをExcelマクロを使用して1つにする ExcelのA列に入力したファイル名リストを使用してPowerPointのスライドを合体させる

複数のパワポ.pptxファイルを1つのファイルにまとめたい。 A列に複数のファイル名 この複数パワポを一つにまとめるExcelマクロを使用して、 A列に入力したPowerPointファイルを開き、一つにまとめてみました。 実験動画です。コードをアレンジして使ってみ…

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.やりたいこ…

パワポからパブリッシャーへ貼り付け VBAでPowerPointからCreateObject("Publisher.Application")

パワポからパブリッシャーへ貼り付けを実験したです。 CreateObject("Publisher.Application") が使えたことにビックリしただけで、 動画作成中にVBAで作らなくて良いことに気が付き・・・ また、動画録画用のPCと作成用のPCが違ったため、 マクロのセキュリ…

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

PowerPoint VBA マクロを使用して .Saveでファイルを上書き保存後、 .Convert2で別拡張子で保存 (マクロの.pptmをスライドショー.ppsxへ) .Presentations.Openで開き直し .Closeで別拡張子Convertしたファイルを閉じる そんな処理の流れです。 #PowerPointVB…

パワポに埋め込まれたOLE型のExcelシートを探る OLEFormatのProgIDやObjectを使用する

パワポに埋め込まれたOLE型のExcelシート Shape.OLEFormat.ProgID = Excel.Sheet.12 など埋め込み型を吸い上げて別ファイルに保存する処理を探ってみた。 youtu.be https://youtu.be/-GFfMCoBXAQ 目次 00:00 0.キッカケは知恵袋の質問 00:14 1.挿入 から オ…

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

PowerPointのスライドにExcelから貼り付けたグラフ ※リンク切れでデータが編集できない> の表示順を変えたくて、 マクロで Series.PlotOrder = 1を使用したテスト動画 youtu.be https://youtu.be/aSQeb7JyBs4 です。 ※リンク切れグラフの処理で参考となれば…

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

Excelのシートをリンクして作成しているプレゼンがあります そのExcelシートのリンク情報・リンク先を VBAマクロで更新する。 youtu.be https://youtu.be/wnhVcYHxXXQ 目次 00:00 0.やりたいこと Excelリンク貼り付けのシートを更新したい 02:25 1.まずは、…

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

パワーポイント マクロで動画の自動再生+ループ再生を設定する 貼り付け済みの動画アイテム ppMediaTypeMovie に対して、 マクロで自動再生+ループ再生のアニメ設定 AnimationSettings を行う。0.やりたいこと テスト知恵袋の質問をデバッグ、テストしてみ…

Excel パワークエリでText.Splitを使用して列を分割後にデータを縦に展開作成してみた

パワークエリを使用して 区切り文字で分割したデータを縦に作成したい セミコロン区切りのデータを縦に展開したいそんな処理にチャレンジしてみます。 youtu.be https://youtu.be/7XtxzjOH-Vg 目次 00:00 やりたいこと 00:28 1.テストでカンマ区切りの趣味を…

白い具材の新人さん 先輩の技術を吸収して良い味になるといいな

新人さん達も、そろそろ会社の環境に慣れてきたころかなぁ? 何か合わないので、辞めたい・退職したいとムズムズしだす頃かもしれないけど・・・個人的には、三年くらい在籍して、 自分の味・特色が出てきてから ステップアップの転職がいいなぁ・・と思うけ…

Excel パワークエリで複数の明細行を作成 カスタム列の展開で行を増やしてみた

よい、方法、教えてもらいました。リストを 1 から 各行の個数 に変更してみました。 pic.twitter.com/Ikn16amV4a— takasanZ (@takasanZ1) 2023年5月1日 カスタム列の指定方法↑なんだぁ、 { 1..5 } とか 固定でやって、削ってたけど、 素直に = { 1.. [列名]…

連休前は、集中力を切らしやすい時期です。架空の朝礼挨拶 2023年4月24日

私自身は、外注(害虫)作業者なので、 朝礼の挨拶なんて、ここ数年やっていないのですが、 ネタ切れなので、勝手に架空の挨拶をしてみました・・・ youtube.com 皆さん、おはようございます。連休前最後の週ですね。 連休前は、集中力を切らしやすい時期なの…

負の感情を向けられた時、アナタは気にしますか?負の感情を気にしちゃいけないんだけど、気になるかなぁ

負の感情を向けられた時、アナタは気にしますか? 下記、知恵袋の質問に心が真っ黒に染まったおじさんが答えてみた。detail.chiebukuro.yahoo.co.jp ・ ・ ・ こうしたらいいと思いますよ(^^) ・ と、答えると困ってた人が 「凄い!天才!」と大喜びバグして…

ChatGPTで自分の質問履歴を左上の三点メニューから確認できた話 雑談メモ

2023/04/26 追記を冒頭に pc.watch.impress.co.jp ↑この機能や新しいオプション、契約プランなどが出てくるんですね。。。 detail.chiebukuro.yahoo.co.jp ChatGPTを最近利用しています。 業務中にも利用し始めてるのですが、ChatGPTを使用している事はわか…

XXXXXさんへ「新卒チケット無駄にした」と言われたら?顔の見えない人たちに負けないでがんばってね

質問メッセージ、ありがとう。 私は、新人の気持ちがわからないほどのオジサンなので、 回答動画が心に響くか?わかりませんが、 ネットで言われたことなんて、気にしないで、前に進みましょう 回答動画: youtube.com新卒で就職したけど辞めました。ブラック…

ChatGPTでダミーデータを作成してみた 氏名と住所のダミーデータを作成

ChatGPTでダミーデータ作成できると聞いたので使ってみた。 (もう、お腹いっぱいのGPTネタですね。これくらいで感動するなよ?)簡単な指示(カンマ区切り と 項目名,データ例1件) から、作成してもらいました。 意外とテストデータ作り、悩むので、※白紙から…

プロンプトのテスト BingのImage Creatorで有名芸能人 本田翼,渡辺直美を指定して生成結果の動きで勝手な考察

有名芸能人 本田翼さん,渡辺直美さんの名前を指定して MS BingのImage Creator https://www.bing.com/create で、 漫画イラスト風の画像をAIに作ってもらいました。やりたかったこと、 1.プロンプトで漫画イラストの指定が可能なのでテストしてみたかった 2.…

いろいろな入力方法 キーボード入力 vs スマホのフリック入力 未来は音声入力?ないない?いやあるぞ?

4月、今の時期よく見かける質問、 新大学生・新社会人から PCのキーボード入力がイヤです苦手です。 スマホなら簡単で速いのに・・・ なんて、感じで、 スマホ入力のように上手くいかなくてイライラ的な質問をみかけたり。下記、ふざけたショート動画ですが …

ChatGPT プロンプト練習メモ 桜花賞 怪しい占い師が姓名判断 するプロンプトの練習

チャットGPTで役割を与えると、それらしく演じる?(返事を役になりきって出力される) と聞いたので、テストしてみました。役割・演じてほしい、ふるまい:アナタは姓名判断を得意とする占い師です。 やってほしいこと:2023年4月9日(日)当日の運勢を占い、運…

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

ActivePresentation.Slides(p).Delete でpページ目のスライドを削除することができます。 昨年作成した Excel to PowerPointの差し込み印刷もどき処理 ken3memo.hatenablog.com ↑で、 不具合・バグが発生していたので、その対策も兼ねて、 パワーポイントの…

新人に「初日で辞めたくなった」と言われたら・・・ 三年とは言わないが三日・三週間は水に慣れるまで居てみては?

初日で辞めたくなった 家に帰りたい 三年とは言わないが三日・三週間は水に慣れるまで居てみては? #shorts #会社辞めたい #石の上にも三年 #新社会人 #新入社員 #プログラマー - YouTube youtube.com 「会社を辞めたくなりました」 「家に帰りたいです」 と…

先輩社員さんへお願い 新入社員初日・初回のお昼 初回の入り・つかみは重要?だと思います

初日、慣れない場所で、とても不安な新入社員さん 先輩社員さんへお願い 新入社員初日・初回のお昼 初回の入り・つかみは重要?だと思います #shorts #新入社員 #初出勤 #昼飯 #一人ぼっち #だめ絶対 - YouTube youtube.comお昼連れて行ってあげてね。 ※お昼…

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

GetVoices("Gender=Male;Language=409")(0)と Gender=Maleで男性声 Language=409で英語US を指定しただけのコードなんですが、、、 環境によっては男性声の追加が必要です。 そんなお話です。youtu.be https://youtu.be/3E1H-c46DZA 目次 00:00 1.やりたいこ…

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

パワーポイントのVBAで音声読み上げを英語で行うには? 流暢な英語発音で読み上げたい時 など、テストしてみました。下記のメッセージをいただく。 >パワポVBAで音声読み上げ&字幕を使用させて頂いています。 >大変活躍しており、感謝申し上げます。 >本…

Excel AとBの組み合わせ全てを展開 PowerQueryを使用して作成する方法 カスタム列追加 テーブル結合 などを説明

エクセルでA,Bデータの組み合わせを全て取得したい時、どうする? Excel PowerQuery初心者の操作方法・作成方法の動画です。 二つの表を組み合わせて結果を全て取得、固定のカスタム列を追加して作成してみました。youtu.be https://youtu.be/0B3aSCOKd2I 目…

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

単純にシェイプの Shape.Leftと.Topを取得してシートに書き出す。 次に、逆のシートの値をパワポのShape.Leftと.Topにセットして、 移動っぽく処理しただけです。 大量テキストや図形の移動処理のヒントとなれば幸いです。 youtu.be https://youtu.be/zYczLG…

Ken3 ホームページ 目次

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

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



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