Microsoft Projectでタスクを誰かに割り当てたとき、担当者ごとに違う色をタスクのバーに割り当てると見やすくなるのでよくやります。しかし、自動でリソース名とバーの色を連動させる機能がないので、いちいち設定を変えねばなりません。これが結構面倒なので、リソース名を変更するとタスクのバーの色を事前に決めた色に自動的に変えるマクロを作ってみました。
※今回は画像中心でお伝えしていきます。
今回のサンプルは下記の３人のリソースを割り当てたとき、自動的にバーの色を割り当てるマクロを作ります。
まず、クラスモジュールを作成します。
イベントを受け取るモジュールなので、今回はEventClassModuleと名付けます。
まずは、このクラスモジュールを編集していきます。
下図のように宣言し、
Editorウィンドウの左側のプルダウンメニューから「App」を選択すると、
下図のように勝手に関数が追加されますが、これは使いません。
右のプルダウンメニューから、「ProjectBeforeChange」を選択すると、下図のように関数の雛形が追加されます。最初に勝手に追加された、「App_NewProject」は使用しないので削除します。
まずは、このイベントハンドラがちゃんとリソースを変更したときのイベントが取得できるか確認するために、MsgBox()関数を埋め込んで動かしてみます。しかし、まだこれだけではイベントを受け取れません。
Projectのコードを開き、
左側のプルダウンメニューから「Project」を選択し、
Open()を追加し、
下図のコードを追加します。
これでようやく、イベントを拾えるようになります。
リソースを変更すると、メッセージが表示できるようになりました。
メッセージを表示するのはこれで問題ありませんが、クラスモジュールからはバーの色を直接変えることはできないので、グローバル変数経由で変更のあったタスクがどれかをThisProjectに伝えます。ThisProject側にグローバル変数「msgStr」を宣言しておき、これにタスクIDを入れます。
ThisProject側では、タスクの変更を検出するChange()関数を挿入しておきます。
次に、各タスクをどのような色に変えるのか、調べておきます。
バーの設定ダイアログを開き、
「色」項目のポップアップメニューで「その他の色」を選択すると、RGBそれぞれの値を知ることができるので、メモっておきます。
先程追加したChange()関数で、下記のようにリソース名とバー色の関係を記述します。
これで、下図のようにリソース名を変更すると、
リソースのバー色に変更されるようになりました。
メデタシメデタシ。