[[20070224111112]]　『図形の背景色を反転させたい』（しみぽん）　ページの最後に飛ぶ

『図形の背景色を反転させたい』（しみぽん）

ｵｰﾄｼｪｲﾌﾟ等で作成した図形をｸﾘｯｸすると背景色が反転（そのまま保持）し、その結果をどこかのｾﾙに反映させたいんですが、どうしたらよいか見当がつきません。

例えば、背景色が白でｸﾘｯｸすると黒に変更されｾﾙにFalse、再度ｸﾘｯｸすると白に戻りｾﾙはTrue。それを繰り返したいんです・・・
変更されたことが分かるものならFalse，Trueはなんでもいいです。

どなたか救いの手を差し伸べてくださいませぇ～

 図形にマクロ登録。
 Sub BBj()
 Dim iro As Long
 ShpN = Application.Caller
 iro = ActiveSheet.Shapes(ShpN).Fill.ForeColor
 If iro = vbWhite Then
   ActiveSheet.Shapes(ShpN).Fill.ForeColor.RGB = vbBlack
   Range("B2").Interior.ColorIndex = 1
 Else
   ActiveSheet.Shapes(ShpN).Fill.ForeColor.RGB = vbWhite
   Range("B2").Interior.ColorIndex = 2
 End If
 DoEvents
 End Sub
 BJ

返事が遅くなり申し訳ありません。

ありがとうございます！
できました。

迷惑ついでで申し訳有りませんが、教えて下さい。
図形を選択することでB2のｾﾙに色を反映させるというのは分かりましたが、
色ではなく、何か文字（記号？）を入れる事は可能でしょうか？
結果のｾﾙを使用して他の関数に転用させたいんです。
ﾏｸﾛとかがほとんど良く分からないもので。

すみません。
ＵＰした後にいじくってたら出来てしまいました。

今後もよろしくお願い致します。
（しみぽん）

コメント返信：

[ 一覧(最新更新順) ]

[[20070224111112]] 『図形の背景色を反転させたい』（しみぽん） ページの最後に飛ぶ

[[20070224111112]]　『図形の背景色を反転させたい』（しみぽん）　ページの最後に飛ぶ