#charts #label #font-size
Вопрос:
В настоящее время у меня есть следующий код, который используется для добавления метки данных только к последней точке в ряду данных. С ним все работает нормально, но я надеялся добавить строку, которая сможет увеличить размер шрифта. Однако всякий раз, когда я добавляю «Font.Size:= 10» после «LegendKey:=False», я получаю ошибку «Ожидаемая ошибка компиляции: Именованный параметр». Спасибо вам за вашу помощь.
Sub LastPointLabel() Dim mySrs As Series Dim iPts As Long Dim vYVals As Variant Dim vXVals As Variant If ActiveChart Is Nothing Then MsgBox "Select a chart and try again.", vbExclamation Else Application.ScreenUpdating = False For Each mySrs In ActiveChart.SeriesCollection With mySrs vYVals = .Values vXVals = .XValues ' clear existing labels .HasDataLabels = False For iPts = .Points.Count To 1 Step -1 If Not IsEmpty(vYVals(iPts)) And Not IsError(vYVals(iPts)) _ And Not IsEmpty(vXVals(iPts)) And Not IsError(vXVals(iPts)) Then ' add label mySrs.Points(iPts).ApplyDataLabels _ ShowSeriesName:=True, _ ShowCategoryName:=False, ShowValue:=False, _ AutoText:=True, LegendKey:=False Exit For End If Next End With Next ' legend is now unnecessary ActiveChart.HasLegend = False Application.ScreenUpdating = True End If End Sub