【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で**「複数スライドをまとめて掴んでコピーする」**方法と、それを応用して**「三択クイズ」を自動生成す…

…的に矢印モードへ戻すVBAマクロを紹介します。 自分の解説動画をAIで作成した記事です 解決策のソースコード（標準モジュール） まずは結論のコードです。以下のコードを標準モジュールに貼り付けてください。 Option Explicit ' 矢印カーソルに戻すマクロ ' 動作設定の[マウスの通過]に割り当てて使用します Sub 矢印に戻す() ' ショートカットキー Ctrl + A (矢印モードへ戻す) を送信 SendKeys "^a" End Sub ' (参考) インク…

…数値を1秒で抜き出すVBAマクロ【リンク切れ救済】 「リンクされたファイルが見つかりません」PowerPointでグラフを編集しようとした瞬間、この無慈悲なエラーメッセージに血の気が引いた経験はありませんか？ 元データのExcelファイルを削除してしまったり、サーバー移行でパスが変わってしまったり…。残されたのは、画像として張り付いたグラフだけ。 「まさか、目視でグラフの数字を拾ってExcelに入力し直し…？」''諦めないでください。その「単純作業」、VBAで自動化できます。…

【VBA】カタカナ英語を卒業！たった1行で「ネイティブ発音」に変える魔法のコード VBAの読み上げ機能（SAPI.SpVoice）を使っていて、「英語の発音が日本人的なカタカナすぎて、全然格好良くない…」とガッカリしたことはありませんか？実はこれ、バグでも仕様でもなく、単に''「英語専用のエンジン」を呼び出していないだけ''なんです。 たった1行、魔法のコードを書き足すだけで、あなたのExcelやPowerPointが流暢な英語を話し始めます。 AIがブログを作成しました 【…

Access VBA データの重複登録を防ぐ！DCount関数とBeforeUpdate（更新前処理）の実装方法 Accessでフォーム入力を作っていると必ず直面するのが、''「データの重複登録をどう防ぐか？」''という問題です。 今回は、DCount関数を使って件数を数え、BeforeUpdateイベントで保存を阻止する、という一連の流れを解説します。さらに、単に重複を弾くだけでなく、''「マスターに存在しないコード」のチェック''や、''「別フォームから値を代入した時にイ…

