三流君 ken3のmemo置き場

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

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

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

PowerPoint, VBA の検索結果:

質問 パワポ リンク切れグラフの値を取り出す方法を詳しく教えてください グラフの値 系列情報 Series Values XValuesをエクセルのSheetへ書き出す

…のコードを宣伝紹介 PowerPointのシェイプ情報をExcelへ書き出す 13:43 2.2 昨年23年から積み残しのコード グラフの情報 Values,XValuesを使用します 2.3 今回作成した パワポのグラフから値をExcelシートへ書き込む テストコード 14:35 2.3.1 Shape.HasChart で シェイプがグラフか?判断する 16:04 2.3.2 系列の数 と 名前 17:51 2.3.3 Series.XValuesを表示 19:02 2.…

PowerPointにExcelから テキスト変更とシェイプの名前変更をVBAで行う 不具合・バグ付きですが参考となれば

… 3.おわりの挨拶#PowerPointVBA #ExcelVBA #Shape #Text #マクロ #パワーポイント #エクセル 1.成果物を見せる1.1 スクショもどきをシートへ落としシェイプの情報を付ける 00:30 https://www.youtube.com/watch?v=-Tof_YBjjLo&t=30アクティブなパワポのスライドをjpgにして、 Excelのシートへ貼り付けました。 隣にシェイプの情報 ID,Name,座標,テキストを書き出し、 矢印を引い…

Excel シェイプの矢印を試作 Shapes AddConnectorで矢印を作成

…た 17:07 3.PowerPointスクショもどきに線を引く 25:14 3.1 スケール調整って何? Const スケール調整 = (480 / 960) 32:25 4.おわりの挨拶 はやく会計して終わらせてよ・・・1.キッカケと実行結果を先に見せる https://www.youtube.com/watch?v=Rnji4U4BI7k ↑実行結果を先に見せる。 手前味噌1:前回のPowerPointの①スクショもどき②シェイプの一覧 ken3memo.hatenab…

Excel VBA Offsetを使用して変更に強いコードを作成する 例題としてPowerPointの情報をシートへ書き込むテスト

例題としてPowerPointの情報をシートへ書き込むVBAのテストコード これをOffset対応↓↓↓してみました。 https://youtu.be/XIBG8T3b2mY?si=B7oHpByqEjXkNy3t&t=868 ↑3/14のプレミアライブで使用したソースコード:ソースをぶっかけて、アレンジ味変して使ってくださいね。 '起動済みの既存 パワーポイントのスライドから 'パワポのシェイプ情報とイメージjpgをexcelシートへ書き出す 'ex:新規ブックを追加して…

パワポ Shapes AddTextboxでテキストボックスを新規追加 応用で作成Excel選択範囲をPowerPointへ1つ1つセット

PowerPointのマクロでテキストボックスを新規作成する Shapes.AddTextboxの単体テストです。 www.youtube.com マクロの実行結果を先に紹介する 1.パワポのマクロで新規スライドにテキストボックスを追加する 2.パワポのマクロで起動済みExcelの選択範囲からテキストを抜き出し、テキストボックスを作成する 3.VBSでExcelの選択範囲を使いPowerPointでテキストボックスを作成するhttps://www.youtube.com/li…

PowerPointの情報 位置とサイズを取得 ExcelからPowerPointのシェイプ位置とサイズを書き換える

…bject 'As PowerPoint.Application Set ppApp = Nothing 'エラーチェックのため初期化 On Error Resume Next '取得エラー時に次へ行く Set ppApp = GetObject(, "PowerPoint.Application") On Error GoTo 0 'エラーを元に戻す※これを忘れると、デバッグ時にハマるから注意 If ppApp Is Nothing Then MsgBox "パワポを取得で…

PowerPointのシェイプ情報をExcelへ書き出す ExcelからPowerPointのシェイプをID指定で書き換える

