ほうほう,いろいろできるのか,ExcelVBAも知らないけど,少しやってみるか。そう思った人がいた場合,最初を完全にすっとばして書いてますので,最初の最初について触れてみようと思いました。 と宣言できるようになりましょう。型はとりあえず後回しでもいい。 四 パワーポイントなどでのプレゼン資料の作成に役立つ、たった4つのデザインのコツをご紹介します。これさえ守れば、あなたの資料は劇的に美しく・読みやすく・分かりやすくなります。 © 2020 CG Method All rights reserved. よく使うマクロをまとめてみました。便利なので是非一度試してみてください!. エクセルで300人分のデータがあります。この中から30人をランダムに抽選して当せん者としたいのですが、良いフリーソフトはありませんか?また、将来1000人から100人を抽出するなど自由に拡張できるものを希望しております。 前回の【上級者向け】パワーポイントマクロで効率化①では、マクロとはどういうものか?どのように使うのか?ということをかなり嚙み砕いて解説しました。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社以上の資料を作成した実績豊富なプロに、相談してみてはいかがでしょうか?, パワーポイントでイラストを挿入する方法を解説!無料で著作権フリーのイラストが入手できるサイトも紹介. Please reload CAPTCHA. コードを自由にストップして,ローカルウィンドウで変数の中身を確認できていれば,コードの理解はどんどん進みます。, StrMsgの型が Variant/String となっているように,変数の宣言をしていませんので,Variantというなんでも納めれる変数となっていますが,中身はString(文字列) なんだよとVBAが判断してくれていることがわかります。 Dim StrMsg  ×  timeout  End With  With Application ブログを報告する, TypeName TypeOf is を試しに使ってみた。 Powerpoint VBA, Powerpoint VBA ActiveX Commandボタンをマクロで挿入する。. ③-2 マクロ名とEnd Subの間に移動して, msgbox "Hello! とてもお世話になるツールが並んでいます。[Visual Basic Editor]と[マクロ]については,クイックアクセスツールバーに登録しておくと便利です。 }, ②-2 ツールバーのあたりで右クリックして [編集]ツールにチェックを入れて出しておく。 Please reload CAPTCHA.  With ActivePresentation 選択肢1~3 と 問題 これら全部にボタンというマクロを動作設定します。 スライドは2枚しかありません。 しかもそのうち表示用は1枚のみですが,選択肢のボタンを押すと,正誤の判定を行い,問題文を表示したりする図形をクリックすると,次の問題に進む。  End With ブレークポイントを設定していると,標準モジュールでは,そこでマクロが止まるようになります。 .hide-if-no-js { 最初から慣れようとしてもいいかもしれませんが,始めたばっかりの場合はうざいしコードは長くなるし大変なので, こちらのCGメソッドの記事ではおすすめのマクロとショートカット(アドイン)の作成方法を紹介します!マクロを使うと作業の効率化になるので是非覚えておきましょう!PowerPointおすすめのマクロのまとめ実際に使ってみて、便利だったマクロを紹介いたします。   .DisplayGridLines = Not .DisplayGridLines プロフィール詳細はこちら, どうして図形の固定機能がないのか?不思議ですがよく使うマクロです。 スライドサイズを4対3に変更するPowerPointマクロ: 2015.11.06 金: 全スライドをリセットするPowerPointマクロ: 2015.11.04 水: 全スライドを選択するPowerPointマクロ: 2015.10.30 金: 複数のスライドマスターから未使用のレイアウトを削除するパワポマクロ: 2015.10.05 月 ブレークポイントは編集ツールバーの中の 手 のマークでも設定/解除ができますが,止めたい部分のコードの頭のあたりをクリックするだけでも設定/解除ができます。, Visual Basic Editorのほうからマクロを起動してみましょう。実行したいマクロのところにカーソルがある状態で [F5]キーかツールバーの右向きの緑色の三角ボタンがマクロ実行のボタンです。 ②-3 Excelと違いマクロを書く場所がひとつもないので,とりあえず標準モジュールを挿入する。, これで準備完了です。要素としてはだいたい次の画面になります。ウィンドウの大きさは説明を入れるために変なサイズになってますが,調整してください。 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関数を使ってセル内の改行を置換、便利な使い道」, アラサーの独身で、都内でシステムエンジニアをしつつサイトを運営しています。 コードの最初にOption Explicitと書かれている場合,変数は宣言しないと使えません。 notice.style.display = "block"; ここまでは一度出しておけばずーっと出てくれています。 それぞれのアイコンの上で右クリックすると,[クイックアクセスツールバーに登録]と出るので簡単。, ②Visual Basic Editorを開く。 ブログを報告する. Microsoft MVP(Office Development) July 2016 -, HPの掲示板に"右クリックから「配置」を実行できないか?"という質問が寄せられた…, Msdn フォーラムにあった質問「複数図形のグループ化」の回答用に書いたコードで…, 「Word2013 VBA の日本語ヘルプ」でも回答していますが、Office …. 変数の宣言を強制する というやつにチェックを入れると自動的に入るようになります。, まずはそのうちに, if ( notice ) var notice = document.getElementById("cptch_time_limit_notice_96"); 余計なコメントをいつものように書いていると長くなるので,できるだけシンプルにここからは行きます。, [ファイル]→[オプション]→[リボンのユーザー設定]→[開発]タブにチェックをいれましょう。 編集ツールの中にはコメントブロックやブックマークなど便利なツールが入っていますので,出しておくと便利です。, 最初からきれいで効率の良いマクロは組めないと思われます。ながーくなったりしますので,ブックマークとか便利ですね。, ③さきほど挿入した標準モジュールに,いろいろなページに書かれているマクロを貼り付ける。 某美大の油絵科を卒業後、大手CG映像プロダクションに入社。 書籍:Unity デザイナーズ・バイブル | Time limit is exhausted. 変数のことが少しわかり始めるまでは Option Explicit は書かない方がいいです。 変数ってこういうものか,とわかりだしたらOption Explicitを書くことをお勧めします。, ④-2 ); 2020年8月15日【PowerPoint】選択した図形をロックする方法, Sub グリッド線に合わせる設定のオンオフを切り替える() これと友達になることが大事。より早く友達になれるように,下準備。, わたしのおすすめとしては,   .SnapToGrid = Not .SnapToGrid 最初の部分をすっとばして,私が最近学んだことを思いつくまま書きまくってきました。 ブレークポイントを設定してみましょう。 といった作業をいちいち手作業で行うのは面倒くさかったので、マクロを組むことにしました。 指定したフォルダ内の画像ファイルを一括挿入するPowerPointマクロ 詳細はこちら。 上の図を見てください。StrMsg2=StrMsgのところが黄色くなっています。この行はまだ実行されていません。 マクロを継続するには先ほど同様 [F5]を押すか,実行ボタンを押すと次に進みます。 マクロを他のマクロの中で呼び出す場合,マクロ名を書くことがあります。細かい決まりは私も素人なので知りませんが,定数・変数名などについても言えることですが,ここで大文字小文字を混ぜた書き方をしておくと,綴りが正しいかどうかの指標とすることができますので,大文字小文字を自分なりの規則で混ぜていくといいと思います。 ちょっとコードを書き換えますね。, とっても無駄なことをしてるマクロです。結果は先ほどの3行のマクロとかわりません。 ローカルウィンドウを見ると, StrMsgの値は"Hello! Copyright © Virtual Planner All rights reserved. End Sub, 複数の画像を一気に挿入した時に便利です。 10問終わったら 正答数を返すという動きをしています。, こう書いたマクロを図形の動作に設定すると,oShpという変数にトリガーの図形を取得できます。, 常にループ待機等をしているわけではありません。ボタンを押したら,という動きになります。 Dim StrMsg as String コードが貼り付けられると,マクロの準備ができたことになります。 日本語もマクロ名に使えますが,そのときは大文字小文字はもちろん関係ありません(゚▽゚*), ③-3 マクロを呼び出してみましょう。パワーポイントのほうに戻って, }, 前回の記事で書いた通り、「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 アドインやリボンのカスタマイズに関する話題を中心に情報発信しています。 綴りが正しければVisualBasicEditorが大文字小文字を適切に指定してくれるので,ミスの防止につながります。, Sub の後の 『HelloWorld』というのがマクロ名になります。マクロ名の先頭に数字は使えません。 パーティでビンゴをやるつもりだけど、どんなツールやアプリを使うか迷っている方もいるかと思います。そこで今回はパソコンで簡単にビンゴゲームができるエクセルを作成しました。クリック1つで簡単に抽選ができるので、ぜひご利用して頂ければと思います。 マクロ実行のタイミング スライドショー終了時にマクロを実行する。 スライドショーを再生する前にスライドを並び替えるのは難しくスライドショーを一度再生し、次にスライドショーを再生する時にスライドの順番がランダムで並び替わっているという方法にした。 のように適切に宣言できるようになっていくといいです。, 最初は書かなくても自動判断してくれます(゚▽゚*)カシコイ まかせてしまいましょう。 Time limit is exhausted. といった作業をいちいち手作業で行うのは面倒くさかったので、マクロを組むことにしました。, 上記マクロを実行すると、ダイアログから選択したフォルダ内にあるJPEGファイルを、一括でスライドに挿入します。, (function( timeout ) { | })(120000); 早速Visual Basic Editorを見てみましょう。 display: none !important; 今回は、【上級者向け】パワーポイントマクロで効率化②のご紹介です。 前回の【上級者向け】パワーポイントマクロで効率化①では、マクロとはどういうものか?どのように使うのか?ということをかなり嚙み砕いて解説しました。Ex…  [表示]または[開発]→[マクロ]→HelloWorldを選択して[実行]  (他人のパソコン等で使うとき用に,表示リボンの右端にあることを覚えておきましょう。), ④-1  Cell(行,列).Shape.TextFrame.TextRange ・・・とたどっていかないといけないのが難点ですね。, 必要な説明はこのくらいでしょうか。とても短いマクロと少ない部品ですが,多数の問題を同じレイアウトで取り扱えます。, 内容は極めて雑に作っていますが,発展させればなかなかのものが作れるんじゃないかなーと思われます。, chemiphysさんは、はてなブログを使っています。あなたもはてなブログをはじめてみませんか?, Powered by Hatena Blog function() { これまでマクロに関する記事を何度か書きましたが、そもそもどうやってマクロを使うのかという肝心なことを書いていないことに今さら気づきました 笑 この記事では、パワーポイントでvbaの編集を有効にし、マクロを実行するまでの簡単な説明をしたいと思います。 マクロから画像を選択、拡張子も選択すればOKです。, よく使うマクロはアドイン化していたのですが、たまにアドインにすると使えないマクロがあったので、違う方法を模索してみました。, できたら、customUIというフォルダを作成してその中にcustomUI.xmlを入れて、そのフォルダごと解凍したパワポデータの直下に入れます。, 最後に保存して、オリジナルの.relsへ上書き保存します。**UFT-8**で保存しないと、最後にエラーを吐くので注意!, まとめです。 その後ゲーム業界に転職。 だいぶパワーポイントから離れていたので,久々に連休ですし,ちょっと続き物を書いてみます。, さて,次のようなものを作りました。まだ最低限の実装ですが,基本的な考え方は入れています。, ファイル名の右についているちっちゃいダウンロードボタンでダウンロードすると,私の環境ではファイル名は文字化けしませんでした。, スライドは2枚しかありません。しかもそのうち表示用は1枚のみですが,選択肢のボタンを押すと,正誤の判定を行い,問題文を表示したりする図形をクリックすると,次の問題に進む。 なので,変数がわかるようになったら ブレークポイントのかわりに Stop と入れてあげることでもコードを止めることができます。, chemiphysさんは、はてなブログを使っています。あなたもはてなブログをはじめてみませんか?, Powered by Hatena Blog  =  マクロの実行の仕方はいくつかあります。, ③-1 Sub HelloWorld [Enter]と入力すると,直後の()とEnd Subが補完されます。複雑なことをしだすまではこの辺は自動にまかせましょう。 パワーポイントのほうに戻って, [表示]または[開発]→[マクロ]→HelloWorldを選択して[実行] (他人のパソコン等で使うとき用に,表示リボンの右端にあることを覚えておきましょう。) こうすることで,マクロが実行されます。 ④最低限のVisual Basic Editorの補足 World"が入ってることがわかります。この行がまだ実行されていないので,StrMsg2にはまだ何も入ってないことがわかりますね。 そのため,プロシージャは必要な時しか動かないので,値が消えないようPublic宣言をしています。, Dim 問題表 As Table: Set 問題表 = Sld2.Shapes("問題表").Table, 表のセルを多数扱う場合は,Tableオブジェクトをオブジェクト変数に入れておいて,使うと楽です。, Sld1.Shapes("選択肢1").TextFrame.TextRange.Text = 問題表.Cell(問題番号 + 1, 3).Shape.TextFrame.TextRange.Text, Powerpointの表はアクセスが深いです。

ジュラシックワールド アライブ 第二世代 7, 補導 学校 処分 37, 犬 安楽死 仙台 9, ホスファチジルコリン ホスファチジルセリン 違い 10, ホーム ワンピース 型紙 4, 猫 10ヶ月 体重 8, 公立中高一貫校 模試 過去 問 5, テレ 玉 ライオンズ 中継 12, は っ たく 風水 5, はたけ カカシ夢小説 裏 10, 大人 ピアノ 上達速度 26, Matlab Fprintf 文字 化け 5,

Write a comment