Метки данных круговой диаграммы в Excel 2003 VBA

Question

Я столкнулся с очень странной проблемой с метками данных в круговых диаграммах в Excel 2003. Я установлю свойство .Top или .Left метки данных абсолютно в VBA, но Excel автоматически переместит его на другой значение. Почему это происходит? Как я могу обойти это? Эта проблема, кажется, не существует в Excel 2007 после моего тестирования. Чтобы понять, что я имею в виду, попробуйте создать круговую диаграмму с метками данных в Excel 2007 и запустите на диаграмме следующую функцию:

Sub problemExample(xlcht As Excel.Chart)

With xlcht.SeriesCollection(1)

    For aSlice = 1 To .Points.Count
        .Points(aSlice).DataLabel.Top = 43
        Range("F" & (aSlice + 1)).Value = .Points(aSlice).DataLabel.Top
        .Points(aSlice).DataLabel.Left = 38
        Range("G" & (aSlice + 1)).Value = .Points(aSlice).DataLabel.Left
    Next aSlice
End With
End Sub

Answer 1

Причина в том, что позиции квантованы. Свойства top, left, width и height не являются непрерывным спектром возможных значений, их можно изменять только с фиксированными приращениями. Если вы выберете что-то между этими приращениями, Excel немедленно округлит свойство до ближайшего приращения.