Excel VBA質問箱 IV

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

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


30549 / 76732 ←次へ | 前へ→

【51448】Re:棒グラフのカラー設定
質問  悩める老人 E-MAIL  - 07/9/18(火) 17:21 -

引用なし
パスワード
   ▼Jaka さん:

大変失礼しました。

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

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 = "日付"
   '横軸日付をフォントサイズを9にする
   .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

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

【51437】棒グラフのカラー設定 悩める老人 07/9/18(火) 13:12 質問
【51440】Re:棒グラフのカラー設定 Jaka 07/9/18(火) 15:52 発言
【51448】Re:棒グラフのカラー設定 悩める老人 07/9/18(火) 17:21 質問
【51456】Re:棒グラフのカラー設定 Jaka 07/9/19(水) 16:03 発言
【51457】Re:棒グラフのカラー設定 悩める老人 07/9/19(水) 19:58 お礼

30549 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free