[[20070519134745]]　『オートシェイプ○を選択したら色が変わる』（にい）　ページの最後に飛ぶ

 『オートシェイプ○を選択したら色が変わる』（にい）
 オートシェイプ白丸を選択したら赤に変わり、もう一回選択したら白に変わるとかって出来ますか？

 選択とはクリックのことですか？
 ＶＢＡでそのとき既に着いている色によって
 条件分岐することになると思います。
 (MARBIN)

 クリックの事です。一回クリックしたら色が変わる。

 サンプルです。
 オートシェイプに登録してください。

 Sub iro()
 With ActiveSheet.Shapes(Application.Caller)
 If .Fill.ForeColor.SchemeColor = 9 Then
    .Fill.ForeColor.SchemeColor = 10
 ElseIf .Fill.ForeColor.SchemeColor = 10 Then
    .Fill.ForeColor.SchemeColor = 9
 End If
 End With
 End Sub
 (MARBIN)

 出来ました。ありがとうございます。
 かなり助かりました！！

 オートシェイプ楕円の線の色をクリックしたら色が変わるってやりたいです。
 どうやったら出来ますか？（かず）

 楕円でも一緒ですよ。
 ただし、MARBINさんのコードであれば、あらかじめ赤または白に設定しておかなければ何も起きません。

 > ElseIf .Fill.ForeColor.SchemeColor = 10 Then
 を
 Else

 に変更してみたら、動くのでは？
 (ROUGE)

 失礼しました。
 線ですね。

 Fill を Line
 に変更されたらどうでしょうか。

 (ROUGE)

 出来ました。ありがとうございます。（かず）

コメント返信：

[ 一覧(最新更新順) ]

[[20070519134745]] 『オートシェイプ○を選択したら色が変わる』（にい） ページの最後に飛ぶ

[[20070519134745]]　『オートシェイプ○を選択したら色が変わる』（にい）　ページの最後に飛ぶ