Excel VBA質問箱 IV

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

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


46515 / 76735 ←次へ | 前へ→

【35190】Re:グラフの最大値と最小値について
回答  Kein  - 06/2/23(木) 14:44 -

引用なし
パスワード
   やっぱり応用が出来なかったのですね・・。それなら初めから「系列は3つある」と
条件を提示すればよかったと思います。二度手間にならずに済むのだから。
ま、いちおうこんな感じで。

Sub MyChart_Set_Axis2()
  Dim MyCh As Chart, MySe As Variant
  Dim i As Integer
  Dim MxP As Single, MiP As Single
 
  Set MyCh = ActiveSheet.ChartObjects(1).Chart
  Set MySe = MyCh.SeriesCollection
  With WorksheetFunction
   For i = 1 To MySe.Count
     If i = 1 Then
      MxP = .Max(MySe.Item(i).Values)
      MiP = .Min(MySe.Item(i).Values)
     Else
      If .Max(MySe.Item(i).Values) > MxP Then
        MxP = .Max(MySe.Item(i).Values)
      End If
      If .Min(MySe.Item(i).Values) < MiP Then
        MiP = .Min(MySe.Item(i).Values)
      End If
     End If
   Next i
   MxP = .Ceiling(MxP, 0.05)
   MiP = .Floor(MiP, 0.05)
  End With
  With MyCh.Axes(xlValue)
   .MajorUnit = 0.05
   .MinimumScale = MiP
   .MaximumScale = MxP
  End With
  Set MySe = Nothing: Set MyCh = Nothing
End Sub
1 hits

【35187】グラフの最大値と最小値について ぷーちゃん 06/2/23(木) 14:08 質問
【35190】Re:グラフの最大値と最小値について Kein 06/2/23(木) 14:44 回答
【35196】Re:グラフの最大値と最小値について ぷーちゃん 06/2/23(木) 16:31 質問
【35197】Re:グラフの最大値と最小値について Kein 06/2/23(木) 16:41 発言
【35205】Re:グラフの最大値と最小値について ぷーちゃん 06/2/23(木) 18:35 質問
【35208】Re:グラフの最大値と最小値について Kein 06/2/23(木) 20:29 発言
【35209】Re:グラフの最大値と最小値について ぷーちゃん 06/2/23(木) 20:35 お礼

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