Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

30616 / 76807

←次へ　｜　前へ→


	【51456】Re:棒グラフのカラー設定

Jaka - 07/9/19(水) 16:03 -


	引用なし

	パスワード

うまくいかないですね。
下のほうが基本になるような感じですね？
時間がかかるけど１個１個で考えてみました。

Public Sub 作成グラフ(左, 上, 幅, 高, myRange As Range)

　'埋め込みグラフ作成
　 With ActiveSheet.ChartObjects.Add(左, 上, 幅, 高).Chart
　 '積上げ縦棒グラフ
　　 .ChartType = xlColumnStacked
　　 .SetSourceData myRange, PlotBy:=xlColumns
　　 'グラフタイトルはグラフ外に表示

　　'凡例
　　　.HasLegend = True
　　　.Legend.Position = xlLegendPositionTop
　　'横軸ラベル
　　　.Axes(xlCategory, xlPrimary).HasTitle = True
　　　.Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = "日付"
　　 '横軸日付をフォントサイズを９にする
　　 .Axes(xlCategory).TickLabels.Font.Size = 9

　　
　　'縦軸ラベル:グラフ小さくなるので非表示

　 '棒グラフに数値を表示する
'ActiveChart.SeriesCollection(2).DataLabels
　　　　　With .SeriesCollection(1)
　　　　　　.HasDataLabels = True
　　　　　　.DataLabels.Font.Size = 8
　　　　　　.DataLabels.Position = xlLabelPositionCenter
　　　　　　.DataLabels.Interior.ColorIndex = 34
　　　　　　.DataLabels.Interior.Pattern = xlSolid
　　　　　 End With

'　　　　　 With .SeriesCollection(2)　 '上
'　　　　　　　.HasDataLabels = True
'　　　　　　　.DataLabels.Font.Size = 8
'　　　　　　　.DataLabels.Position = xlLabelPositionCenter '
'　　　　　　　.DataLabels.Interior.ColorIndex = 6
'　　　　　　　.DataLabels.Interior.ColorIndex = xlNone
'　　　　　 End With

　　　　　 For i = 1 To 31
　　　　　　　 With .SeriesCollection(2)
　　　　　　　　　.HasDataLabels = True
　　　　　　　　　.Points(i).DataLabel.Font.Size = 8
　　　　　　　　　.Points(i).DataLabel.Interior.ColorIndex = 7
　　　　　　　 End With
　　　　　 Next
　　　
　'グラフ領域カラーなし
　　　　　　.PlotArea.Border.Weight = xlThin
　　　　　　.PlotArea.Interior.ColorIndex = xlNone
　　 End With
End Sub

>シート名；月別
>項目：A1（日付：1から31まで）,B1（計）C1（AA) D1（CC)
これだとなんのこっちゃ状態です。
項目名も含めて、レイアウトでちゃんと書いてください。
データ部が１行～３行とか手抜きせずに。
こういうことを何度も書くのは面倒です。
（結構多いので、何度もといった表現になってしまいます。）

2 hits

▼

【51437】棒グラフのカラー設定 悩める老人 07/9/18(火) 13:12