(license)みなさん、こんにちは!タカハシ(@ntakahashi0505)です。VBAで選択している部分のフォントを変更するマクロを作成しています。VBAで選択している部分のフォントを変更するマクロの作り方についてお伝えしています。今回は、これまでのマクロをまとめて、選択した部分を判別してそのフォントを変更するマクロを紹介します。tonari-it.com2018.10.05選択している部分を判別して、そのフォントを変更するマクロを作成しました。...てか、もう完成じゃん。いう感じなのですが、実はちょっとその操作性にまだ課題がありました。マクロを実行するの、面倒なんですもん。いうことで、今回はそれを解決していきます。VBAでフォームボタンからマクロを実行する方法をお伝えします。VBAで選択箇所を操作する前回までのおさらいでは、前回までで作成したマクロを紹介します。コチラがメインのマクロですね。Case文で分岐して、各状態に応じて必要な処理を行います。シェイプのコレクションを渡して、ループを回してくれるのが、以下プロシージャです。Subそして、最終的に各シェイプのFontオブジェクトを渡して、その設定をするのが以下のプロシージャです。Subこのマクロを実行すると、その選択状態に応じて、スライド、シェイプ、テキストのフォントを変更してくれます。選択箇所のフォントを変更()」を、リボンの「マクロ」からショートカットキーに設定すればOK!...と思うのですが、以下に示すとおり、PowerPointのリボンで「開発」→「マクロ」でマクロダイアログを開いても、「オプション」がありません。PowerPointではマクロをショートカットキーに登録する機能がデフォルトではないのです。エクセルであれば、以下のように「オプション」から「マクロオプション」でショートカットキーにマクロを割り当てられるんですが...Wordでもできますよね。VBAで便利な文字入力をするマクロの作り方シリーズ。VBAで作ったマクロをショートカットキーに登録する方法をお伝えします!tonari-it.com2017.07.07いろいろと調べてみると、いろいろとやればPowerPointでもショートカットキーにマクロを設定できそうなのですが、ノンプログラマーには少し難しそう...ということで、フォームのコマンドボタンでマクロの実行を実現することを目指してみようと思います。「フォント変更」ボタンをクリックこれで、実行できるというものです。その方法を見ていきましょう。ユーザーフォームの挿入まず、VBEのメニューから「挿入」→「ユーザーフォーム」で、新規のユーザーフォームを挿入します。すると、以下のような画面になります。この例では、「UserForm1」というオブジェクト名のユーザーフォームが追加されました。このユーザーフォーム上に要素(コントロールといいます)を配置したり、プロパティの設定ができるようになります。ユーザーフォームの設定をするでは、まずこのユーザーフォームのタイトル表示となるキャプションと、サイズを変更しましょう。左下の「プロパティ」ウィンドウには、オブジェクト「UserForm1」のプロパティが一覧されています。このウィンドウを使って、各プロパティを直接編集できるんですね。フォームのタイトルと表示される「Caption」プロパティを「便利ツール」に変更をします。今回設置するボタンは一つだけなので、今のままではフォームが大きすぎる...ということで、右下の□ポッチをつかんでドラッグしてサイズをいい感じに変更しておきます。ユーザーフォームにコマンドボタンを配置する続いて、このフォーム上にクリックできるコマンドボタンを設置していきましょう。「ツールボックス」ダイアログには、配置できるコントロールのアイコンが並んでいまして、その中の「コマンドボタン」をクリックします。その上で、フォーム上でドラッグをすると、そのサイズにコマンドボタンを設置することができます。コマンドボタンの設定をする次に、設置したコマンドボタンの設定をしていきます。コマンドボタンをクリックすると、プロパティウィンドウはそのコマンドボタンのプロパティ一覧に切り替わります。表示名である「Caption」を「フォント変更」に設定、次に「Font」の「...」をクリックしてフォントダイアログを開いてフォントの設定をします。UI」にして、サイズを18に設定して「OK」としました。これで、ユーザーフォームとコマンドボタンの設置が完了です。コマンドボタンのクリックで実行するマクロを記述する次に、コマンドボタンのクリックで実行するマクロを書いていきましょう。ユーザーフォームのコマンドボタンをダブルクリックすると、コードウィンドウが開きUserForm1にコードを書くことができるようになります。以下のように表示されているはずです。Subこれは、「CommandButton1」をクリックしたイベント時に動作するプロシージャです。前回までに作成した「選択箇所のフォントを変更」マクロを実行させたいので、以下のようにCallステートメントで呼び出すようにしてあげましょう。Subフォームをモードレスで表示するまた、このユーザーフォームを開くためのプロシージャが必要ですので、標準モジュールのほうに以下のプロシージャを追加します。SubShowメソッドの引数として「vbModeless」を設定すると、「モードレス」でユーザーフォームを開いてくれます。モードレスというのは、フォームが表示されている状態でも、プレゼンテーションの操作ができるようにするというモードです。これを設定しないと「モーダル」で表示されますが、この場合はフォームを閉じないとプレゼンテーションの操作ができないのです。ユーザーフォームのコマンドボタンからマクロを実行するでは、テストをしてみましょう。「フォーム表示」を実行してみると、プレゼンターション上にフォームが表示されます。何かしらかを選択して、「フォント変更」ボタンをクリックします。すると、以下のように選択している部分のフォントの変更が確認できました。VBAでフォームボタンからマクロを実行する方法をお伝えしました。これで、常に表示されているボタンをクリックするだけで、選択している部分のフォント変更ができるようになりました。次回は、ユーザーフォームの表示のマクロの実行をリボンから行えるようにしていきます。VBAで選択箇所を操作するPowerPointでプレゼンテーションを作っている際に、「選択している部分のフォントを好きに変えたい!」ということありますよね。そのニーズに応えるマクロの作り方をシリーズでお伝えしていきます。プランノーツ代表、コミュニティ「ノンプロ研」主宰。ITで日本の『働く』の価値を上げる!」をテーマに、VBA&GASの開発、講師、執筆などをしております。→詳しいプロフィールはコチラ★ご依頼・ご相談はお気軽にどうぞ!→お問い合わせはコチラ★フォロー頂ければ嬉しいです。「コミュニティ+講座」形式で継続性&教え合える環境も提供。!ノンプログラマーがプログラミングスキルを身に着ける支援ををするコミュニティ。セミナー・もくもく会・Facebookグループのサポートで「自らで学び続ける力をつける」支援、「教え合うことで学びの価値を上げる」場の提供をしています。関連記事Excel・VBA活用術エクセルVBAでPowerPointのプレゼンテーションを開く方法・スライドを取得する方法エクセルVBAでPowerPointを操作する方法をシリーズでお伝えしています。今回は特定のPowerPointプレゼンテーションファイルを開くプログラムおよびスライドを取得するプログラムです。2016.08.25Excel・VBA活用術Word、Excel、PowerPointのデフォルトフォントを変更する方法Office2016からデフォルトフォントになった「游ゴシック」が非常に見づらい...ということでWord、Excel、PowerPointのデフォルトフォントをそれぞれ変更する方法をお伝えしています。VBAで選択したオブジェクトについてフォントを変更するマクロの作り方を紹介していきます。今回は、最初の一歩としてActiveWindowプロパティでアクティブなウィンドウを取得する方法です。VBAの入門シリーズをお伝えしています。Eachループを使って、コレクション内のShapeオブジェクトを取得する方法です。VBAで選択した部分のフォントを変更するマクロの作り方をお伝えしています。今回は、選択しているテキスト範囲の取得方法、およびフォントを変更するマクロの作り方について紹介していきます。VBA初心者向けに、プレゼンテーションの全ての描画オブジェクトのフォントを変更するマクロをお伝えしています。Each文とFor文のループの作り方、またその使い分けについてです。「コミュニティ+講座」形式で継続性&教え合える環境も提供。詳細・お申込はこちら隣ITを応援する当ブログを「応援したい!」「役に立ったよ!」というお気持ちを、コチラからお支払いただくことができます。日々更新の活力倍増いたします。※PayPalアカウントが必要です。※金額は変更可能です。Platform23HTML・CSS32iPhone・アプリ29Monaca・スマホアプリ開発7PC全般・Windows86PowerPoint・VBA28Python87RPA1VBScript15Vue.js・JavaScript13WEBサービス・クラウド68WordPress・ブログ88Word・VBA42コミュニティ・イベント109セミナーのお知らせ11チャットワーク72データ分析・アクセス解析40仕事・生産性・働き方73動画配信8商業出版21起業・フリーランス72電子書籍・Kindle3運営会社プランノーツは"IT×働き方改革"をお手伝いする会社です。「コミュニティ+講座」形式で継続性&教え合える環境も提供。詳細・お申込はこちら隣ITを応援する当ブログを「応援したい!」「役に立ったよ!」というお気持ちを、コチラからお支払いただくことができます。日々更新の活力倍増いたします。※PayPalアカウントが必要です。※金額は変更可能です。Platform23HTML・CSS32iPhone・アプリ29Monaca・スマホアプリ開発7PC全般・Windows86PowerPoint・VBA28Python87RPA1VBScript15Vue.js・JavaScript13WEBサービス・クラウド68WordPress・ブログ88Word・VBA42コミュニティ・イベント109セミナーのお知らせ11チャットワーク72データ分析・アクセス解析40仕事・生産性・働き方73動画配信8商業出版21起業・フリーランス72電子書籍・Kindle3運営会社プランノーツは"IT×働き方改革"をお手伝いする会社です。Scriptが「V8ランタイム」をサポート!モダンなECMAScript構文が使えるようになった2020.02.072020.02.08GASでコピーしたGoogleスライドのプレゼンテーションを取得する方法2020.02.052020.02.05Facebookページいつも隣にitのお仕事タイトルとURLをコピーしました。