これまでマクロに関する記事を何度か書きましたが、そもそもどうやってマクロを使うのかという肝心なことを書いていないことに今さら気づきました 笑 この記事では、パワーポイントでvbaの編集を有効にし、マクロを実行するまでの簡単な説明をしたいと思います。 某美大の油絵科を卒業後、大手CG映像プロダクションに入社。 10問終わったら 正答数を返すという動きをしています。, こう書いたマクロを図形の動作に設定すると,oShpという変数にトリガーの図形を取得できます。, 常にループ待機等をしているわけではありません。ボタンを押したら,という動きになります。 ②-3 Excelと違いマクロを書く場所がひとつもないので,とりあえず標準モジュールを挿入する。, これで準備完了です。要素としてはだいたい次の画面になります。ウィンドウの大きさは説明を入れるために変なサイズになってますが,調整してください。 | 日本語もマクロ名に使えますが,そのときは大文字小文字はもちろん関係ありません(゚▽゚*), ③-3 マクロを呼び出してみましょう。パワーポイントのほうに戻って, 前回の【上級者向け】パワーポイントマクロで効率化①では、マクロとはどういうものか?どのように使うのか?ということをかなり嚙み砕いて解説しました。Excelマクロは書籍なども多数出版されており、使いこなしている人を多く見かけます。それに対してPowerPointマクロは需要がないため、書籍の出版がなされておらず、「学びたい!」と思っても手軽に学べるものではありません。また、Excelマクロには備わっている「マクロの記録」という機能もPowerPointマクロにはありません。, ※マクロの記録とは・・・コードを自分で書かなくても、繰り返したい手順を実際に行うだけで手順が記録され、コード化できる機能, 本日は、「PowerPointマクロを使いこなしたい」「コードを自分で書けるようになりたい」と思っている方向けに、前回のサンプルコードを1行ずつ解説していきたいと思います。, まずは前回のサンプルコードのおさらいです。内容は、「ファイル内のすべてのフォントをメイリオに設定する」というコードを紹介しました。コードはこちらです。, Sub フォントをメイリオに変更()Dim sld As Slide, shp As Shape For Each sld In ActivePresentation.Slides  For Each shp In sld.Shapes   If shp.TextFrame2.HasText Then    With shp.TextFrame2.TextRange.font     .NameFarEast = “メイリオ” ‘※要入力 日本語用フォントの設定    End With   End If  Next shp Next sldEnd Sub, 初めて見る人にとっては暗号のように見えますよね。1行ずつ、コードの意味を解説していきます。, これは、この手順をひとかたまりの命令として保存するコードで、いわば「これからフォントをメイリオに変更するマクロを作ります」という宣言です。(プログラミングの世界では「サブルーチン」や「プロシージャ」などといいます)Subはサブルーチンの略ですね。最後の行のEnd Subとセットになっていて、, DimはDemandの略で「宣言する」という意味です。今後何度も使うものをここで宣言しておくと、のちの行でVisual Basic側が「あ、さっき言ってた単語だな」と認識することができます。, Dim 名付けたいオブジェクトの名前① As オブジェクトのカテゴリ名①, 名付けたいオブジェクトの名前② As オブジェクトのカテゴリ名②, SlideというのはPowerPointのスライドのこと、Shapeはテキストボックスを含むPowerPointの図形のことです。PowerPointに入っているスライドをまとめて、「Slideオブジェクト」と呼んだり、図形をまとめて「Shapeオブジェクト」と呼んだりするので覚えていてください。ここでは、「以降のコードでsldという名前のSlideオブジェクトを利用する」「以降すべてshpという名前のShapeオブジェクトを利用する」という宣言になっています。要するに単語が長いので省略したいとか、自分にとってわかりやすい名前で呼びたいということですね。, 3行目 For Each sld In ActivePresentation.Slides, で、「××内にあるすべての○○に対し以下の命令を実行する」のような意味です。Next sldとセットになっていて、, For Each ○○ In ××すべての○○に対し繰り返したい命令Next ○○, 例えば、sldは先ほど名付けたSlideオブジェクトですね。ActivePresentation.Slidesは、「アクティブなプレゼンテーションファイルのスライド群」という意味合いです。つまり、「アクティブなプレゼンテーションのスライド群にあるすべてのスライドに対し以下の命令を実行する」というような意味です。フォント変更を全てのスライドに対し実行したいので、このような書き方になります。, ActivePresentation.Slidesの「.」ってどういう意味?と思っている方がいるかもしれませんが、ここでいう「.」は日本語でいうと「の」「の中の」というような意味で、オブジェクトの階層が一つ下がるときなどに使います。, のように、PowerPointのオブジェクトには階層構造がありますよね。その階層構造の一つ下のオブジェクトを指す場合に「.」を用います。, 3行目と同様ですね。「スライド内の図形すべての図形に対し以下の命令を実行する」です。Next shpとセットになっています。sld.Shapesは、最初に名付けたsld(=スライド)の一つ下の階層のShapes(=図形)という意味です。ここまでで、「すべてのスライドのすべての図形に対して以下を実行する」というコードになっています。, プログラミングっぽくなってきました。If ○○ Thenは有名ですよね。「もし○○だったら以下の命令を実行する」です。End Ifとセットになっています。, shp.TextFrame2.HasTextは、「図形のテキストフレーム内にテキストがあったら」という意味です。TextFrame2の2がついている方が機能が多いので2をつけているのですが、ここでは本筋から外れてしまうので一旦割愛します。, HasTextは、テキストがあるかどうかをTrue(正しい)かFalse(誤り)で返すものです。「もし○○だったら・・・」のところにHasTextが入っているので、「もし”図形のテキストフレーム内にテキストがある”がTrue(正しい)なら・・・」という意味になります。, 6~7行目With shp.TextFrame2.TextRange.font.NameFarEast = “メイリオ”, With ○○で「○○に対し以下の命令を実行する」です。End Withとセットになっています。, 今回は、「図形のテキストフレームのテキスト範囲のフォントの日本語用フォント名をメイリオに設定する」という意味ですね。少し階層が深いのですが、, Shp(図形)>TextFrame2(テキストフレーム)>TextRange(テキスト範囲)>font(フォント)>NameFarEast(日本語用フォント名), という階層になっています。FarEastというのが気になりますが、日本語で「極東」という意味で、「アジア言語のフォント名」くらいに理解していればいいと思います。また、プログラミングの世界では文字列にはダブルクォーテーション””をつけなければいけないので、メイリオは”メイリオ”としています。, = は「代入する」という意味合いです。(厳密には異なりますが理解のために簡易的な表現にしています)つまり、「図形のテキストフレームのテキスト範囲のフォントの日本語用フォント名に”メイリオ”という文字列を代入する」という意味になります。, パワーポイントの資料を作成する際に、時間がかかりすぎてしまう、どうしてもわかりやすい資料が作れないといった悩みはありませんか?, バーチャルプランナーはあらゆるビジネス資料の作成を、企画構成からデザインまでワンストップで代行するサービスです。, お客様の準備が不十分であっても、訪問や電話によるヒアリングを通して情報の整理を主導していきます。, 創業4年で450社以上の資料を作成した実績豊富なプロに、相談してみてはいかがでしょうか?, パワーポイントでイラストを挿入する方法を解説!無料で著作権フリーのイラストが入手できるサイトも紹介.

一種 換気 全熱 メンテナンス 5, テニス ラケット 握り方 子供 4, 麦わら帽子 チクチク 防止 9, Why, Or Why Not 意味 4, Autocad アクティベーション 終了 9, 男友達 家に来る 何もない 4, 確定申告 源泉徴収票 間に合わない 5, マルゲリータ に合う おつまみ 4, Bw V100a 分解 11, Cocoon Seo 弱い 9, 仕事 休む連絡 つかない 6, あつまれどうぶつの森 家具 レジ 41, アイシン精機 安城工場 移転 10, Bmw F01 前期 後期 違い 11, 盛岡中央高校 サッカー部 寮 5, ヒルズ I/dコンフォート 違い 5, Ff14 レベルブースト 召喚士 学者 7, ステンレス 粘着 はがし方 5, しまむら 保冷バッグ ディズニー 5, トヨタファイナンス 限度額 引き下げられた 13, マリオカートツアー 壁 ドン 5, 生活保護費 支給日 2020 札幌 6, War Thunder日本 戦闘機 5, Goose Bumps 和訳 11, ピアス 排除 ロブ 4, トイレ 換気扇 外し方 三菱 12, 大阪府立 大学 2ch 5,