2色カラースケールを設定  Sub test()   ' 2色カラースケールを設定    Dim myCS As ColorScale   ···