У меня есть карта в Excel, я создаю серию точек, используя почтовые индексы, но как только я закончу с картой, я хочу удалить границы вокруг каждого почтового индекса. У меня около 25000 баллов. Я выполнил это с помощью следующего кода, но это занимает около 2 часов, что неэффективно, а также каждый раз, когда вы пытаетесь открыть файл, он зависает на несколько часов или просто падает.
Спасибо за помощь.
Dim aChart As Chart
Dim serPoints As Long
Dim oSer As Series
Dim curPoint As Long
Set aChart = ActiveChart
Set oSer = aChart.SeriesCollection(1)
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Application.EnableEvents = False
serPoints = oSer.Points.Count
'changes the border of the line to 0
For curPoint = 1 To serPoints
oSer.Points(curPoint).Format.Line.Weight = 0
Next curPoint
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
Application.EnableEvents = True
End Sub
Вот карта перед запуском кода
и вот карта после запуска кода
