| |
▼Kein さん：
>With MyCh.Axes(xlValue)
すいません。こんどは、下記コードで、エラーはでないのですが、なにも変わらないのですが...
Dim MyCh As Chart, MySe As Variant
Dim i As Integer
Dim MxP As Single, MiP As Single
Dim KanB As Single
AAA1 = 5
AAA2 = 10
AAA3 = 50
AAA4 = 500
AAA5 = 5000
AAA6 = 50000
AAA7 = 500000
BBB = 5
ActiveSheet.ChartObjects("グラフ 809").Activate
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
If MiP < 100 Then KanB = AAA1
If MiP >= 100 And MiP < 1000 Then KanB = AAA2
If MiP >= 1000 And MiP < 10000 Then KanB = AAA3
If MiP >= 10000 And MiP < 100000 Then KanB = AAA4
If MiP >= 100000 And MiP < 1000000 Then KanB = AAA5
If MiP >= 1000000 And MiP < 10000000 Then KanB = AAA6
If MiP > 10000000 Then
KanA = AAA7
End If
With WorksheetFunction
MxP = .Ceiling(MxP, KanB)
MiP = .Floor(MiP, KanB)
End With
With MyCh.Axes(xlValue)
.MinimumScale = MiP
.MaximumScale = MxP
End With
BMa1 = MyCh.Axes(xlValue).MajorUnit
BMi1 = MyCh.Axes(xlValue).MinimumScale
BBB1 = BMi1 + BMa1
BBB4 = BMi1 + BMa1 * (BBB - 1)
BBB5 = BMi1 + BMa1 * BBB
BBB11 = ((BBB1 / BMi1) - 1) * 100
BBB55 = ((BBB5 / BBB4) - 1) * 100
Range("IT1") = Round(BBB11, 1)
Range("IU1") = Round(BBB55, 1)
Set MySe = Nothing: Set MyCh = Nothing
|
|
ぷーちゃん
- 06/2/23(木) 18:35 -
