VBA オートシェイプの色変更

[Aloha Hawaii]

シート上のオートシェイプをクリックしたら、塗りつぶしの色が白から黒に、再度クリックしたら黒から白と、クリックする度に、交互に色を変えるにはどうすればよろしいですか。

[Aloha Hawaii]

Sub チェック色変更()

Dim chk As Integer


With ActiveSheet.Shapes(Application.Caller)
chk = .Fill.ForeColor.SchemeColor

Select Case chk
Case 8
.Fill.ForeColor.SchemeColor = 9
Case 9
.Fill.ForeColor.SchemeColor = 8
End Select

End With


End Sub

で解決しました。

Post by Aloha Hawaii
シート上のオートシェイプをクリックしたら、塗りつぶしの色が白から黒に、再度クリックしたら黒から白と、クリックする度に、交互に色を変えるにはどうすればよろしいですか。