[[20050209121702]] 『グラフの大きさと凡例の色を固定』(うさ) ページの最後に飛ぶ

[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]

 

『グラフの大きさと凡例の色を固定』(うさ)

内訳グラフ(円グラフ)を作成しているのですが、毎回同じフォームで作っているにも関わらずウィンドウの大きさを変えるとそれに連動してグラフの大きさなどが変わるグラフと変わらないグラフが出来てしまうのはなぜでしょうか?

また、こうならない為にも同じ大きさ・位置のグラフを毎回指定して作りたいのですがどうすればいいですか?過去ログを見たのですが「グラフの段階でコピー」というのがいまいち分かりませんでした。

凡例の色は現在手動で直していますが、それも(赤−A商品,青−B商品…)のように固定することは可能でしょうか?長々とすいませんが教えてください。

Excel2000、WindowsXP使用です。


 一度お好みのグラフを作って、そのグラフを右クリック>グラフの種類>ユーザー設定タブ
 >標準グラフに設定>で出てくるボックスに適当な名前を付けてみてください。

 (川野鮎太郎)


 ありがとうございます!やってみました。
 川野さんの教えてくださったやり方でグラフの大きさは統一することができましたが
 凡例ですが、私の言い方がわるかったのですが、データを数値の多い順に並べて作り変えている為
 1のグラフだと(赤-A商品,青-B商品)となるところ、2のグラフだと(赤-C商品,青-A商品)
 のように同じ商品でも違う色になってしまう為、現在は手動で直しています。
 これを自動的に直す方法は何かありますか?あればぜひ教えてください。


 色も一度変えてから上記の設定をすれば、第1項目が何色と固定されませんか。
 (川野鮎太郎)


 ありがとうございます!やってみますね。
 (うさ)


 自分の名前入れ忘れていました(^^;)
 やってみて、確かに指定した色が順番に区分けされたのですが、項目の個数がグラフ別に違うのでうまくいきません。
 質問では商品を例で挙げましたが(これが良くなかったですね…)、実際は質問内容の集計をしていまして
 セルの内容は

 A     B  
 質問内容  件数

 というようになっています。
 なので、1のグラフには質問A〜Fまであるけれど、2のグラフには質問B〜Jがあるというように
 グラフによってある質問とない質問があります。
 このような場合はどうすればよいでしょうか?たびたびすみませんが教えてください。
 (うさ)


 (追記)
 質問はその月にあったものを多い順にソートしてからグラフを作っています。(うさ)


 あっ\(◎o◎)/! やっと意味が判りました(^_^A;
 常に同じ商品は同じ色にしたいってことですね!!。
 出来ないと思います_/ ̄|○ il||li

 マクロでだったら可能かもだけど・・・。
 (川野鮎太郎)


 マクロですか…(^^;)
 あまり詳しくないのですが、できれば便利だなぁと常々思っていたので
 これを機にやってみたいのですが、もしマクロでできるとすればどのようにすればいいでしょうか?
 (うさ)


 ちなみに、文字などの色を変えるときは「FontColr」を使うようですが
 何番が何色、というのはどこでわかるのでしょうか??
 (うさ)

[[20050115131721]] 『条件式書式を6つやりたいんですが・・・』(sirouto)
 新・単語検索で「さる くま」と入れて検索すると出てきます。
 (ひよっぴ)


 ありがとうございます!!
 少し自分で奮闘してみようと思います☆
 (うさ)


 マクロの記録を活用してみてください。少し手を加えたのが下のコードです。
 Sheet1	 [A]	 [B]	 [C]	 [D]	 [E]
 [ 1]		AA	BB	CC	DD
 [ 2]	AAA	100	80	60	40
 [ 3]	BBB	120	60	70	80
 [ 4]	CCC	140	40	80	120
 [ 5]	DDD	160	20	90	160
 [ 6]	EEE	180	0	100	200
 [ 7]	FFF	200	-20	110	240
 
Sub Test()
    Charts.Add
    ActiveChart.ChartType = xlLineMarkers
    ActiveChart.SetSourceData Source:=Sheets("Sheet1").Range("A1:E7"), PlotBy:= _
        xlColumns
    ActiveChart.Location Where:=xlLocationAsObject, Name:="Sheet1"
    LineCount = ActiveChart.SeriesCollection.Count
    For i = 1 To LineCount
    MyV = Worksheets("Sheet1").Cells(1, i + 1).Value
        Select Case MyV
            Case "AA"
                MyColor = 5
            Case "BB"
                MyColor = 3
            Case "CC"
                MyColor = 50
            Case "DD"
                MyColor = 54
            Case "EE"
                MyColor = 38
        End Select
        With ActiveChart.SeriesCollection(i)
            .Border.ColorIndex = MyColor
            .MarkerBackgroundColorIndex = MyColor
            .MarkerForegroundColorIndex = MyColor
            .Border.Weight = xlThin
            .Border.LineStyle = xlContinuous
        End With
    Next i
End Sub

 ※これは折れ線グラフでやってますので、マクロの記録をするときに
 最初にレスした標準のグラフに設定したものを選択すると最初の行が
ActiveChart.ApplyCustomType ChartType:=xlUserDefined, TypeName:="標準"
 こんな感じになると思います。

 あとは、標準グラフの色を順番に色を変えていくと上手く記録が取れると思います。
 まずは上の表とコードで試してみてください。

 (川野鮎太郎)

コメント返信:

[ 一覧(最新更新順) ]


YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki. Modified by kazu.