No.2ベストアンサー
- 回答日時:
.SeriesCollection毎に、系列名を取得し、Split関数でメーカー名を抽出します。
Select Case文で、メーカー名毎にプロット線のColorIndexを設定します。
AA、BB、CCとかは実際のメーカー名に書き換える必要があります。
ColorIndexは「マクロの記録」で調べる。あるいは、ColorIndex 一覧 でWeb検索すれば下記のようなページがヒットします。
ColorIndexプロパティ値一覧
http://www.relief.jp/itnote/archives/000482.php
ColorIndexプロパティ値一覧
http://www.relief.jp/itnote/xls_colorindex.php
該当グラフを選択しておいてマクロを実行してください。
Sub test1()
Dim scname As String
Dim colidx As Variant
Dim i As Integer
With ActiveChart
For i = 1 To .SeriesCollection.Count
scname = .SeriesCollection(i).name
Select Case Split(scname, " ")(0)
Case "AA": colidx = 4
Case "BB": colidx = 5
Case "CC": colidx = 6
Case "DD": colidx = 7
Case "EE": colidx = 8
End Select
.SeriesCollection(i).Border.ColorIndex = colidx
Next
End With
End Sub
完全に解決いたしました!!!
大変ありがとうございましたm(_ _)m フルにコードを打ってまで頂き、非常に楽をさせていただいたばかりでなく、勉強にもなりました!!
今後線色だけでなく、マーカ色もイジってみようと思っております。
No.3
- 回答日時:
>今後線色だけでなく、マーカ色もイジってみようと思っております。
期待しています。
マクロの記録すれば分かると思いますが
マーカーの色は、前景色と背景色があります。
MarkerBackgroundColorIndex
MarkerForegroundColorIndex
疑問がおありなら遠慮なく捕捉質問してください。
重ね重ねご指導ご鞭撻いただきありがとうございます。
締め切り処理に関しましては失念しておりました!
お恥ずかしい限りです!
取り急ぎ締切らせていただく旨と共に
再度の御礼まで。
No.1
- 回答日時:
マクロを組むことになると思います。
添付画像では様子が分かりません。
サンプルデータと線の配色を決定する「元データの条件」を提示できないでしょうか。
この回答への補足
ご回答いただき大変ありがとうございます。大雑把な質問の仕方で申し訳ございませんでした。
「各系列と元データの対応条件」
「サンプル元データ」
「質問を投稿して以降に私が学んだマクロ知識」
について下記いたします。
何卒宜しくお願いいたします。
「各系列と元データの対応条件」:
(1)系列名は製品名(元データ)にいたします。
(2)系列色はメーカ名と1対1対応させます。
(3)メーカ名の文字列は、もれなく製品名の文字列の先頭に含まれています。
(4)メーカ名は元データのシートに、製品名とは別に入力されています。
「サンプル元データ」:
各列の項目:
製品名/メーカ名/製品コード/レーダの項目となるデータ×10列/
列同士の式関係:
製品名=CONCATENATE(メーカ名," ",製品コード)
元データ例:
製品名 /メーカ名/製品コード/画素数/ISO感度/・・・
キャノン IXY92O/キャノン/IXY92O /1000 /1600 /・・・
ソミー T7O /ソミー /T7O /1200 /1600 /・・・
「質問を投稿して以降に私が学んだマクロ知識」:
系列名を設定する命令がどのように書かれているのか、GUIで記録したマクロをCUIで閲覧(ツール→マクロ→マクロ→ステップイン)して大雑把に学びました。色・サイズ・線のスタイル・マーカのスタイルなどが、どの行で設定されているかだけ確認し、値をいじってみました。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) vbaで条件付き書式を設定したときの適用範囲について 1 2023/07/17 23:14
- Excel(エクセル) 重複データの抽出について 2 2023/07/21 14:52
- Excel(エクセル) Excelで日付のグラフへの表示 2 2022/04/15 11:04
- Excel(エクセル) 条件付き書式で文字入力 6 2022/08/29 10:40
- Excel(エクセル) Excel2007での条件付き書式について 6 2023/05/02 10:56
- 情報処理技術者・Microsoft認定資格 MOS試験Excelエキスパートを受けようか考えています。 Excelは仕事で使用。 関数は入れ子含 2 2022/12/18 10:05
- 工学 制御工学の問題です。 3 2023/01/23 22:32
- Excel(エクセル) EXCELのグラフを画像(JPG形式)で保存、通常実行がうまく行かない。ステップインはうまく行く 3 2022/08/30 12:06
- Visual Basic(VBA) VBA初心者です。 VBAで行単位で条件付き書式の色をカウントしたいです。 大量のデータがあるExc 3 2022/06/08 10:02
- Visual Basic(VBA) VBA初心者です。 VBAで行単位で条件付き書式の色をカウントしたいです。 大量のデータがあるExc 3 2022/06/08 10:00
関連するカテゴリからQ&Aを探す
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
複数のデータ系列の線の太さを...
-
ファイル名を今日の日付、時刻...
-
エクセルでツールバーに「縮小...
-
別ブックからユーザーフォーム...
-
エクセル2007 テキストボ...
-
VBA[Private Sub]のコードをシ...
-
エクセルシートをまとめて印刷...
-
エクセルで「ODBC Microsoft Ac...
-
Excel マクロでグラフの切取り...
-
ピボットグラフの書式の固定に...
-
cellsで特定の離れた範囲を選択...
-
最初の1回のみにボタンクリッ...
-
Pictures.Insertメソッド⇒Shape...
-
VBAでシートの保護をかける際に...
-
EXCELにクリップボードにある画...
-
VBAを使ってエクセルシート...
-
エクセルで日付のマクロをツー...
-
wordのマクロで縮小して貼り付...
-
コマンドプロンプトから操作し...
-
エクセル2010 Shapeをクリップ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
複数のデータ系列の線の太さを...
-
エクセルでツールバーに「縮小...
-
ファイル名を今日の日付、時刻...
-
cellsで特定の離れた範囲を選択...
-
Powerpointでランダムな数字の...
-
VBAに詳しい方教えてください。
-
VBA[Private Sub]のコードをシ...
-
VBAを使ってエクセルシート...
-
【ExcelVBA】クエリの更新とピ...
-
別ブックからユーザーフォーム...
-
ピボットグラフの書式の固定に...
-
Pictures.Insertメソッド⇒Shape...
-
エクセルシートをまとめて印刷...
-
どのドキュメントは暗号化され...
-
最初の1回のみにボタンクリッ...
-
エクセルワークシート上に印刷...
-
エクセル2007 テキストボ...
-
エクセルのマクロでSelection.S...
-
エクセルVBAで、画像の倍率を知...
-
VBAで棒グラフの色を変えたい
おすすめ情報