Страницы: 1
RSS
Автоформирование диаграммы с отрицательными значениями
 
Добрый день!

Возможно ли формировать диаграммы с отрицательными значениями в классическом виде.
Т.е. чтобы в параметрах оси автоматически проставлялась галочка "обратный порядок значений" при отрицательных значения данных для диаграммы.
 
пример будет?
 
Цитата
написал:
пример будет?
Мне необходимо, чтобы данный процесс происходил автоматически без ручного проставления галочки "обратный порядок значений", когда слайды с отрицательными значениями
 
:)
 
Автоматически- макросом. стандартными средствами можно поработать с модулями значений, а подписи выводить с - и шкалу убрать, раз вы выносите значения в гистограмму она не нужна.
 
Код
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim ch As ChartObject
    Set ch = ActiveSheet.ChartObjects(1)
    
    Dim ry As Range
    Set ry = GetSeriesCollectionRange(ch)
    If Not ry Is Nothing Then
        If Not Intersect(Target, ry) Is Nothing Then
            If WorksheetFunction.CountIfs(ry, "<0") = ry.Cells.Count Then
                ch.Chart.Axes(xlValue).ReversePlotOrder = True
            Else
                ch.Chart.Axes(xlValue).ReversePlotOrder = False
            End If
        End If
    End If
End Sub

Private Function GetSeriesCollectionRange(ch As ChartObject) As Range
    On Error Resume Next
    Dim arr As Variant
    arr = Split(ch.Chart.SeriesCollection(1).Formula, ",")
    
    Set GetSeriesCollectionRange = ch.Parent.Range(arr(2))
    On Error GoTo 0
End Function
В модуль листа.
Страницы: 1
Наверх