【Excel VBA】PowerPointへの自動転記で「書式」が消える問題を解決！.Textプロパティの活用術【ソースコード公開】 毎月のレポート作成で、Excelの数値をPowerPointにコピペする作業、まだ手動でやっていますか？ 「63箇所」もの転記作業も、VBAを使えば''たった1秒''で終わります。しかし、普通に転記すると「1,000円」が「1000」になったり、「10%」が「0.1」になったりと、''Excel上の「見た目（表示形式）」が消えてしまう問題''に…

Excel VBAでパワポの「2枚1組」スライドを一括自動作成！複数枚の雛形を連続コピーする技 「問題スライド」と「回答スライド」のように、''2枚で1セットになっているスライド''を、Excelのリストから大量生産したい。 そんな時、1枚ずつコピーしてペーストして...とやっていると、スライドの順番が崩れたり、処理が複雑になりがちです。今回は、PowerPoint VBAで**「複数スライドをまとめて掴んでコピーする」**方法と、それを応用して**「三択クイズ」を自動生成す…

…せんか？ 元データのExcelファイルを削除してしまったり、サーバー移行でパスが変わってしまったり…。残されたのは、画像として張り付いたグラフだけ。 「まさか、目視でグラフの数字を拾ってExcelに入力し直し…？」''諦めないでください。その「単純作業」、VBAで自動化できます。''今回は、リンク切れで編集不能になったPowerPointのグラフから、内部に残っている数値データを吸い出してExcelに復元する救済マクロを紹介します。 AIでブログをまとめました 【結論】コピペ…

…足すだけで、あなたのExcelやPowerPointが流暢な英語を話し始めます。 AIがブログを作成しました 【結論】コピペでOK！ネイティブ発音にするソースコード まずは結論から。以下のコードを標準モジュールに貼り付けてください。ポイントは ''Language=409'' という指定です。 'Windows10 / Microsoft 365 環境で動作確認 Sub NativeEnglishSpeak_Test() Dim objSAPI As Object Set o…

…ワポVBA】埋め込みExcelを一括保存！OLEオブジェクトを吸い出す方法 パワーポイントの資料の中に埋め込まれたExcelデータ、これを取り出すのって意外と面倒ですよね。「拡張子を .zip に変えて解凍すれば中身が見える」という裏技もありますが、一部の表が ''oleObject.bin'' という謎のファイルになってしまい、手が出せなくなることも…。 AIを使い、過去動画を備忘録にまとめてもらった今回は、そんな「吸い出せないOLEオブジェクト」をVBAを使って自動でファ…

…Slicer As Excel.SlicerCache Set oSlicer = Target.Slicers(n).SlicerCache '=Caption = "日付"のスライサーを代入 '日付の範囲なので Debug.Print "|", "TimelineState.StartDate=", oSlicer.TimelineState.StartDate Debug.Print "|", "TimelineState.EndDate=", oSlicer.Time…

…体の限界を証明しています。4. 【正直にお伝えします：誠実なポイント】 ・この動画は「解決策の提示」ではなく、OSによる「不可解な仕様変更の報告」です。 ・「解決できない」という事実を知ることで、無駄な調査時間を削減できます。▼ 皆さんの環境で「OSを上げたらマクロが動かなくなった…」という経験はありますか？ もし他の関数でも怪しい挙動があれば、ぜひコメント欄で教えてください。#ExcelVBA #GetPhonetic #ふりがな #Windows10 #プログラミング検証

…す。 ポイント： 「Excelが点滅して重い…」という時の原因特定に役立つデバッグ手法です。3. 【動画内の解決策】列番号で判定して回避する方法 タイムライン： 07:11 https://youtube.com/live/s2ptuKdbQPo?t=431 内容： 動画内ではEnableEventsを使わず、「書き換える列（E列）以外なら処理する」というロジックで回避しています。 ポイント： シンプルな条件分岐で逃げる、もう一つの考え方として参考になります。4. 【正直にお…

Excel VBA シート内の「全ての表」をPowerPointへ一括貼り付けする！ 「エクセルのシートに表が10個もある…これを一つずつパワポに貼るだけで1日が終わってしまう…」 そんな絶望を感じている事務職やエンジニアの方へ。今回は、Excel VBAを使って''「シート内の全ての表を自動で探し出し、PowerPointの新規スライドへ1枚ずつ貼り付ける」''という魔法のようなツール作成に挑戦しました。 この記事で解決できること エクセルシート上のバラバラな位置にある「複…

