Excel VBA質問箱 IV

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

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


46666 / 76735 ←次へ | 前へ→

【35037】Re:グラフのY軸スケール範囲の設定
お礼  ぷーちゃん  - 06/2/19(日) 20:13 -

引用なし
パスワード
   ▼Kein さん:
>既存のグラフを対象にするなら、そのように改造すればいいのです。
>例えば
>
>Sub MyChart_Set_Axis()
>  Dim MyCh As ChartObject
>  Dim MySe As Series
>  Dim MxP As Single, MiP As Single
> 
>  Set MyCh = ActiveSheet.ChartObjects(1)
>  Set MySe = MyCh.Chart.SeriesCollection(1)
>  With WorksheetFunction
>   MxP = .Ceiling(.Max(MySe.Values), 0.05)
>   MiP = .Floor(.Min(MySe.Values), 0.05)
>  End With
>  With MyCh.Chart.Axes(xlValue)
>   .MajorUnit = 0.05
>   .MinimumScale = MiP
>   .MaximumScale = MxP
>  End With
>  Set MySe = Nothing: Set MyCh = Nothing
>End Sub
>
>後はこれの応用です。


できました! Keinさんには、前回も教えて頂き、感謝しております。
本当に有難うございました。

0 hits

【35025】グラフのY軸スケール範囲の設定 ぷーちゃん 06/2/19(日) 13:27 質問
【35026】Re:グラフのY軸スケール範囲の設定 Kein 06/2/19(日) 14:03 発言
【35030】Re:グラフのY軸スケール範囲の設定 ぷーちゃん 06/2/19(日) 16:37 発言
【35031】Re:グラフのY軸スケール範囲の設定 Kein 06/2/19(日) 17:00 回答
【35037】Re:グラフのY軸スケール範囲の設定 ぷーちゃん 06/2/19(日) 20:13 お礼

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