|
▼はないきぴーぴー さん:
こんばんは。
>全くの素人で申し訳ありませんが何卒ご教授下さい
>
>私のやりたいことは
>例えば図形の円が5個あって、その内の1つをクリックすると
>クリックされた円を取得し、その円だけを赤色に塗りつぶしたいのです
>さらにクリックした円がすでに赤色ならば白色に戻すというような
>ことも出来たらと思っています。
>このやり方が、どうやっていいか全くわかりません。
>
>
>図形をマクロに登録すると、マウスポインターが手の形になりますよね、
>そのままクリックするとマクロを実行できるので
>なんとかこの機能を利用して上記のことができるマクロを作りたいと
>思っております
>
以下のコードを標準モジュールにコピーしてください。
'================================================
Sub sample()
Dim shpnm As String
shpnm = Application.Caller
With ActiveSheet.Shapes(shpnm)
If .Fill.ForeColor.SchemeColor = 10 Then
.Fill.ForeColor.SchemeColor = 9
Else
.Fill.ForeColor.SchemeColor = 10
End If
End With
End Sub
それぞれの円を選択して、
「右クリック」----「マクロの登録」でマクロの登録ダイアログが表示されますから
上記のsampleを指定してください。
設定後、各円をクリックして試してみてください。
|
|