Sub RSIƒOƒ‰ƒt()
Dim evra As String
Dim evrb As Integer
    evra = Application.Version
    evrb = Val(Left(evra, 2))

Application.ScreenUpdating = False
ActiveSheet.Unprotect

'ƒ`ƒƒ�[ƒg•�‚ðŠm•Û
    Rows("2:2").RowHeight = 260

shname = ActiveSheet.Name

' ‹ŒƒOƒ‰ƒt�í�œ
    For Each zu In ActiveSheet.Shapes
        zu.Delete
    Next

'ƒOƒ‰ƒt–Ú�·‚è�Å�¬’l
Set myrang = Range(Cells(4, 4), Cells(GYOU, 4))
    yasune = Application.WorksheetFunction.Min(myrang)

'ƒOƒ‰ƒt�ì�¬
If evrb = 12 Then
    For i = 4 To GYOU
        Cells(i, 14) = Cells(GYOU + 4 - i, 6)
    Next
Else
    For i = 4 To GYOU
        Cells(i, 14) = Cells(i, 6)
    Next
End If
    Cells(3, 14) = Cells(3, 6)

Set rangch = Union(Range(Cells(3, 1), Cells(GYOU, 1)), _
Range(Cells(3, 11), Cells(GYOU, 14))) '6�¨14

    ActiveSheet.ChartObjects.Add(5, 18, 550, 250).Select
    ActiveChart.ChartType = xlLineMarkers
    ActiveChart.SetSourceData Source:=rangch, PlotBy _
        :=xlColumns
    ActiveChart.Location Where:=xlLocationAsObject, Name:=shname
    
'ƒf�[ƒ^‚Ì‚ ‚é“ú‚Ì‚Ý•\Ž¦
ActiveChart.Axes(xlCategory, xlPrimary).CategoryType = xlCategoryScale

'Ž²‚Ì”½“]
  With ActiveChart.Axes(xlCategory)
        .AxisBetweenCategories = True
        .ReversePlotOrder = True
  End With

'ƒOƒ‹�[ƒv2‚Ö•ª—£
    ActiveChart.SeriesCollection(4).AxisGroup = 2  '1�¨4
   
'�¶�c—ñ•¶Žš’²�®
With ActiveChart.Axes(xlValue, xlSecondary)
   .TickLabels.Font.Size = 8
         If .MaximumScale < 1001 Then
            .MinimumScale = Int(Int(yasune * 0.9) / 10) * 10
         Else
            .MinimumScale = Int(Int(yasune * 0.9) / 100) * 100
         End If
End With

'�¶�c—ñ•¶Žš’²�®
With ActiveChart.Axes(xlValue)
     .TickLabels.Font.Size = 8
     .TickLabels.NumberFormatLocal = "0_ "
     .MinimumScale = 0
     .MaximumScale = 100
End With

'‰º—ñ•¶Žš’²�®
With ActiveChart.Axes(xlCategory).TickLabels
        .Font.Size = 8
        .NumberFormatLocal = "yy/mm/dd"
        .Orientation = xlDownward
End With


  
'ƒvƒ�ƒbƒgƒGƒŠƒA‚Ì�F
 ActiveChart.PlotArea.Interior.ColorIndex = 2
  
'–}—áˆÊ’u’²�®
 ActiveChart.Legend.Position = xlBottom
 
'�I’l
    With ActiveChart.SeriesCollection(4)  '1�¨4
        .Border.ColorIndex = 1
        .Border.Weight = xlMedium
        .Border.LineStyle = xlDot
        .MarkerStyle = xlNone
    End With
 
 
'RSI6
    With ActiveChart.SeriesCollection(1)  '2�¨1
        .Border.ColorIndex = 10
        .Border.Weight = xlMedium
        .Border.LineStyle = xlContinuous
        .MarkerStyle = xlNone
    End With
'RSI9
   With ActiveChart.SeriesCollection(2)  '3�¨2
        .Border.ColorIndex = 3
        .Border.Weight = xlMedium
        .Border.LineStyle = xlContinuous
        .MarkerStyle = xlNone
    End With
'RSI25
   With ActiveChart.SeriesCollection(3)  '4�¨3
        .Border.ColorIndex = 5
        .Border.Weight = xlMedium
        .Border.LineStyle = xlContinuous
        .MarkerBackgroundColorIndex = 5
        .MarkerStyle = xlNone
    End With
    

ActiveSheet.Protect DrawingObjects:=True
Range("G1").Select


End Sub