Excel VBA質問箱 IV

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

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


65655 / 76734 ←次へ | 前へ→

【15651】Re:凡例の色を変えたい
質問  マリンバトル E-MAIL  - 04/7/1(木) 16:33 -

引用なし
パスワード
   ▼Jaka さん:
>こんにちは。
>ここが参考になりませんか?
>
>http://www.vbalab.net/vbaqa/c-board.cgi?cmd=ntr;tree=8876;id=excel

Jaka様

ご返信ありがとうございます。
上記スレも参考にさせていただいたのですが、
↓のところで、色指定をしている というのはわかるのですが、

    With ActiveChart.SeriesCollection(1).Points(i).Interior
      If Range("A" & i).Value >= 30 Then
       .ColorIndex = 3

私が今編集している以下マクロのどの部分に指定すれば良いのか、ちょっとわからないのです。いろいろやってはいるのですが、いつもエラーになります(T-T)
お時間がありましたら、ヒントをいただけませんでしょうか?
ずうずうしいお願いでほんとにすいません。


  'グラフデータ範囲
    With .SeriesCollection(1)
      .XValues = Worksheets(WorkbookName).Range(dat_range(0))  '年齢
      .Values = Worksheets(WorkbookName).Range(dat_range(loopcount))
      .Name = Worksheets(WorkbookName).Range(Gtitle(gcount)).Value
    End With
           
    '凡例指定
    .SeriesCollection.Add Source:= _
        Worksheets(WorkbookName).Range(dat_range(2))
   
    .SeriesCollection.Add Source:= _
        Worksheets(WorkbookName).Range(dat_range(3))

  'タイトル設定
    With .ChartTitle
      .Characters.Text = Worksheets(WorkbookName).Range("A1")"
      .AutoScaleFont = True
      .Font.Size = 14
    End With
    
  'X軸設定
    With .Axes(xlCategory, xlPrimary)
      .HasTitle = True
      .AxisTitle.Characters.Text = Worksheets(WorkbookName).Range("A4")
    End With
    With .Axes(xlCategory)
      .TickLabelSpacing = 5
      .TickMarkSpacing = 5
      With .TickLabels
        .Orientation = xlHorizontal
        .Font.Size = 9
      End With
      .AxisBetweenCategories = False
    End With
    
  'Y軸設定
    With .Axes(xlValue, xlPrimary)
      .HasTitle = True
      .AxisTitle.Characters.Text = "人数"
    End With
    With .Axes(xlValue)
      .MinimumScaleIsAuto = True
      .MaximumScale = GMScale(gcount)
      .MinorUnitIsAuto = True
      .MajorUnit = 5
      .Crosses = xlAutomatic
      .ReversePlotOrder = False
      .ScaleType = xlLinear
      .AxisTitle.Orientation = xlVertical
      .HasMajorGridlines = True
      With .TickLabels
        .Font.Size = 9
      End With
    End With
  End With
5 hits

【15645】凡例の色を変えたい マリンバトル 04/7/1(木) 15:52 質問
【15648】Re:凡例の色を変えたい Jaka 04/7/1(木) 16:07 回答
【15651】Re:凡例の色を変えたい マリンバトル 04/7/1(木) 16:33 質問
【15654】Re:凡例の色を変えたい kein 04/7/1(木) 16:44 回答

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