Excelのリストからパワポの指定した場所へ、=SUMで計算した数値を表示形式をそのままで一気に流し込む「マクロ」を紹介します。 'ソースコード: 'B2に入力されたPowerPointファイルを開き '先頭行A5のデータから 'A列:指定ページ 内の B列:オブジェクト に C列:文字列をセットする Sub パワポに文字列をセットする20230912() 'PowerPointアプリの起動 Dim ppApp As Object 'PowerPoint.Applicatio…

…先に見せる 質問: Excelのピボットテーブルでタイムラインを使用してフィルターをかけています。タイムラインで選択した期間を別セルに表示することは可能でしょうか？可能であれば方法を教えてください。 回答: シートにマクロを記載できるなら可能です。B1に開始 StartDate、B2に終了 EndDate をセットするマクロを解説します。 https://www.youtube.com/live/GTgvCh9GJg4 www.youtube.com テスト環境の準備 明細デ…

…このVBAマクロは、ExcelからPowerPointを操作し、スライド内のOLE型のWordオブジェクトにルビを振る処理を行います。 処理の流れは以下の通りです。 起動済みのPowerPointを取得 PowerPoint内のスライドとシェイプをループ処理 OLE型のWordオブジェクトを判別 Wordアプリケーションオブジェクトを取得 Word文書の全選択 ルビダイアログを表示・ルビを振る ソースコード 'Excelから開かれている既存のPowerPointを捕まえて '…

ListViewにファイルをドロップして、A列へ A列をクリア後、受け取ったファイル名を書き込む ソースコード: Private Sub ListView1_OLEDragDrop(Data As MSComctlLib.DataObject, Effect As Long, Button As Integer, Shift As Integer, x As Single, y As Single) Dim sFileName Columns("A:A").ClearCont…

…jChart As Excel.Chart を探り、 Chart.Export メソッドを発見するDim objChart As Excel.Chart を探ると https://learn.microsoft.com/ja-jp/office/vba/api/excel.chart(object) よりChart.CopyPicture おっコレかな？と思ったが、これは、クリップボードだった。※将来のメモChart.Export メソッド (Excel) https://l…

…ワポのシェイプ情報をexcelシートへ書き出す 'ex:新規ブックを追加して、pp:スライドの情報をex:シート単位で貼り付ける '2024/04/04 シェイプでHasChart = True だったら、グラフの情報を書きだす Const 基準セル = "B2" Sub test20240404_01ppスライドをexシートへグラフ情報付きで書き出す() Dim ppApp As Object 'As PowerPoint.Application Set ppApp = N…

…outube.comExcel VBA で PowerPointのタイトルテキストを取得したい Shapes から テキストを取り出す ken3memo.hatenablog.com だと、すべて、取得してしまうので、 現在処理中のスライドのみ、データを落とすように変更する。蛇足2.Excelでアクティブスライドのppオブジェクトに名前を付ける※名前の変更 蛇足2.パワポのアクティブスライドのシェイプ名.Nameに値をセットして変更する'起動済みのパワーポイント スライド .…

…bs で マクロ付きExcelファイル .xlsm を開き、マクロを実行してみます。 タイトル画像1.簡単なVBSの説明 Set oApp = Nothing '1.1 Excelを起動 WScript.Sleep 1000 Set oApp = CreateObject("Excel.Application") oApp.Visible = True '可視にする oApp.UserControl = True '1.2 ファイルを開く sFileName = "d:\JR…

…uSw?t=653#ExcelVBA #PowerPointVBA #マクロ #自動転記 #デバッグExcelからパワポにデータをセットしてみました。 Excelのソース ※パワポを開いた状態でテストしてみてください Option Explicit Sub Excelから起動済みのパワポにデータセット20220425() '起動済みのパワポを捕まえる Dim ppApp As Object Set ppApp = Nothing On Error Resume Next 'エ…

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

