Prezados,
Não tenho conhecimento suficiente para alterar instruções em VBA , a minha necessidade é mostrar apenas o primeiro valor do rótulo de uma das série e das outras séries mostrar apenas o último valor do rótulo.
Consegui uma programação, que mostra o último valor das séries do gráfico e ainda tem o inconveniente de ter de marcar o gráfico das planilha.
Peço ajuda no sentido de modificar a instrução para que mostre apenas os rótulos da maneira desejada , assim como, marque todos os gráficos automaticamente das planilhas desejadas.
O VBA dentro da planilha anexada é este aqui, caso não desejem abrir o arquivo de extensão xlsm.
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:=False, ShowValue:=True, _
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
Desde já agradeço.
Abc
Antonio Pedro
teste_grafico.rar
teste_grafico.xlsx