Excelのセルのフォント色を設定する

ちょっとはまりましたが
R と B が逆だという事をどこかで聞いた事があったので
実装してみたらうまくいきました。

入れ替えとか削ったりとか
もっと綺麗に書けると思うけど。

  #
  # セルのフォント色を設定する
  # color : 16進の色情報 
  #         赤 #FF0000
  #         緑 #00FF00
  #         青 #0000FF
  #
  def set_color(x , y , color)
    # #を削る
    if color =~ /^#/
      color = color.slice(1 , color.length)
    end
    # 6バイト無い場合は無視
    if color.length != 6
      return
    end
    # R と B を入れ替え
    color = color[4,2] + color[2,2] + color[0,2]
    # 色をセットする
    self.Cells.Item(y,x).Font.Color = color.to_i(16)
  end