![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?e6f04cf)
No.1ベストアンサー
- 回答日時:
>一個ごとに色相、彩度、明度で指定
>彩度と明度は固定値でも構いません。
彩度と明度はどの数値?
また固定値とは何を表している?
色相の数値の意味?
このあたりが門外漢の私には理解できないんですが、質問にある「色相」を色相環の0度~360度に当てはめてRGBを計算してみました。質問の「色相」の数値が何を表すか理解できないため、「色相」の最大値を「10」として計算しています(最小値は「0」)。違っていれば、VBAの「Const maxShikiso As Integer = 10」の「10」を変更してください。色を付けた結果が添付図です。
また、散布図は、Sheet1にあり、グラフはこの一つのみとしています。X座標、Y座標、色相データは添付図のように配置します。散布図はX座標、Y座標のAB列を選択(表題とデータを)して描いてください。C列の色相はVBAで使っています。なお、添付した散布図の表題、凡例は削除し、X座標、Y座標の最大値は10に修正しています。
下のマクロを下記手順で貼り付けます。
散布図ができたら開発タブ>マクロから、マクロ「paint散布図」を実行してください。点に色が付くはずです。
色が付いた後は個々のデータのX座標、Y座標を変更しても構いませんが、データを追加した場合は元の散布図を削除して散布図を作り直してマクロを再度実行してください。マクロを複雑にしたくないため、グラフは1つとしているためです。
【マクロの貼り付け】
●「開発」タブをクリックして「Visual Basic」ボタンをクリックします。(または ALTキー+F11キー を押します)
●Microsoft Visual Basic for Applications の画面が開きます。(VBE)
●VBE画面の左にプロジェクト画面が表示されていなかったら、メニューから、表示>プロジェクトエクスプローラーを選択します。
●プロジェクトエクスプローラーが表示されたら、ツリー表示の「Sheet1」をダブルクリックします。
●表示された広い画面に回答したコート(「Sub paint散布図() ~ End Sub」になります)をコピーして貼り付けます。
Sub paint散布図()
Const maxShikiso As Integer = 10 '色相の最大値
Dim p As Integer '散布図の点のカウンタ
Dim Shikiso As Integer '色相を360度に換算
Dim Red As Integer 'RGBの赤
Dim Green As Integer 'RGBの緑
Dim Blue As Integer 'RGBの青
'「色相」の入力範囲の特定
Dim rngShikiso As Range '色相が入力されたセル範囲
Set rngShikiso = Range("C2:C" & Range("C" & Rows.Count).End(xlUp).Row)
'散布図はSheet1にあり、グラフは1つのみとする
Worksheets("Sheet1").ChartObjects(1).Select
With ActiveChart.SeriesCollection(1)
For p = 1 To .Points.Count
'色相の数値を度数に変換
Shikiso = Int(360 * rngShikiso.Cells(p) / maxShikiso)
'色相の度数をRGBに変換
Select Case True
Case Shikiso <= 60 '0度~60度
Red = 255: Blue = 0
Green = Int(255 * (Shikiso - 0) / 60)
Case Shikiso <= 120 '60度~120度
Green = 255: Blue = 0
Red = Int(255 * (1 - (Shikiso - 60) / 60))
Case Shikiso <= 180 '120度~180度
Red = 0: Green = 255
Blue = Int(255 * (Shikiso - 120) / 60)
Case Shikiso <= 240 '180度~240度
Red = 0: Blue = 255
Green = Int(255 * (1 - (Shikiso - 180) / 60))
Case Shikiso <= 300 '240度~300度
Green = 0: Blue = 255
Red = Int(255 * (Shikiso - 240) / 60)
Case Shikiso <= 360 '300度~360度
Red = 255: Green = 0
Blue = Int(255 * (1 - (Shikiso - 300) / 60))
End Select
'点に色を付ける
With .Points(p)
.MarkerForegroundColor = RGB(Red, Green, Blue)
.MarkerBackgroundColor = RGB(Red, Green, Blue)
End With
Next
End With
End Sub
![「【グラフの点の色】一個ごとに色相、彩度、」の回答画像1](http://oshiete.xgoo.jp/_/bucket/oshietegoo/images/media/3/2095557_5497ec3228c30/M.jpg)
質問を的確に理解した回答をしてもらえて感謝いたします。
私のソフトはLibre Officeなので、Excel向けの回答を元に実現するつもりでしたが、マクロが必要になるということで、調べるのに時間がかかりお礼が遅くなりました。
その結果、Libre Officeでマクロを使うにはJava実行環境が必要で、そのJavaはセキュリティに問題が多いので、マクロの使用は諦めました。
無料で使えるExcel Onlineもマクロ機能がありません。
せっかく丁寧な回答を頂いたのに生かせず済みませんでした。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- 芸術学 バルールとはなんでしょうか。 この絵が「正解」である場合、ピントの合っている部分から奥に行くにつれて 1 2022/04/01 04:44
- Excel(エクセル) 図のような散布図の作り方を教えてください。 1 2022/07/19 11:52
- Excel(エクセル) [Excel2016] 相関表等の自動作成 2 2022/08/01 20:34
- 会社・職場 名刺入れの色、デザインについて 3 2023/01/21 11:24
- 統計学 確率統計でExcelの使い方を教えてください。 3 2022/07/27 19:21
- Excel(エクセル) Excelグラフについて 1 2022/06/16 16:06
- モニター・ディスプレイ ASUS ノートパソコン有機EL AMDディスプレイ 白 1 2023/07/22 13:36
- モニター・ディスプレイ AMD Ryzenのディスプレイ設定どうしてますか? 2 2023/07/17 17:58
- 統計学 Excelによるサンプルの拡大について 6 2023/08/22 16:03
- クラシック ジェイムズ・レヴァインという指揮者は一般的にどの程度の人気だと思いますか? 1 2022/12/14 23:06
関連するカテゴリからQ&Aを探す
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
AUTO CADでの三角形の書き方
-
auto cadの長方形が描けません
-
延長の合計で・・・
-
AUTOCADでサインカーブの書き方...
-
HO_CAD:測量コマンドで図から...
-
AutoCADで座標の表示について
-
Excelで電話番号表と座席表を作...
-
JW-CADで図形を揃える方法
-
曲線に対しての垂線の引き方に...
-
AutoCAD LT 「画層プロパティ管...
-
AutoCADで矢印
-
オートシェイプ曲線図形を部分...
-
AutoCADで元に戻すをズームには...
-
Autocadで3D面から線分へ変換
-
AutoCADでショートカットキーの...
-
CADで横線を3等分した縦線を書...
-
AutoCAD2007LTでESCキー操作(...
-
AUTOCAD LT 図形が閉じているか...
-
複数の線を同時に同じ長さだけ...
-
ほぼ正確な四角形の出し方
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
AUTO CADでの三角形の書き方
-
auto cadの長方形が描けません
-
AUTOCADでサインカーブの書き方...
-
AUTOCADの座標の+-
-
HO_CAD:測量コマンドで図から...
-
AutoCADの、トラッキング機能に...
-
DXFを解読したい!!
-
Excelで電話番号表と座席表を作...
-
AutoCADで座標の表示について
-
座標入力「,」カンマをテンキ...
-
CAD操作について(座標の記入に...
-
エクセルもしくはテキストの座...
-
CADの縦断図について
-
AutoCAD LT カーブした長穴を...
-
【AUTO CAD】 テキストボック...
-
【グラフの点の色】一個ごとに...
-
Autocadの移動について
-
AUTO CADで拾った座標値をエク...
-
Excel VBAにて座標読み込み・配置
-
AutoCad LT 2007でアイソメ図の...
おすすめ情報