…ださい。現在の設定をExcelシートへ書き出してみました。 Sub CommandBarの内容をセルに書き出す() Dim n As Integer Dim y As Integer Dim x As Integer y = 2 For n = 1 To CommandBars.Count 'いつものように.Count分ループ Cells(y, "A") = CommandBars(n).Name '名前が付いてます CommandBars("名前")で使えます Cells(…

…ordの範囲をして、excelのoffsetのようなことが出来たらいいのですが.... ' https://youtu.be/rtdwyl2Bbic?t=974 ← word知らないおっさんが探ってみました '段落から探ると良いのでは？ '検索キーワード VBA Word 段落 など Sub test() Dim n As Integer '全ての段落をテスト表示 For n = 1 To ActiveDocument.Paragraphs.Count Debug.Print…

Excel VBA UsedRange で使用範囲を取得して Rows.Count で行数 最終行は Cells(objRANGE.Rows.Count, 1).Row なんて感じで遠回りで取得してみたDim objRANGE As Range Set objRANGE = ActiveSheet.UsedRange 'セルの使用範囲を取得VBA Excel 表 範囲 で検索すると 下記のわかりやすいページがヒットしますセル範囲の取得 セル範囲の取得 http://offic…

Excel VBA CurrentRegion で含まれている範囲が取得可能です ショートカットキー操作のShift+Ctrl+:(コロン)の範囲をVBAで取得できますDim objRANGE As Range '範囲を入れるRange型 Set objRANGE = ActiveCell.CurrentRegion 'アクティブセルを含む範囲を取得VBA Excel 表 範囲 で検索すると 下記のわかりやすいページがヒットしますセル範囲の取得 セル範囲の取得 http://…

前回のライブで、テンパって マクロ記録でプロパティを調べるといいですよ・・・ と 言って、セルを部分的に太字にする、 .FontStyle = "太字"を疑問に感じながら、 紹介したけど、 やはり .Bold=Trueで太字にできました。テスト動画: https://www.youtube.com/watch?v=_SP__GgVwiY www.youtube.comいつものことながら、前置きが長い。1.まずは単純にセルに対して.Font.Bold = True Range(…

例題として Excelのデータ最終行までを処理するコードをVBSで実行してみます下記、いつもの解説動画です※蛇足付きですがよろしく。 【VBS】VBSでExcelの定数xlDownなどを使う方法 例.End(xlDown).Rowで最終行【三流君】 - YouTube www.youtube.com最終行までループさせるコードでよく見かけるのがRange("A1").End(xlDown).Row などで、 データの入ってる最終行を求め、 ループで回す方法です。 Sub te…

…inimized 'Excelを最小化する Dim objIE As Object 'ＩＥオブジェクト参照用 Set objIE = CreateObject("InternetExplorer.application") 'IEのオブジェクトを作る objIE.Top = 0 objIE.Left = 0 objIE.Visible = True '見えるようにする(お約束) Call SetForegroundWindow(objIE.hwnd) '前面にIEを表示 Di…

単体で動作確認ができたので、 結合処理を行ってみます下記、いつもの酔っ払い解説動画です。 https://youtu.be/Ymk_TSO7dQk youtu.be結合処理中のエラー、不具合 を 面白おかしく説明しようと がんばってみましたが、 うまく料理できませんでした。失敗やエラーのシナリオなど、うまく考えないとなぁ。ただ単体のコードをつなげただけの意味ない動画ですが、 よろしくお願いします。テスト作成したコード Option Explicit Declare Sub S…

はてなブログの記事管理画面 で 条件を入れて検索する前回 ken3code.hatenablog.jp の 続きです。 そんな処理を作成してみたいと思います。 デバック、いきあたりばったりのプログラミングを笑ってください。数行のコードを下記でダラダラと動画解説をしています。 https://www.youtube.com/watch?v=_L2v_i-UJsY www.youtube.com ↑ダメッぷりを笑いながら見てください1.やりたいこと手作業で説明2.VBAで作成して…

IEで表示されている編集画面の中から、 本文 テキストエリア を探して、内容を置き換える。そんな処理を探ってみたいと思います。デバッグ風景の動画 https://www.youtube.com/watch?v=qdSxWCeNa2w www.youtube.com1.表示されているIEを捕まえる URLに /edit が入っているかを条件にIEを探す2.ソースの中から、本文・テキストエリアを探る <textarea id="body" class="editor-body-t…

…からADOを使用してExcel(*.xls)に接続して、<br> [Sheet1$]でシートにアクセスして、レコードセットを作成後、<br> <strong>rs.GetRows</strong>でレコードセットから配列を作成する<br> 読み込むシートのイメージは、<br> <img src="http://www.ken3.org/backno/gif/asp084-01.gif"><br> です。 [<a Href="test084.xls" TARGET="_blan…