作った図を設定した日付けで色付け、なんてことはできますか？？

質問

エクセルのオートシェイプでつくった図○を、設定した日付けを過ぎると赤くする、なんてことは可能でしょうか？？もしできれば教えてください。

回答No.2

imogasi

>エクセルのオートシェイプでつくった図○を-->判る。
しかしたくさん○（の行）が有るのか（下記例）
＞設定した日付けを
設定した日付は全データに対し１つか、下記のように、○に対応付けられたたくさんのものか。
あいまい。
○と「設定した日付」はパラのモノか
例えば
5/1　○
5/3 ○
5/13　○
5/31 ○
6/1　○
6/3 ○
とあって今日5/24以前の日付の横の丸を色着けるのか。
これだと難しい。セルとオートシェイプを関連付けることは難しい。
セルとシェイプの位置で関連付ける方法もなくは無いが。
テキストをシェイプに入れて関連付けるとか。
シェイプはシート上に、浮かんでいるイメージ。
＝＝＝
実例を挙げないからあいまいになるのだ。

回答No.1

xls88

下記マクロを仕込んでおけば、Bookを開くたびに自動実行されます。

Sub auto_open()
　　If Date > CDate("2009/5/1") Then
　　　　With Worksheets("Sheet1").Shapes(1)
　　　　　　.Fill.ForeColor.SchemeColor = 10
　　　　End With
　　End If
End Sub

補足

お礼が遅れてすみません・・。
今日、職場に行ったらさっそくやってみます。
説明不足で申し訳なかったです、
日付も表示しておいて、それを変えることによって、そこから１００日後に
図の色が変わる（塗りつぶされる）みたいなことは可能でしょうか？？
もしよければマクロの日本語説明を簡単でお願いします。