…owerPoint VBA】全スライドの動画を「自動再生＆ループ」に一括設定するマクロ PowerPointで大量の動画をスライドに貼った後、一つずつ「再生ボタンを押さずに自動で開始」「終わったらループ再生」と設定していくのは、おじさんには正直キツイ作業ですよね。「ChatGPTにコードを書いてもらったけど、なぜか自動再生にならない！」という知恵袋の質問をきっかけに、確実に動くコードをデバッグしてみました。同じ悩みを持つ方の備忘録になれば幸いです。 動画での解説はこちら [0…

…owerPoint VBA】大量の図形に一括設定！クリックで消えるパネルやクイズを自動作成する方法 パワーポイントで「クリックした図形が消える」という設定を大量の図形に行うとき、1つずつ手作業で設定して発狂しそうになったことはありませんか？ 今回は、VBA（マクロ）を使って、クリックした図形がフェードアウトする「終了動作」を一括で自動設定する方法を備忘録としてまとめます。[00:00](https://www.youtube.com/watch?v=9PNq6QRLtZ0&t…

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

…イン）の選択期間を、VBAでセルに自動転記できます！】「集計レポートのタイトルに、スライサーで選んだ期間を手入力している…」 そんな手間をゼロにするマクロの書き方を解説しました。ソースコードを冒頭で先に紹介する ```vba Private Sub Worksheet_PivotTableUpdate(ByVal Target As PivotTable) Debug.Print "Worksheet_PivotTableUpdate", Now() Debug.Print …

…行結果。ここが現代のVBAユーザーが直面する「罠」です。3. 【検証結果】他の漢字（トオル）でも同様の結果に タイムライン： 02:20 https://www.youtube.com/watch?v=JoidvQb2BIE&t=140 内容： 他の多読漢字でもテスト。関数自体の限界を証明しています。4. 【正直にお伝えします：誠実なポイント】 ・この動画は「解決策の提示」ではなく、OSによる「不可解な仕様変更の報告」です。 ・「解決できない」という事実を知ることで、無駄な調…

…18年のライブ配信アーカイブです。 ・現代のベストプラクティスは冒頭に記載した `EnableEvents` を使う方法です。 ・動画内の方法は「ロジックでの回避」ですが、複雑な処理になると管理が難しくなる場合があります。▼ 皆さんも「VBAでExcelが固まった！」という経験はありますか？ 「このコードで直った！」「ここが分からなかった」など、コメントいただけると嬉しいです。 質問も大歓迎です！#ExcelVBA #Worksheet_Change #無限ループ #デバッグ

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

…outube.com/watch?v=VUw8a-xW55w&t=2067 内容： 「計算結果 ＋ 文字」を自動生成して流し込むテクニック。5. 【正直にお伝えします：注意点】 ・複雑な書式（一部だけ色を変える等）は上書き時に消える可能性があります。 ・オブジェクト名の不一致によるエラー対処法は 09:28 をチェック！▼ 動画をチェックして、あなたの業務を自動化しましょう！#ExcelVBA #PowerPoint自動化 #時短術 #コピペ卒業www.youtube.com

…とで作成できます。 VBAコードの解説 スライサーの変更のタイミングを取得する方法 シートのイベントに PivotTableUpdate という面白そうなイベントがあるので、ここからテストを開始します。 Private Sub Worksheet_PivotTableUpdate(ByVal Target As PivotTable) Debug.Print "Worksheet_PivotTableUpdate", Now() Debug.Print Target.Name…

…owerPoint VBAで複数スライドの書式を一括変更する方法 PowerPointで資料を作成する際、複数のスライドに同じ書式を設定したい場面はよくありますよね。しかし、手作業で一つずつ書式をコピー＆ペーストしていくのは、非常に面倒で時間がかかります。 そこで今回は、PowerPoint VBAを使って、この面倒な書式設定を自動化する方法を紹介します！ Shape.PickUp メソッドと Shape.Apply メソッドを組み合わせることで、複数のスライドにある同じ位置…

…owerPoint VBAでOLE埋め込みWordにルビを振る方法 概要 PowerPointに埋め込まれたWord文書にルビを振るには、PowerPointとWordを連携させる必要があります。 このVBAマクロは、ExcelからPowerPointを操作し、スライド内のOLE型のWordオブジェクトにルビを振る処理を行います。 処理の流れは以下の通りです。 起動済みのPowerPointを取得 PowerPoint内のスライドとシェイプをループ処理 OLE型のWordオブ…

…の表示を選択すると、VBAのコードエディタが表示されます。 コードの内容については動画では詳しく説明されていませんが、ListViewにドラッグアンドドロップされたファイル名が取得できるように記述するようです。タイミングの確認と意図的なミス (9:02 - 10:22) このパートは、タイトルと説明が一致していないようです。動画の内容を確認すると、コードの記述ミスを意図的に仕込み、ドラッグアンドドロップしてもファイル名が取得できない状態にするようです。ドラッグアンドドロップイ…

…jp/office/vba/api/excel.chart(object) よりChart.CopyPicture おっコレかな？と思ったが、これは、クリップボードだった。※将来のメモChart.Export メソッド (Excel) https://learn.microsoft.com/ja-jp/office/vba/api/excel.chart.export 式。エクスポート (FileName、 FilterName、 Interactive)例 次の使用例は、グ…

…x "処理終了、画像を確認してください" End Sub 解説位置: https://www.youtube.com/watch?v=RD5ovhJncsY&t=1464パワーポイント リンク切れグラフの値を取り出す PowerPoint マクロ VBA https://www.youtube.com/playlist?list=PL8vZhsyiiFhuAVnLl4S9tWujchW7rqOUm 再生リスト↑貼り付けたExcelグラフがリンク切れ 値を救いたい 吸い出したい

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

ken3memo.hatenablog.comhttps://youtu.be/jP0O2KlXeLE 目次 00:00 1.処理のタイミングをとりたい 00:32 1.2 標準モジュールにOnSlideShowPageChange 03:20 1.4 ん？一回目にコードが走らない？なんだこれ？ 05:55 2.事前準備で名前を付ける 08:12 3.1 1ページ目でランダムの数値をセットする 11:37 3.2 スライド2ページ目に移動したら、1ページ目の値をセットする 1…

…PowerPointVBA #マクロ記録 #Shapes #AddMediaObject #デバッグ .AddMediaObject は 2013で廃止され、 .AddMediaObject2 を使用する感じです。 Sub Macro4() ' ' マクロ記録日: 2022/5/18 ユーザー名: Ken3 O ' ActiveWindow.Selection.SlideRange.Shapes.AddMediaObject(FileName:="G:\0-新規プロジェクト.…

…PowerPointVBA #マクロ記録 #PageSetup #デバッグ Sub Macro3() ' ' マクロ記録日: 2022/5/18 ユーザー名: Ken3 O ' With ActivePresentation.PageSetup .SlideSize = ppSlideSizeOnScreen .FirstSlideNumber = 1 .SlideOrientation = msoOrientationVertical .NotesOrientation =…

…PowerPointVBA #マクロ記録 #Presentations #Add #デバッグ Sub Macro2() ' ' マクロ記録日: 2022/5/18 ユーザー名: Ken3 O ' Presentations.Add WithWindow:=msoTrue ActiveWindow.View.GotoSlide Index:=ActivePresentation.Slides.Add(Index:=1, Layout:=ppLayoutTitle).SlideI…

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

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

ken3memo.hatenablog.com ↑で使用する、メニューの名前がわからないとき、、右クリック メニューへ マクロを追加したい時、 どのメニューか？調べる時に使ってみてください。現在の設定をExcelシートへ書き出してみました。 Sub CommandBarの内容をセルに書き出す() Dim n As Integer Dim y As Integer Dim x As Integer y = 2 For n = 1 To CommandBars.Count 'いつ…

…docs/word-vba-selecting-start-documents.html から引用 ActiveDocument.Bookmarks("\StartOfDoc").Select '文字列を探す、ターゲット位置決め Selection.Find.Execute FindText:="バグ内容", Forward:=True '見つけた↑下の行に移動 ↑でFindTextが見つからなかった時の処理が入ってないや n = Selection.Move(Unit:=w…

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