Вы можете использовать следующий код для редактирования размера маркеров на основе значений. Возможно, вам придется скопировать и отрегулировать значения до разумного размера маркера в фиктивном столбце, а затем скрыть / удалить его.
Sub ChangeMarkerSize()
n = 10 'Number of Points
For i = 1 To 10
ThisWorkbook.Sheets("Sheet1").ChartObjects("Chart 1").Activate
With ActiveChart.FullSeriesCollection(1).Points(i)
.MarkerStyle = 8
.MarkerSize = ThisWorkbook.Sheets("Sheet1").Range("C" & i).Value * 0.1
End With
Next
End Sub