やりたいこと 1.PowerPointからExcelへシェイプの一覧を書き出す(今回はExcelから取りに行くけど) 2.ユーザーが手動操作でシェイプの名前を変更する 3.変更した値をExcelからPowerPointへ反映させる、更新するwww.youtube.com https://www.youtube.com/watch?v=o0PVL1v27Ts 目次 00:00 やりたいこと あいさつ01:12 1.PowerPointからExcelへシェイプの一覧を書き出す(今…

パワポ アニメーションのTimeLineとMainSequenceを使用してアニメ効果Effectのセッ ト PowerPoint VBA アニメ効果をランダムで追加

…20:25 2.2 PowerPoint.Effect アニメ効果を追加する 設定する 26:39 AddEffectを解説する 27:37 アニメの種類 2.3 EffectId で種類 個別に解説 31:01 シーソーをテスト シーソーはアウト・クリアが無いので注意すること 34:43 2.4 Effect.Timing でタイミングをセット 38:32 デバッグ中にマウスカーソルが消えてパニック 原因はスライドショー デバッグ時注意してね 40:33 マウスクリック時を…

パワポ 1ページ目のテキストや図形を最終ページまで同じ位置にコピペする方法

…oo.co.jp >PowerPointにて、全スライドにアニメーション付きの図形を同じ位置にコピーしたいです。 >1枚1枚するのは非常に手間なので(80枚あるので)、何かいい方法はありませんか。 >スライドマスター以外でお願いしたいです。よろしくお願いいたします。 2.AI Bingに聞いてみたUse PowerPointVBA 1スライド目のシェイプ名"textbox1"をアニメーション付きでコピーして、 2スライドから最終スライドまで、同じ位置にアニメ付きで貼り付ける。…

PowerPoint レーダーチャート 項目ラベルのサイズを変更 RadarAxisLabels Font Size

…ls プロパティ (PowerPoint) https://learn.microsoft.com/ja-jp/office/vba/api/powerpoint.chartgroup.radaraxislabels より 下記、サンプル With .Chart.ChartGroups(1) .HasRadarAxisLabels = True .RadarAxisLabels.Font.ColorIndex = 3 End With を参考にする。あとは、 .RadarAx…

実験動画 表示アウトラインでタイトルが表示されるのでタイトルを指定テキストにしたい パワポ マクロ

…jSlide As PowerPoint.Slide 'スライド Set objSlide = ActivePresentation.Slides(nPAGE) '↑現在のページを変数に '選択されたシェイプをまず変数に保存する※あとで入れ替えるので Dim 交換元Shape As PowerPoint.Shape 'シェイプ Set 交換元Shape = ActiveWindow.Selection.ShapeRange(1) 'タイトルを細工したい※複製作成後、テキストボ…

ExcelからPowerPointへデータセット 休日対応処理にチャレンジ デバッグしてみた

ExcelからPowerPointのテンプレートへデータセットするサンプル処理をデバッグしてみます。 #ExcelVBA #PowerPointVBA #テンプレート #自動セット #マクロデバッグ動画です www.youtube.com https://www.youtube.com/watch?v=mp2Mh_69fhQ前回までの再生リスト↓↓ https://www.youtube.com/watch?v=mjnqMrxk0qM&list=PL8vZhsyiiFhtDY…

ExcelからPowerPointへ グループ化されたパワポのテンプレートに値をセットする デバッグ動画

… 3.ExcelからPowerPointテンプレにデータを流し込む 11:12 3.2 A列の値が変化するまで、データをセットする 11:59 3.3 グループが変わった時の処理 13:22 3.4 明細にExcelデータをセットする 16:17 3.5 改ページのチェック 21:09 3.6 後始末 21:35 再度ポイントを解説1.仕様の説明仕様 A列の値、日付をグループ化のキーにして、 事前に用意されたパワーポイントのテンプレートに値をセットする グループは5行がMAX…

Shapes GroupItems を使用して グループ化したシェイプにデータをセットする PowerPoint VBA

…NR5YrdtDQ#PowerPointVBA #Shape #GroupItem #グループ化 #デバッグ 1.まずは、.Type タイプで判断グループの頭、グループ化したシェイプか? .Type で判断できます。If ppShp.Type = msoGroup Then 'グループ化の判断 みたいな感じで、 .Typeの値がmsoGroupかで判断可能です。2.グループ内のシェイプにたどり着く方法なんて、いってるけど、シンブルで .GroupItems に まとまっていま…

