2011-10-21 16 views
2

Excel 2003は単純な... interior.colorindexと56個しかありませんでした。しかし、これは、より良いコントロールのためにExcel 2010で変更されています。Excel 2010 - セルと図形の色付け - 私の考え

セルの内容に応じて(VBAで)セルの色をコピーし、同じ色をExcelのシェイプに配置するはずのプログラムを開発中...私はいくつかの異なるオブジェクト

Sheets("Config").Range("E1").Interior.ThemeColor = 10 
Sheets("Config").Range("E1").Interior.TintAndShade = -0.249977111117893 

形状の場合:私は上記のすべてのdiffereを必要としない、より良い簡単な方法を発見した

Activesheet.shapes("R3").fill.forecolor.objectthemecolor = 7 
Activesheet.shapes("R3").fill.forecolor.brightness = 0.6 
Activesheet.shapes("R3").fill.forecolor.schemecolor = 42 
Activesheet.shapes("R3").fill.forecolor.tintandshade (and this doesn't even work) 
+6

それだ質問をし、それを自分で答えていますが、二つの別個の部分に分割しなければならないためにOK(そして時には励まさ) - 質問と回答。あなたがここに投稿したものは、ほとんどが「答え」にあるはずだと思われるときには、すべて「質問」として投稿されます。 – Flexo

+0

私はawoodlandの言葉に同意します。この質問に答える必要はありません。この質問を閉じてください。 – Buddha

+0

@awoodlandが言ったように。質問から回答を削除し、代わりに実際の回答として追加してください。 – mischab1

答えて

1

セル用の

:このような..

に名前を付ける必要なのは、NT:例えば長い...このように返されます

range("b9").Interior.Color 

:682978(10進数の六角色の)

そして、することができます

.Shapes(xName).Fill.ForeColor.RGB = 682978 (some variable) 

他の有用なノートは、次のとおりです:

range("h1").Interior.Color = rgb(0,123,124) 
このような形状の色を設定

と、コンソールでの印刷のための

? rgb(0, 123, 124) 
関連する問題