![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?5a7ff87)
お世話になります。VBAを勉強中の者です。
自分なりに調査してみたのですが、解決できなかったので質問させて頂くことにしました。
EXCEL2003を使ってカラーチャートを作成しています。
1セル1色を、(色の)漏れがなく、かつ、ダブり無く塗りつぶし、
1つのシートのセルを全て使って256×256×256色のグラデーションを作成しようとしています。
上述カラーチャートを作成するにあたり、
まずは簡単なSubプロシージャを作成することにしました。
RGB関数のRedの値を0から255まで変化させ順次セルを塗りつぶすことで
黒→赤 のグラデーションを得ようと考えたのです。
作成したコードは以下の通りです。
このコードを実行すると、意図している黒から赤への連続的なグラデーションは得られず、
Redの値が0から64までは黒、65から192までは栗色っぽい色、193から255までは赤
という3色しか表示されない結果となりました。
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
- - - - - - - - - - - - -
No.1ベストアンサー
- 回答日時:
お忙しい所、ご返答下さり誠にありがとうございました!
RGB関数で設定できる色が出せないのは、Excelの仕様というのは盲点でした。
オートシェイプの塗りつぶしをする場合は、
256×256×256色選択できたから、セルも同様に考えておりました。
Excel2003の場合、セル、文字は56色しか使用できないのですね。
そもそもできるのかという視点をもって取り組めばよかったのですね。
どうもありがとうございました!
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) VBAの繰り返し処理について教えてください。 3 2022/08/02 13:21
- Visual Basic(VBA) VBA初心者です。 VBAで行単位で条件付き書式の色をカウントしたいです。 大量のデータがあるExc 3 2022/06/08 10:00
- Visual Basic(VBA) VBA初心者です。 VBAで行単位で条件付き書式の色をカウントしたいです。 大量のデータがあるExc 3 2022/06/08 10:02
- Visual Basic(VBA) EXCEL VBAにて動的にCheckBOXを複数作成し、同BOXにイベントを追加したい 1 2023/03/16 07:05
- Excel(エクセル) エクセルで”入力シート”の文字書式の変更を”出力シート”で同じ文字書式で印刷したいです。VBA希望 4 2023/04/24 11:07
- Excel(エクセル) Excel VBA 空白行があるセル範囲に色を付ける 3 2022/06/13 15:58
- Visual Basic(VBA) エクセル365のVBAで困っています。どう修正したらよいか添削をお願いします 2 2023/05/03 17:35
- Visual Basic(VBA) 複数csvを横に追加していくマクロについて 2 2023/04/25 09:19
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 6 2022/06/08 12:55
- Visual Basic(VBA) ExcelVBAのマクロについて。 9 2022/05/04 14:50
関連するカテゴリからQ&Aを探す
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
ワード。図形の書式設定について。
-
ホームページ・ビルダーv10
-
ペイントで「色の選択」で作製...
-
イラストレーターCS3で白~透...
-
グラデーションが上手く出ませ...
-
Canva(キャンバ サムネイル作る...
-
障害者の髪型
-
<大至急>千羽鶴がきれいに見...
-
エクセルである行以下全部を削...
-
白飛びした(明るい)写真をiPhon...
-
Photoshop で8bit /チャンネル ...
-
visual studio でインデントを...
-
Androidのスマホで毎回毎回ホー...
-
EXCEL VBAで全選択範囲の解除
-
「これが」「これで」いいです...
-
Jw-cadの範囲指定で文字が選択...
-
PDFを開くとデフォルトで閲覧モ...
-
ipadのpagesでMS明朝を使う方法...
-
VBAでファイルを開くときにファ...
-
gimpで色交換できません。
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
パワーポイントでこのようなグ...
-
この赤、光沢感があるように見...
-
Word2013 画像の扇型をWordの図...
-
イラストレーターCS3で白~透...
-
ワード文書に挿入した画像のま...
-
excelでの領域塗り分け方法につ...
-
ワードで画面と印刷が異なる(...
-
障害者の髪型
-
<大至急>千羽鶴がきれいに見...
-
縦書き文字列の半分に網掛けす...
-
空にまつわる表現
-
PPTからPDFにしたときのグラデ...
-
word2007のグラデーションをP...
-
理容室 理容室で前髪を眉毛の上...
-
1ヶ月前にグラデーションでブリ...
-
エクセル、ワードでグラデーシ...
-
小学校入学前の11月に色鉛筆で...
-
フェードモヒカンってどんなヘ...
-
イラレCS3で、グラデーション...
-
ワードでメタリック調のプレート
おすすめ情報