TextRange.Replaceメソッド テキストボックスに標準関数Replace関数で置換した文字をTextに戻すと装飾が外れてしまう

…が消えてしまう。 #PowerPointVBA #TextBox #Replace #デバッグ www.youtube.com https://www.youtube.com/watch?v=VR1V18qbZn8 目次 00:00 1.不具合の再現 TextFrame.TextRange.Text再代入をチェックする 01:55 実行結果を見せて、不具合の説明 03:28 2.TextRange.Replace メソッドがあるので、これを使うテスト 06:44 3.Repl…

Shapes.AddTextboxでテキストボックスを追加 ExcelのA列からG列をPowerPointにセット

…ドを1ページ作成するPowerPointにTextBoxを追加するのは簡単で、 Set ppShape = ppSlide.Shapes.AddTextbox(1, 500, 200, 400, 50) ↑、みたいな感じで、 Shapes.AddTextbox(方向, Left:左上, Top:上位置, Width:幅, Height:高さ) で簡単に追加できました。youtu.be https://youtu.be/Vt2p1WSEFFo 目次 00:00 あいさつ、昔どこ…

エクセルデータからパワポスライドを自動作成 テンプレート修正 差し込みテンプレートの修正手順を説明

…寧に説明してみる #PowerPointVBA #テンプレート #自動作成 キーワード: パワポ,マクロ,エクセル,スライド,自動作成,テンプレート,修正,コードタイトル案: パワポマクロでエクセルデータからスライドを自動作成!テンプレート修正方法も解説 エクセルデータからパワポスライドを自動作成する方法とテンプレート修正のコツ パワポマクロでエクセルデータからスライドを自動作成する裏技!テンプレート修正方法も紹介 www.youtube.com https://www.yo…

パワポ マクロ JPG/PDF出力 Slide Export ファイル名 "pdf" エクセルからパワポのテンプレートへデータセット後 jpgやPDFを作成

…をコードで示す。 #PowerPointVBA #PDF出力 #自動作成 #JPG出力 キーワード: エクセル,パワポ,自動作成,出力,jpg,pdf,修正情報YouTubeのタイトル案を3つ: エクセルからパワポに自動変換!スライドをjpgやpdfで保存する方法 視聴者の質問に答えます!エクセルデータからパワポスライドを作って画像やPDFに出力するコード エクセルとパワポの連携術!スライドの自動作成と出力 www.youtube.com https://www.youtub…

A列の値が変わるまで(グループ単位で)PowerPointのテンプレにセットする 差し込み印刷もどき処 理

…ータを事前に用意したPowerPointひな型テンプレートにセットする。 ↑あっ、勝手に最大5件にして、あとでトラブル発生パターンを作る気満々で・・・ youtu.be https://youtu.be/tprejIA-Q-M 目次とソースコード 00:00 やりたいこと 1.要求仕様:下記の質問をいただく 00:54 2.仕様をまとめる:入力と出力を考える 02:23 3.テンプレートファイルを作成する 03:13 4.1 1日単位で1スライドを作成 10:02 4.2 明…

PowerPoint VBA 箇条書き ParagraphFormat.Bulletプロパティを使ってみた

PowerPoint VBA で 箇条書きを設定したかったので、探ってみました。 ParagraphFormat.Bullet プロパティを探ってみてください。 タイトルyoutu.be https://youtu.be/iLzfaqJvCmY 目次 00:00 実行結果 00:51 0.段落オブジェクトの下 Bulletで箇条書きの設定ができそうです。 01:20 1.選択されたテキストを箇条書きにしてみた 04:49 2.Character = &H2022 を Ascに…

パワポ 書式をコピー後、別ページの同じ位置のシェイプに適応したい Shape PickUpメソッド Applyメソッド PowerPointVBA デバッグ

