EXCEL VBAでカラーチャートを作成する方法
- EXCEL VBAを使用して、セルを使用して256×256×256色のグラデーションのカラーチャートを作成する方法について教えてください。
- RGB関数を使用してセルを塗りつぶすと、予想と異なる結果となります。正しい方法を教えてください。
- お力をお借りして、EXCEL VBAでカラーチャートの作成方法を教えてください。
- ベストアンサー
EXCEL VBAでカラーチャートを作りたいです
お世話になります。VBAを勉強中の者です。 自分なりに調査してみたのですが、解決できなかったので質問させて頂くことにしました。 EXCEL2003を使ってカラーチャートを作成しています。 1セル1色を、(色の)漏れがなく、かつ、ダブり無く塗りつぶし、 1つのシートのセルを全て使って256×256×256色のグラデーションを作成しようとしています。 上述カラーチャートを作成するにあたり、 まずは簡単なSubプロシージャを作成することにしました。 RGB関数のRedの値を0から255まで変化させ順次セルを塗りつぶすことで 黒→赤 のグラデーションを得ようと考えたのです。 作成したコードは以下の通りです。 このコードを実行すると、意図している黒から赤への連続的なグラデーションは得られず、 Redの値が0から64までは黒、65から192までは栗色っぽい色、193から255までは赤 という３色しか表示されない結果となりました。 Excelは、セルの塗りつぶしやフォントの色などをカラーインデックスという形で 保持しているということまでは、調査で把握しました。256色の連続的なグラデーション ではなく、3色のグラデーションとなってしまったのは、RGB関数で指定した値が カラーインディックスに丸め込まれたからであるとは予想がつきますが、 RGB関数で指定した色でセルを塗りつぶす方法が分かりません。 グラデーションを得るにはどうすれば良いのでしょうか？ お力をお借りしたいです。宜しくお願い致します。 - - - - - - - - - - - - - Sub RGB_Color_Red() Dim n As Long Dim cnst As Long cnst = 0 For n = 1 To 256 Cells(n, 1).Interior.Color = RGB(n - 1, cnst, cnst) Next End Sub - - - - - - - - - - - - -
- cococu713
- お礼率100% (2/2)
- その他MS Office製品
- 回答数1
- ありがとう数1
- みんなの回答 （1）
- 専門家の回答
質問者が選んだベストアンサー
- ベストアンサー
可能な前提で質問してるところ悪いんだけど https://www.google.com/search?q=excel2003+%E8%89%B2+%E5%88%B6%E9%99%90
関連するQ&A
- Excelのセルの色指定をVBAから配列を用いて効率的に行う方法はあり
Excelのセルの色指定をVBAから配列を用いて効率的に行う方法はありませんか？ 例えば、セルに値を代入場合であれば、 Sub test() Dim arr(2, 2) As Integer Dim rg As Range Set rg = Worksheets(1).Range("A1:B2") arr(0, 0) = 1 arr(0, 1) = 0 arr(1, 0) = 0 arr(1, 1) = 1 rg.Value = arr '＜－ これと同じように End Sub というように、セルへの値代入を配列を用いて、プロパティ呼出し1回で済ませることが出来ますよね。。 で、セルの色の場合も、同じように、 Sub test2() Dim arr(2, 2) As Long Dim rg As Range Set rg = Worksheets(1).Range("A1:B2") arr(0, 0) = RGB(0, 0, 0) arr(0, 1) = RGB(0, 255, 0) arr(1, 0) = RGB(0, 0, 255) arr(1, 1) = RGB(255, 0, 0) rg.Interior.Color = arr ' <- これをやりたい End Sub など、と書きたいのですが、最後の rg.Interior.Color = arr の所でエラー（型が一致しません）が出ます。 （全セレクトエリアが同カラーで指定だと、 rg.Interior.Color =RGB(0,0,0) などと出来るのですが。。。） オブジェクトの下のプロパティのプロパティを配列で 指定するうまい方法はありませんか？ セル毎にループで回すと、Excelサイドが重いので、 時間を要してしますので困っています。 分かる方、是非よろしくお願い致します。
- 締切済み
- Visual Basic
- カラーチェッカーとグレーチャートの見方について教えてください。
カラーチェッカーとグレーチャートの見方について教えてください。 基本は白がＲＧＢ値が250で黒が0になるように画面を変更して修正すれば正確な色の調整ができるのでしょうか？白黒だけでなく他に色がありますがどのように見ればいいのでしょうか？
- ベストアンサー
- デジタルカメラ・フィルムカメラ
- カラーチャートの選び方
漠然としか理解してないんですが、カラーチャートというのはRGBからCMYKへ出力するときの色見本のことですよね？ しかし、あまりにも沢山販売されていて何を基準にどう選べばいいのかさっぱりわかりません。検索してもそれらしいサイトも見つからなかったのですが、一つ持っていたいので、おすすめ又は選び方やその基準を教えてください。m(_ _)m
- ベストアンサー
- グラフィックソフト
- カラーチャート(カラーパレット？)の作り方
カラーチャート(カラーパレット？)の簡単な作り方はありませんか？ イメージとしてはこんな感じの物です。 http://www.gande.co.jp/DIC/image/DIC-SEL02.jpg 任意の色・・・たとえば青を選んだとして、同系統の色をグラデーションの様に沢山表示させたいです。 (最終的には印刷して使います) 宜しくお願いします。
- 締切済み
- その他（インターネット・Webサービス）
- WORD VBA
マウスがある位置の色の情報を表示するソフトを利用して、 RGB情報を得ています。（例 RGB(204, 035, 035) 。 次のWORDマクロ動かし、RGB情報を手入力して欲しい結果を得ています。しかし、せっかくクリップボードに”RGB(204, 035, 035)”が入っていますので、それを自動的に以下のマクロに取り入れたいと考えております。どのようにすれば良いかアドバイスお願いできないでしょうか？ なお, OSはWindows7を使用しています。Wordは2007です。 Sub ColorPaste() ' Dim Red As Integer Dim Green As Integer Dim Blue As Integer Red = InputBox("赤の数字を入れてください。") Green = InputBox("緑の数字を入れてください。") Blue = InputBox("青の数字を入れてください。") Selection.InlineShapes(1).Fill.BackColor = RGB(Red, Green, Blue) End Sub
- ベストアンサー
- その他MS Office製品
- エクセル VBAが作動しない
セルの色を変換するVBAとして、標準モジュールに以下のマクロを書き込んでいます。 Sub グレイに() Dim c As Range For Each c In Selection With c.Interior If .Color = RGB(162, 187, 220) Then .Color = RGB(190, 190, 190) End With Next End Sub エクセルに戻って、ctrl+F8で、マクロ名を選んで、実行すれば、実行されるはずなのですが、なぜかきちんと変換されません。 詳しく書くと、何度も何度も「実行」ボタンを押していると、セルの色が指定どおりグレイになるときもあるのですが、特に作動するときと作動しないときに操作の差はありません。 当然ですが、「必ず」実行して欲しいのですが、どこに問題があるのでしょうか？ 教えてください。
- ベストアンサー
- オフィス系ソフト
- 波長の載っているカラーチャートってないですか？
色彩について、初心者で、独学で学んでいる者です。 カラーチャートなどでは、様々な色が載っていますが、その色の波長は、書いてませんよね。 例えば、具体的にマンセルの「5Rの赤＝波長○○○nm」のように。 そういうのが、載っている、カラーチャートなどはないですか？ 山ほどいろんな色が載っていて、それぞれの色の波長が載っているような本、またはサイトを教えていただければとても嬉しいです。 お願いいたします。
- 締切済み
- 化学
- カラーチャート 波長
色彩について、初心者で、独学で学んでいる者です。 カラーチャートなどでは、様々な色が載っていますが、その色の波長は、書いてませんよね。 例えば、具体的にマンセルの「5Rの赤＝波長○○○nm」のように。 そういうのが、載っている、カラーチャートなどはないですか？ 山ほどいろんな色が載っていて、それぞれの色の波長が載っているような本、またはサイトを教えていただければとても嬉しいです。 お願いいたします。
- ベストアンサー
- 物理学
- カラーチャートで・・・
赤色・青色と一言で言ってもいろんな色がありますが、 たとえばイタリア国旗の赤や緑はカラーチャートで選ぶとこの色・・・と いうふうに参考にデーターやHPなどはありますでしょうか？ と、いうかどんな風に決まっていたり何に従って表現されているものなのでしょうか。 気になってしょうがありません。どうぞよろしく。
- ベストアンサー
- 美術
- カラーチャートと実際の色について
印刷屋さんから仕上がったきた色についてなのですが 指定番号：Ａ C:6% M:25% Y:64% K:64% で作成したこげ茶のベタ塗りが、思ったより暗い印象でした。 それだけ見ると黒に近い感じです。 （本当の黒の印刷物と比べるとこげ茶ですが＾＾；） （手持ちのカラーチャートにない色味だったので、 事前に確認できていませんでした） 再度訂正して入稿を考えているのですが、 手持ちのカラーチャートでこれはと思う色は 指定番号：Ｂ C:80% M:80% Y:90% K:0% でした。 カラーチャートを見ると明らかに最初の印刷物の 仕上がり（指定番号Ａ）より薄い茶色です。 ところがここでちょっと不安になったのは、 画面上では 指定番号Ａの方が薄い茶色で、 指定番号Ｂの方は黒？？と思うような色です。 画面とカラーチャートの濃淡が逆転しているのですが、こういうものなのでしょうか？ なんだか分かりにくい話ですみません（汗
- ベストアンサー
- グラフィックソフト
お礼
お忙しい所、ご返答下さり誠にありがとうございました！ RGB関数で設定できる色が出せないのは、Excelの仕様というのは盲点でした。 オートシェイプの塗りつぶしをする場合は、 256×256×256色選択できたから、セルも同様に考えておりました。 Excel2003の場合、セル、文字は56色しか使用できないのですね。 そもそもできるのかという視点をもって取り組めばよかったのですね。 どうもありがとうございました！