Excel VBA質問箱 IV

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

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


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

30549 / 76732

←次へ　｜　前へ→


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

悩める老人

- 07/9/18(火) 17:21 -


	引用なし

	パスワード

▼Jaka さん：

大変失礼しました。

表の様式は
シート名；月別　
項目：A1（日付：1から31まで）,B1（計）C1（AA) D1（CC)
この様式でＣ・Ｄ列に任意の数字を入力し下記のコードを書きました。

Public Sub 月別グラフ作成()

　月別.Activate
ActiveSheet.ChartObjects.Delete　
　 ' 評価値グラフ
　　作成グラフ 10, 370, 480, 220, 月別.Range("C1:D32")
End Sub

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
　　　
　　'縦軸ラベル:グラフ小さくなるので非表示

　 '棒グラフに数値を表示する

　　　　　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 '
　　　　　 End With
　　　　　
　'グラフ領域カラーなし
　　　　　　.PlotArea.Border.Weight = xlThin
　　　　　　.PlotArea.Interior.ColorIndex = xlNone
　　 End With
End Sub

上記コードで表示されるＣ列・Ｄ列数値の棒グラフのカラーを変更したいのです。

0 hits

▼

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