マクロを他のマクロの中で呼び出す場合,マクロ名を書くことがあります。細かい決まりは私も素人なので知りませんが,定数・変数名などについても言えることですが,ここで大文字小文字を混ぜた書き方をしておくと,綴りが正しいかどうかの指標とすることができますので,大文字小文字を自分なりの規則で混ぜていくといいと思います。 function() { これまでマクロに関する記事を何度か書きましたが、そもそもどうやってマクロを使うのかという肝心なことを書いていないことに今さら気づきました 笑 この記事では、パワーポイントでvbaの編集を有効にし、マクロを実行するまでの簡単な説明をしたいと思います。 ブレークポイントのかわりに Stop と入れてあげることでもコードを止めることができます。, chemiphysさんは、はてなブログを使っています。あなたもはてなブログをはじめてみませんか?, Powered by Hatena Blog  End With 早速Visual Basic Editorを見てみましょう。 マクロを継続するには先ほど同様 [F5]を押すか,実行ボタンを押すと次に進みます。 こちらのCGメソッドの記事ではおすすめのマクロとショートカット(アドイン)の作成方法を紹介します!マクロを使うと作業の効率化になるので是非覚えておきましょう!PowerPointおすすめのマクロのまとめ実際に使ってみて、便利だったマクロを紹介いたします。 .hide-if-no-js {  [表示]または[開発]→[マクロ]→HelloWorldを選択して[実行]  (他人のパソコン等で使うとき用に,表示リボンの右端にあることを覚えておきましょう。), ④-1  ブログを報告する. 趣味はブログとMMO(ネトゲ)とサイクリングです。, エクセル/ワードの読み取り専用を設定/解除する方法3つ 読み専で開きたい、開かせたい!, 【Excel】画像や図をまとめて選択できる「オブジェクトの選択」のON/OFF切り替えショートカット, 【Windows】ツールを使わずファイルのタイムスタンプ(更新日時)を変更する方法, Webデザイン初心者がUdemyで勉強して転職したら、会社のホームページを作ることになった話, 【Anime】2020年冬おすすめアニメ「痛いのは嫌なので防御力に極振りしたいと思います。」. こちらのCGメソッドの記事ではおすすめのマクロとショートカット(アドイン)の作成方法を紹介します!マクロを使うと作業の効率化になるので是非覚えておきましょう!, そもそもオフィスのデータはただのZIPデータだったりするので、拡張子をZIPにして解凍してしまいます。, メモ帳を開いてタブメニューの記述を追加し`customUI.xml`という名前で保存, 解凍したパワポデータに_relsというフォルダの中に.relsというデータがあるので、まずコピーをとってからメモ帳で開きます。(そのまま開くと読み取り専用になります), オブジェクトをグリッド線に合わせる設定のオン・オフを切り替えるパワポマクロ:パワーポイントマクロ・PowerPoint VBAの使い方/Presentation・プレゼンテーション, PowerPoint VBAでグリッド線表示を切り替える:パワーポイントマクロ・PowerPoint VBAの使い方, Microsoft PowerPoint 2019(最新 永続版)|カード版|Windows10/mac対応|PC2台, いちばんやさしいPowerPoint VBAの教本 人気講師が教える資料作りに役立つパワポマクロの基本 (「いちばんやさしい教本」シリーズ), ワイヤレスUSB PowerPoint PPTプレゼンターリモートコントロールレーザークリッカーフリップペン, ワイヤレス プレゼンター KOSIN PPTポインター PPTスライド用リモート リモートコントロール ワイヤレスマウス操作 電池給電式 PowerPoint、Keynote、Googleスライド用リモート等対応 (黑), ロジクール ポインター R400t ブラック 赤色レーザー プレゼンテーション R400 国内正規品 2年間メーカー保証, CallProcAddin.ppamとmacrodat.txtを入れてアドイン登録. timeout if ( notice ) Copyright © Virtual Planner All rights reserved.  =  ローカルウィンドウを見ると, StrMsgの値は"Hello! と宣言できるようになりましょう。型はとりあえず後回しでもいい。 五 某美大の油絵科を卒業後、大手CG映像プロダクションに入社。 }, 前回の記事で書いた通り、「Global Microsoft 365 Develo…, 2020年11月9日(月)と10日(火)の二日間、Microsoft 365開発…, Google Analyticsのアクセスデータを元に2020年10月にアクセス…, 下記サイトにある通り、2020年12月31日でAdobe Flash Playe…, Twitterで「標本バカ」なる本が9月30日に発売されることを知ったので、さっ…, 先日の話ですが、Kindleストアでソシムのデザイン書籍がお得な価格で販売されて…, 今年の7月から8月にかけて、三洋堂書店さんの公式Twitterアカウント(@GO…, Google Analyticsのアクセスデータを元に2020年9月にアクセスが…, Teams上で使えるPower Platformの機能が、パブリックプレビューと…, 先日Twitterで @blacklist_ryu さんが下記ツイートをされてい…, Office アドインやリボンのカスタマイズに関する話題を中心に情報発信しています。 ここまでは一度出しておけばずーっと出てくれています。 その後ゲーム業界に転職。 Cell(行,列).Shape.TextFrame.TextRange ・・・とたどっていかないといけないのが難点ですね。, 必要な説明はこのくらいでしょうか。とても短いマクロと少ない部品ですが,多数の問題を同じレイアウトで取り扱えます。, 内容は極めて雑に作っていますが,発展させればなかなかのものが作れるんじゃないかなーと思われます。, chemiphysさんは、はてなブログを使っています。あなたもはてなブログをはじめてみませんか?, Powered by Hatena Blog ブレークポイントを設定していると,標準モジュールでは,そこでマクロが止まるようになります。 といった作業をいちいち手作業で行うのは面倒くさかったので、マクロを組むことにしました。 指定したフォルダ内の画像ファイルを一括挿入するPowerPointマクロ | ファイルからオプションを選びます。 リボンのユーザー設定を選びます。 リボンのユーザー設定のほうの開発にチェックを入れます。 そしてOKをクリックします。これで開発タブの設置は完了です。 ホームに戻ると開発タブができていることが確認できます。 Dim StrMsg as String パワーポイントで作成するスライドは、「4:3」比率の標準サイズと、「16:9」比率のワイドサイズの2つが基本です。 「PowerPoint2013」からは起動して[新しいプレゼンテーション]を選択すると、初期設定では「16:9」で表示 されます。 Time limit is exhausted.  ×  現在は技術系のCGデザイナーをしています。 詳細はこちら。 display: none !important; これと友達になることが大事。より早く友達になれるように,下準備。, わたしのおすすめとしては, コードの最初にOption Explicitと書かれている場合,変数は宣言しないと使えません。  With Application   .DisplayGridLines = Not .DisplayGridLines それぞれのアイコンの上で右クリックすると,[クイックアクセスツールバーに登録]と出るので簡単。, ②Visual Basic Editorを開く。 最初から慣れようとしてもいいかもしれませんが,始めたばっかりの場合はうざいしコードは長くなるし大変なので, 書籍:Unity デザイナーズ・バイブル パワーポイントのほうに戻って, [表示]または[開発]→[マクロ]→HelloWorldを選択して[実行] (他人のパソコン等で使うとき用に,表示リボンの右端にあることを覚えておきましょう。) こうすることで,マクロが実行されます。 ④最低限のVisual Basic Editorの補足 © 2020 CG Method All rights reserved. Microsoft MVP(Office Development) July 2016 -, HPの掲示板に"右クリックから「配置」を実行できないか?"という質問が寄せられた…, Msdn フォーラムにあった質問「複数図形のグループ化」の回答用に書いたコードで…, 「Word2013 VBA の日本語ヘルプ」でも回答していますが、Office …. })(120000); Dim StrMsg まずはOption Explicitを頭に書くか,オプションで自動的に入るようにするといいです。 上の図を見てください。StrMsg2=StrMsgのところが黄色くなっています。この行はまだ実行されていません。 パワーポイントなどでのプレゼン資料の作成に役立つ、たった4つのデザインのコツをご紹介します。これさえ守れば、あなたの資料は劇的に美しく・読みやすく・分かりやすくなります。 のように適切に宣言できるようになっていくといいです。, 最初は書かなくても自動判断してくれます(゚▽゚*)カシコイ まかせてしまいましょう。  End With エクセルで300人分のデータがあります。この中から30人をランダムに抽選して当せん者としたいのですが、良いフリーソフトはありませんか?また、将来1000人から100人を抽出するなど自由に拡張できるものを希望しております。   .SnapToGrid = Not .SnapToGrid 選択肢1~3 と 問題 これら全部にボタンというマクロを動作設定します。 スライドは2枚しかありません。 しかもそのうち表示用は1枚のみですが,選択肢のボタンを押すと,正誤の判定を行い,問題文を表示したりする図形をクリックすると,次の問題に進む。 なので,変数がわかるようになったら ③-2 マクロ名とEnd Subの間に移動して, msgbox "Hello! プロフィール詳細はこちら, どうして図形の固定機能がないのか?不思議ですがよく使うマクロです。 Please reload CAPTCHA. 日本語もマクロ名に使えますが,そのときは大文字小文字はもちろん関係ありません(゚▽゚*), ③-3 マクロを呼び出してみましょう。パワーポイントのほうに戻って, ちょっとコードを書き換えますね。, とっても無駄なことをしてるマクロです。結果は先ほどの3行のマクロとかわりません。 }, この記事を読むのに必要な時間は約 9 分です。 Twitterで抽選を行っているのを見かけたので、Excel VBAで抽選マクロを作ってみました。 ソースコードを貼り付けて、枠とボタン1つ用意 … といった作業をいちいち手作業で行うのは面倒くさかったので、マクロを組むことにしました。, 上記マクロを実行すると、ダイアログから選択したフォルダ内にあるJPEGファイルを、一括でスライドに挿入します。, (function( timeout ) { World"と打ち込んでみてください。""の中身は大文字小文字は自己責任で打ちます。msgboxは小文字で打ち込みましょう。 とてもお世話になるツールが並んでいます。[Visual Basic Editor]と[マクロ]については,クイックアクセスツールバーに登録しておくと便利です。 Time limit is exhausted. 10問終わったら 正答数を返すという動きをしています。, こう書いたマクロを図形の動作に設定すると,oShpという変数にトリガーの図形を取得できます。, 常にループ待機等をしているわけではありません。ボタンを押したら,という動きになります。 綴りが正しければVisualBasicEditorが大文字小文字を適切に指定してくれるので,ミスの防止につながります。, Sub の後の 『HelloWorld』というのがマクロ名になります。マクロ名の先頭に数字は使えません。 var notice = document.getElementById("cptch_time_limit_notice_96"); 最初の部分をすっとばして,私が最近学んだことを思いつくまま書きまくってきました。 マクロの実行の仕方はいくつかあります。, ③-1 Sub HelloWorld [Enter]と入力すると,直後の()とEnd Subが補完されます。複雑なことをしだすまではこの辺は自動にまかせましょう。 変数の中身がどうなっているのか知りたいことがあるので,その方法。 ②-1 表示メニューから イミディエイトウィンドウ と ローカルウィンドウ は出すべき。(個人見解) パーティでビンゴをやるつもりだけど、どんなツールやアプリを使うか迷っている方もいるかと思います。そこで今回はパソコンで簡単にビンゴゲームができるエクセルを作成しました。クリック1つで簡単に抽選ができるので、ぜひご利用して頂ければと思います。 End Sub, 複数の画像を一気に挿入した時に便利です。 ); 2020年8月15日【PowerPoint】選択した図形をロックする方法, Sub グリッド線に合わせる設定のオンオフを切り替える() 変数のことが少しわかり始めるまでは Option Explicit は書かない方がいいです。 World"が入ってることがわかります。この行がまだ実行されていないので,StrMsg2にはまだ何も入ってないことがわかりますね。 変数ってこういうものか,とわかりだしたらOption Explicitを書くことをお勧めします。, ④-2 Twitterで抽選を行っているのを見かけたので、Excel VBAで抽選マクロを作ってみました。, 一覧の名簿には、ウィキペディアから西武ライオンズの方々のお名前を記載させていただいています。, マクロのExcelファイルをそのまま公開すれば楽なんですが、ファイルに個人情報が入っちゃったりします。, それに、マクロの中身が分からない状態でダウンロードするのも不安かと思いますので、ソースコードなど出来るだけコピペで作って実行できるように解説したいと思います。, 「開発」タブから、「挿入」、コマンドボタン(ActiveX コントロール)をクリックして、ボタンを入れます。, 「開発」タブが表示されていないときは、こちらの記事の最初のほうを参考にしてみてください。, 「CommandButton1」って何だよ?と思う方もいらっしゃるかも。やっぱりボタン名は変更しておきたいですよね。, プロパティにはいろいろと項目がありますが、変更するのはとりあえず次の2つで大丈夫です。, 「(オブジェクト名)」:ソースコード内で使うボタン名です。今回は一応変更していますが、ぶっちゃけボタン1つだけなら変えなくても困りませんw, 「SelectButton1」というボタンをクリックしたときの動作が、次のように書かれています。, 「Microsoft Excel Objects」を右クリックして、「挿入」から「標準モジュール」を選択します。, 応募者の人数によって、生成する乱数の範囲を絞ります。人数が1桁ならlNumLenは10、2桁なら100、3桁なら1000をセットするのがここです。, 先ほどのlNumLenを「Rnd()」に掛けることで、欲しい桁数の数字は整数部分。Int関数で整数部だけ取り出します。, あとは、「SelectButton1_Click()」から「selectPersonMain」を呼び出すだけ。, 「SelectButton1_Click()」の「_」より手前の部分は、プロパティの(オブジェクト名)と一致させてくださいね。, ちゃんと動いたっぽいので、今度は何回もやってみます。毎回同じ人が当選していたらダメですから。, 複数行未入力でも、「〇〇行目が空欄です」の〇〇は一番上の行だけ。楽してすみません・・・。, 全部出していたら、何百行も未入力だと、エラーメッセージがスゴイことになっちゃいますからね。, 実は、名前の列で未入力かどうか判定しています。名前の列以外が入力済みでもエラーになります。, 抽選対象者の一覧を貼り付けてボタンを押すだけのシンプルなマクロだし、複雑なチェックも必要ないでしょう。, 応募者の一覧を貼り付けて抽選する場合には使えると思います。VBAを勉強するネタとしてならもっと使えるかもしれません。, Twitterでよくやっている、「リプくれた方の中から抽選で1名にプレゼント」のような場合だと、一覧を作るだけで消耗しそうです(笑), KUMAPさんがやっていた、応募日時をランダムで取得するやり方がシンプルですぐ出来ていいやり方だと思います。, リプくれたアカウント一覧って、API使って上手いこと一覧を作れるんですかね。また時間があったらやってみます。, 「【Excel】SUBSTITUTE関数を使ってセル内の改行を置換、便利な使い道」, アラサーの独身で、都内でシステムエンジニアをしつつサイトを運営しています。 そのため,プロシージャは必要な時しか動かないので,値が消えないようPublic宣言をしています。, Dim 問題表 As Table: Set 問題表 = Sld2.Shapes("問題表").Table, 表のセルを多数扱う場合は,Tableオブジェクトをオブジェクト変数に入れておいて,使うと楽です。, Sld1.Shapes("選択肢1").TextFrame.TextRange.Text = 問題表.Cell(問題番号 + 1, 3).Shape.TextFrame.TextRange.Text, Powerpointの表はアクセスが深いです。 四 今回は、【上級者向け】パワーポイントマクロで効率化②のご紹介です。 前回の【上級者向け】パワーポイントマクロで効率化①では、マクロとはどういうものか?どのように使うのか?ということをかなり嚙み砕いて解説しました。Ex… 型がわかってきたらわかったものから,  With ActivePresentation マクロから画像を選択、拡張子も選択すればOKです。, よく使うマクロはアドイン化していたのですが、たまにアドインにすると使えないマクロがあったので、違う方法を模索してみました。, できたら、customUIというフォルダを作成してその中にcustomUI.xmlを入れて、そのフォルダごと解凍したパワポデータの直下に入れます。, 最後に保存して、オリジナルの.relsへ上書き保存します。**UFT-8**で保存しないと、最後にエラーを吐くので注意!, まとめです。 前回の【上級者向け】パワーポイントマクロで効率化①では、マクロとはどういうものか?どのように使うのか?ということをかなり嚙み砕いて解説しました。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社以上の資料を作成した実績豊富なプロに、相談してみてはいかがでしょうか?, パワーポイントでイラストを挿入する方法を解説!無料で著作権フリーのイラストが入手できるサイトも紹介.