|
▼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さんには、前回も教えて頂き、感謝しております。
本当に有難うございました。
|
|