• 締切済み

Excellのマクロで、グラフの系列の色を変えるマクロをつくりました。

Excellのマクロで、グラフの系列の色を変えるマクロをつくりました。 系列１から順にカラーインデックス番号１、２、３、…を割り振るマクロです。 しかし！蛍光色や、白、といった見えにくい色（colorIndex=2,4,6,8,…）の線がでてきてしまいます。 なので、見えにくい色以外の番号が、系列１から順に、系列の色になるようにしたいのですが、どうしたらよいでしょうか？ つくり方はわかりませんが関数をつくるのでしょうか？（f(1,2,3,4,…)=1,3,5,7,…）のような。。 最も簡単な解決方法を教えて下さい。

みんなの回答

回答No.1

あなたが見えやすいと思う番号の色を使えば良いだけ。 関数にしようが配列にしようがクラスにしようが、それはご自由に。

  1. カテゴリ
  2. [技術者向] コンピューター
  3. プログラミング・開発
  4. Visual Basic

関連するQ&A

  • VBA グラフ 系列の名前で指定してグラフ色変更

    VBA マクロにて、任意で指定する系列の名前のグラフの色を変更したいです。 グラフに関するマクロを作成するのは初めてです。 ワークシートには約30個ほどのグラフがあります。 ワークシート内の選択されている複数のグラフに実行したいです。 グラフのラベル名ではなく、コントロール+クリックでグラフを選択した状態でマクロを実行するイメージです。 例） (1)ユーザーフォームにて下記の情報を取得し、変数に格納する。 系列の名前 　 色 「”酸素”」 ⇒ ["赤"]※番号はこれから調べようと思います 「”水素”」 ⇒ ["青"] 「”窒素"」 ⇒ ["緑"] (2)ActiveSheet内の、選択されているグラフの系列の名前が上記の名前と一致する線を、上記の色に変更する。 ※グラフの種類は基本は２軸の散布図（直線）ですが、他の種類も使用する事があります。 ※2007Excelで作成をします。 このようなことは可能でしょうか？

  • カラー番号でカウントするには

    いつもお世話になります。 WIN7 EXCELL2010　です。 下記のマクロと数式にて　F4:F7　にカラー番号を示しています。 マクロ Function CellColor(セル) CellColor = セル.Interior.ColorIndex End Function 数式 F4 =CellColor(E4) 御指導を仰ぎたいのは、 F4 : F7 の４つのみのカラー番号(この場合　24/14/40/48)で B2 には　5件 C2　には 2件　と関数でカウントすることは可能でしょうか。 もし可能ならばご教授をいただけないでしょうか。 よろしくお願いします。

  • VBAでのグラフの系列の設定について

    グラフの系列設定（線種やマーカースタイル）をマクロで行おうとしていますが、 With Selection.Border .LineStyle = LST(I + 1) .ColorIndex = CID(I + 1) .WEIGHT = WGT(I + 1) End With With Selection .MarkerStyle = MST(I + 1) .MarkerBackgroundColorIndex = MBC(I + 1) .MarkerForegroundColorIndex = MFC(I + 1) .MarkerSize = MSZ(I + 1) .Shadow = SDW(I + 1) .Smooth = False End With というふうに設定を変数にすると、うまく走りません。 LST()はSTRINGで定義しています。 カラーインデックスはINTEGERで定義していますが、これはいけます。 どうしたらいいのでしょうか？

  • Excelグラフで線の色はそのままで系列順序を変更

    Excelのグラフで、各系列の色・線種などは自動で割り振っていますが、現在の各系列と色等の対応関係はそのままにし、系列の順序のみを変更することはできますか。 目的は、 １　系列名称と色等の対応関係は、複数のグラフで同一にしたい。 ２　凡例での系列の並びを、グラフによって変更したい(右端区間でもっとも値の大きいのを最上に) です。 例をあげれば、PC、テレビ、クーラーの３系列の、価格を縦軸に、年代(1990,1995,2000年）を横軸に表したグラフがアメリカ、中国、日本の３個あるとして、車は赤、テレビは青、PCは黄色と色を統一し、かつ、グラフによって凡例での表示順を(そのグラフでの2000年の価格の高い順に)変えたいのです。 実際には系列数・グラフ数が多く手作業では大変です。VBAなどを使って最初から簡単に実現する方法があれば、その方がありがたいのですが。

  • VBAで棒グラフの色を変えたい

    VBAの初心者です。 棒グラフで1つの系列の色を自動で変えたいのですが、うまくできません。 エクセルファイルは品目ごとにシートが分かれていてすべておなじようにグラフがあります。 図のように、進行率順に並び替えるので、シートごとに店舗「Ｅ」は順番がかわります。 例としてシート「りんご」のグラフの店舗「Ｅ」のみを色を変えていく場合はどのようにしたらできるでしょうか？ マクロの記録でやってみてもうまくいきません。 ご回答、よろしくおねがいします。

  • エクセルVBA　自動設定のグラフ系列色のRGB

    VBA初級者です。 エクセルで自動設定されたグラフ系列色（点のみ、線なし）の RGBを取得するにはどうしたらいいのでしょうか？ 系列色を設定する方法は以下のようにすればいいようですが。。。 ActiveSheet.ChartObjects("グラフ 1").Activate ActiveChart.SeriesCollection(1).Select 　　 With Selection .MarkerBackgroundColorIndex = 色番号 / xlAutomatic .MarkerForegroundColorIndex = 色番号 / xlAutomatic 　　　または、 　　　 .MarkerBackgroundColor = RGB(?,?,?) .MarkerForegroundColor = RGB(?,?,?) End With 私がやりたいことは、上のような記述でxlAutomaticで自動的に設定された ある系列の色を他の系列にも適用したいのです。もう少し具体的に言うと、 系列1，2、系列3，4、のように隣り合う系列を同色にしたいのです。 系列数が少なければ各組合せに対してRGBを設定すればいいのですが、 系列が大量になってきますと、自分でRGBを設定するのも大変で、 系列１，３，５・・・に関しては、xlAutomaticで自動設定して、その色を 系列２，４，６・・・に適用しようと思ったのですが、よくわかりませんでした。 ActiveChart.SeriesCollection(1).Select　 With Selection .MarkerBackgroundColorIndex = xlAutomatic Color = MarkerBackgroundColorIndex End With ActiveChart.SeriesCollection(2).Select　 With Selection .MarkerBackgroundColorIndex = Color End With などとしてみましたがダメでした。恥ずかしながら基礎を 理解できていないので詳しく説明していただけると幸いです。 よろしくお願いいたします。

  • Excelのマクロで、円グラフの色を指定したい

    毎月使用するためのグラフのフォーマットを作成しています。 マクロ作成を何度も試みましたが、不慣れでなかなかうまくいきません。 どなたかご教授いただけると助かります。 Sheet1に以下のような表があります。 　　A　　　B 1　A社　　10 2　B社　　34 3　C社　　15 4　D社　　20 5　E社　　5 6　F社　　13 7　G社　　32 A列は項目名、B列には数値が入っています。 これを元にした円グラフを、Sheet2に作成してあります。 円グラフなので、当月の数値を入力後、降順に並べ替えます。 ただ、並べ替えるとそれぞれの企業のグラフ色が毎月変わってしまうため、 項目毎にグラフの色を固定したいと思っています。 円グラフの色を固定（指定？）するマクロを作成したいのです。 http://excel-ubara.com/excelvba/EXCELVBA218.html http://hamachan.info/win7/Excel/engraph_color.html 上記ふたつのページにたどり着き、参考にしました。 特にひとつめのリンクで、表につけた色とグラフの色を同じにできるなら 簡単だと思い、すでに表の項目は、グラフにつけたい色で塗りつぶしています。 上記リンクのマクロを実行してみたところ、 グラフの色が全て真っ白になってしまいました。 表とグラフが別シートにあるので、そのままのマクロではダメなのでしょうか。 円グラフを選択してマクロを実行したら、表の項目名の色とグラフの色を 同じにするマクロを作成したいです。 不足している情報があればご指摘ください。 どうぞよろしくお願いいたします。

  • エクセルのグラフの線を2003と同じ色を付けたい。

    エクセル2010の標準の色が気に入らず、 2003互換のカラーパレットのアドインを入れているのですが、 グラフの線の色まで変わりません。 グラフの線の色を2003と同じ色を付けることは出来ないのでしょうか？

  • グラフの色を数値で変わるように！

    ＶＢＡの初心者です。棒グラフの棒全体の色を変えたり、系列で色分けしたりするのはよく参考までに本等にでてるんですが、グラフの色を数値（○点以上は赤！とか）で変わるようにマクロで組みたいのですが、どうやったいいのか教えてください。 可能であれば、初心者にも理解できるようにお願いできればと・・・(^mm^)ゞ

  • マクロでグラフ

    sheet2にある3項目の24時間の変化のデータをグラフウィザードとマクロの自動記録を使用してsheet１の指定した位置と大きさで折れ線グラフで（同時に線の色とフォントサイズも指定）作成する方法を教えてください。

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する

あなたにピッタリな商品が見つかる！ OKWAVEセレクト

質問する