…ファイルで再テスト#PowerPointVBA #コピペ #デバッグShape.PickUp メソッド (PowerPoint) https://learn.microsoft.com/ja-jp/office/vba/api/powerpoint.shape.pickup 図形の書式をコピーします。 コピーした書式を別の図形に適用するには、 Apply メソッドを使用します。Shape.Apply メソッド (PowerPoint) https://learn.micros…

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

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

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

…jSlide As PowerPoint.Slide 'スライド Set objSlide = ActivePresentation.Slides(nPAGE) '↑現在のページを変数に Dim objShape As PowerPoint.Shape 'シェイプ '100件分保存する、ReDim を使ってよ・・・ Dim shpNAME(100) As String '名前、※同じ名前だと、マズイな・・・ Dim shpX(100) As Double '左上x座標 Dim…

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

PowerPoint Shape.Name を使用して名前を付ける。 Shape.ID をプラス、連番をShape.Nameにセットしたり。 同じ名前が許される不思議???事前準備として、 パワーポイントで設置したオブジェクトに対して、 名前を付ける、名前を付け直す。 そんな処理をマクロで行ってみます。上司・先輩から スライド内の画像をシャッフルするマクロを作るので、 オブジェクト・画像に固有の名前を付けといて? と言われました。指示内容: スライド内の画像の名前を マクロ・…

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

…了・フェードで消す#PowerPointVBA #アニメーション #出して消す #直前の動作と同時 #順番 #モザイク youtu.be https://youtu.be/9PNq6QRLtZ0 目次 00:00 やりたいこと、実行結果を見せます 00:43 TimeLineのMainSequenceとInteractiveSequences違い 04:25 マクロでエフェクト効果のフェードを追加 06:00 フェードをイン(開始)、アウト(終了)を切り替えたいので Effe…

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

…て、 A列に入力したPowerPointファイルを開き、一つにまとめてみました。 実験動画です。コードをアレンジして使ってみてください。 #PowerPointVBA #ExcelVBA youtu.be https://youtu.be/7Uw9u3CbmHY 目次 00:00 0.やりたいこと 00:28 1.簡単な仕様を考えてみます。 01:42 2.単体テスト まずは、A1のファイルを開いてみます 04:36 3.複数スライド1,2ページを新規プレゼンファイルにコピー…

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

…け 00:55 1.PowerPoint から Publisher に Shapeをコピーしてみた 02:38 1.1 確認 失敗を確認する 03:55 2.PowerPoint から Word に Shapeをコピーしてみた 06:14 2.1 手作業 PowerPoint から Word 経由でPublisher0.やりたいこと。 パワポからパブリッシャーへ貼り付け知恵袋の質問で、 detail.chiebukuro.yahoo.co.jp >パワーポイントで作成したデー…

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

PowerPoint VBA マクロを使用して .Saveでファイルを上書き保存後、 .Convert2で別拡張子で保存 (マクロの.pptmをスライドショー.ppsxへ) .Presentations.Openで開き直し .Closeで別拡張子Convertしたファイルを閉じる そんな処理の流れです。 #PowerPointVBA #MS365 #デバッグ youtu.be https://youtu.be/sE0UswvpEIE 目次 00:00 0.やりたいこと 1.実…

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

…jSlide As PowerPoint.Slide 'スライド Set objSlide = ActivePresentation.Slides(nPAGE) '↑現在のページを変数に Dim objShape As PowerPoint.Shape 'シェイプ 'テストで選択ページの.Shapesを探る Debug.Print "Id", "Name" For Each objShape In objSlide.Shapes 'スライド内のシェイプ達を一つ一つあさる De…

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

PowerPointのスライドにExcelから貼り付けたグラフ ※リンク切れでデータが編集できない> の表示順を変えたくて、 マクロで Series.PlotOrder = 1を使用したテスト動画 youtu.be https://youtu.be/aSQeb7JyBs4 です。 ※リンク切れグラフの処理で参考となれば幸いです。キッカケは、調べ物のついでに、寄り道。 下記、知恵袋の質問 detail.chiebukuro.yahoo.co.jp >パワーポイントの積み上げ横棒…

Ken3 ホームページ 目次

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

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



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