Sub Плюшка_1()
    ActiveSheet.ChartObjects("Диаграмма 5").Activate
    ActiveChart.SetElement (msoElementDataLabelNone)
    ActiveChart.SetElement (msoElementDataLabelOutSideEnd)
    
    nachalo = Application.InputBox("Укажите номер начального периода:", "Запрос данных", "", Type:=1)
    If nachalo = 0 Then Exit Sub 'nachalo = 1
    konec = Application.InputBox("Укажите номер конечного периода:", "Запрос данных", "", Type:=1)
    If konec = 0 Or konec <= nachalo Then Exit Sub
    
    With ActiveChart.FullSeriesCollection(1)
        ymin = .Points(nachalo).DataLabel.Top
        For n = nachalo To konec
            If ymin > .Points(n).DataLabel.Top Then ymin = .Points(n).DataLabel.Top
        Next
        x1 = .Points(nachalo).DataLabel.Left + .Points(nachalo).DataLabel.Width / 2
        x2 = .Points(konec).DataLabel.Left + .Points(konec).DataLabel.Width / 2
        y1 = .Points(nachalo).DataLabel.Top
        y2 = .Points(konec).DataLabel.Top
        zn = CDbl(.Points(konec).DataLabel.Text) - CDbl(.Points(nachalo).DataLabel.Text)
    End With
    With ActiveChart.Shapes.BuildFreeform(msoEditingAuto, x1, y1)
        .AddNodes msoSegmentLine, msoEditingAuto, x1, ymin - 20
        .AddNodes msoSegmentLine, msoEditingAuto, x2, ymin - 20
        .AddNodes msoSegmentLine, msoEditingAuto, x2, y2
        .ConvertToShape.Select
    End With
    
    With Selection.ShapeRange.Line
        .Weight = 4
        .EndArrowheadStyle = msoArrowheadStealth
        .ForeColor.ObjectThemeColor = msoThemeColorText2
        .ForeColor.Brightness = 0.6000000238
    End With
    
    ActiveChart.Shapes.AddShape(msoShapeOval, x1 + (x2 - x1) / 2 - 25, ymin - 32, 50, 24).Select
    With Selection.ShapeRange
        .Fill.ForeColor.ObjectThemeColor = msoThemeColorBackground1
        .Line.ForeColor.ObjectThemeColor = msoThemeColorText2
        .Line.ForeColor.Brightness = 0.6000000238
        .Line.Weight = 2
        .TextFrame2.TextRange.Characters.Text = IIf(zn > 0, "+" & zn, zn)
        .TextFrame2.TextRange.Font.Fill.ForeColor.ObjectThemeColor = msoThemeColorText1
        .TextFrame2.VerticalAnchor = msoAnchorMiddle
        .TextFrame2.HorizontalAnchor = msoAnchorCenter
        .TextFrame2.TextRange.Font.Bold = msoTrue
        .TextFrame2.TextRange.Font.Fill.ForeColor.ObjectThemeColor = msoThemeColorText2
        .TextFrame2.TextRange.Font.Fill.ForeColor.Brightness = 0.400000006
        .TextFrame2.MarginLeft = 0.2834645669
        .TextFrame2.MarginRight = 0.2834645669
    End With
End Sub

Sub Плюшка_2()
    ActiveSheet.ChartObjects("Диаграмма 5").Activate
    ActiveChart.SetElement (msoElementDataLabelNone)
    ActiveChart.SetElement (msoElementDataLabelOutSideEnd)
    
    nachalo = Application.InputBox("Укажите номер начального периода:", "Запрос данных", "", Type:=1)
    If nachalo = 0 Then Exit Sub
    konec = Application.InputBox("Укажите номер конечного периода:", "Запрос данных", "", Type:=1)
    If konec = 0 Or konec <= nachalo Then Exit Sub
    
    With ActiveChart.FullSeriesCollection(1)
        xmax = .Points(.Points.Count).DataLabel.Left
        x1 = .Points(nachalo).DataLabel.Left + .Points(nachalo).DataLabel.Width / 2
        x2 = .Points(konec).DataLabel.Left + .Points(konec).DataLabel.Width / 2
        y1 = .Points(nachalo).DataLabel.Top + .Points(nachalo).DataLabel.Height + 2.54
        y2 = .Points(konec).DataLabel.Top + .Points(konec).DataLabel.Height + 2.54
        zn = (CDbl(.Points(konec).DataLabel.Text) - CDbl(.Points(nachalo).DataLabel.Text)) / CDbl(.Points(nachalo).DataLabel.Text)
    End With
    
    ActiveChart.Shapes.AddConnector(msoConnectorStraight, x1, y1, xmax + 55, y1).Select
    With Selection.ShapeRange.Line
        .Weight = 1.2
        .ForeColor.ObjectThemeColor = msoThemeColorText2
        .ForeColor.Brightness = 0.6000000238
        .DashStyle = msoLineLongDash
    End With
        
    ActiveChart.Shapes.AddConnector(msoConnectorStraight, x2, y2, xmax + 55, y2).Select
    With Selection.ShapeRange.Line
        .Weight = 1.2
        .ForeColor.ObjectThemeColor = msoThemeColorText2
        .ForeColor.Brightness = 0.6000000238
        .DashStyle = msoLineLongDash
    End With

    ActiveChart.Shapes.AddConnector(msoConnectorStraight, xmax + 50, y1, xmax + 50, y2).Select
    With Selection.ShapeRange.Line
        .Weight = 1.2
        .BeginArrowheadStyle = msoArrowheadTriangle
        .EndArrowheadStyle = msoArrowheadTriangle
        .ForeColor.ObjectThemeColor = msoThemeColorText2
        .ForeColor.Brightness = 0.6000000238
    End With
    
    ActiveChart.Shapes.AddConnector(msoConnectorStraight, xmax + 50, Abs((y1 + y2) / 2), xmax + 60, Abs((y1 + y2) / 2) - 8).Select
    With Selection.ShapeRange.Line
        .Weight = 1.2
        .ForeColor.ObjectThemeColor = msoThemeColorText2
        .ForeColor.Brightness = 0.6000000238
    End With

    ActiveChart.Shapes.AddShape(msoShapeOval, xmax + 60, Abs((y1 + y2) / 2) - 20, 65, 24).Select
    With Selection.ShapeRange
        .Fill.ForeColor.ObjectThemeColor = msoThemeColorBackground1
        .Line.ForeColor.ObjectThemeColor = msoThemeColorText2
        .Line.ForeColor.Brightness = 0.6000000238
        .Line.Weight = 2
        .TextFrame2.TextRange.Characters.Text = IIf(zn > 0, "+" & Format(zn, "Percent"), Format(zn, "Percent"))  'zn
        .TextFrame2.TextRange.Font.Fill.ForeColor.ObjectThemeColor = msoThemeColorText1
        .TextFrame2.VerticalAnchor = msoAnchorMiddle
        .TextFrame2.HorizontalAnchor = msoAnchorCenter
        .TextFrame2.TextRange.Font.Bold = msoTrue
        .TextFrame2.TextRange.Font.Fill.ForeColor.ObjectThemeColor = msoThemeColorText2
        .TextFrame2.TextRange.Font.Fill.ForeColor.Brightness = 0.400000006
        .TextFrame2.MarginLeft = 0.2834645669
        .TextFrame2.MarginRight = 0.2834645669
    End With
End Sub