Изменить размер маркеров диаграммы - PullRequest
0 голосов
/ 30 января 2020

У меня есть график рассеяния, который выбирает переменный диапазон ячеек из оси (здесь нет проблем).

Я хочу, чтобы каждый из маркеров рассеяния был увеличен. У меня есть следующий код VBA.

'Remove all the old data points.    
    For Each srs In Groupcht.SeriesCollection
        srs.Delete
    Next
'Set the data points
    Dim lastrow As Integer
    lastrow = Range("A" & Rows.Count).End(xlUp).Row

    For Row = 7 To lastrow
        Set srs = Groupcht.SeriesCollection.NewSeries
        With srs
            .Values = Cells(Row, 2)
            .XValues = Cells(Row, 3)
            .Name = Cells(Row, 1)
            .MarkerSize = 15 'This should change the Marker size for each NEW plot.
        End With

    Next Row

Одна, возможно, две точки будут иметь желаемый размер маркера при обновлении события, и в редких случаях все они будут отформатированы до размера 15.

Я нахожусь на Windows 10. С Office 365.

1 Ответ

0 голосов
/ 31 января 2020

Отвечая на мой собственный вопрос здесь.

Вам необходимо go в свойстве .Points (pointIndex) и изменить там настройки.

Dim lastrow As Integer
    lastrow = Range("A" & Rows.Count).End(xlUp).Row

    For Row = 7 To lastrow
        Set srs = Groupcht.SeriesCollection.NewSeries
        With srs
            .Values = Cells(Row, 2)
            .XValues = Cells(Row, 3)
            .Name = Cells(Row, 1)
            With .Points(1)
                .MarkerStyle = xlMarkerStyleCircle
                .MarkerSize = 15
            End With
        End With
    Next Row
Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...