Ocultar valores vazios em gráfico de Dispersão  [Resolvido]

Tudo sobre Gráficos, desde o mais simples até o mais complexo!

Ocultar valores vazios em gráfico de Dispersão

Mensagempor Zgoda » Seg Mai 08, 2017 4:10 pm

Boa tarde.

Como faço para que séries vazias sejam ocultas de um gráfico de dispersão?

Atualmente elas aparecem nas legendas e poluem o gráfico.

E elas devem fazer parte do gráfico por que na planilha original podem aparecer dados ali, pois é parte de uma tabela dinâmica. então não basta apenas remover as séries.

Muito obrigado.
Você não está autorizado a ver ou baixar esse anexo.
Avatar do usuário
Zgoda
Membro
Membro
 
Mensagens: 84
Registrado em: Sex Mai 30, 2014 4:57 pm
Localização: Jaraguá do Sul - SC
Has thanked: 46 times
Have thanks: 12 times

{ SO_SELECT }

Share on Facebook Facebook

Re: Ocultar valores vazios em gráfico de Dispersão

Mensagempor brunoxro » Qui Mai 11, 2017 7:44 pm

Boa noite Zgoda,

Clique em cima do Gráfico -> Design -> Selecionar Dados -> Na 'Entrada de Legendas (Série)' -> Desmarque as '< séries vazias >' ou delete.

*Se tiver muitas vazias, vai ser chato ficar alterando por esse caminho.

*Meu Office é o 2016.

att,
Avatar do usuário
brunoxro
Membro
Membro
 
Mensagens: 649
Registrado em: Qui Abr 21, 2016 10:13 pm
Has thanked: 7 times
Have thanks: 198 times

Re: Ocultar valores vazios em gráfico de Dispersão  [Resolvido]

Mensagempor Doni » Sex Mai 12, 2017 1:13 pm

Boa tarde!
Se quiser deixar automático com VBA:

Código: Selecionar todos
Sub RemoveZeros()
     
    Dim lngIndex As Long
    Dim vntValues As Variant
    Dim blnRemove As Boolean
    Dim lngPointIndex As Long
     
    With ActiveChart
        For lngIndex = .SeriesCollection.Count To 4 Step -1
            With .SeriesCollection(lngIndex)
                vntValues = .Values
                blnRemove = True
                For lngPointIndex = LBound(vntValues) To UBound(vntValues)
                    If vntValues(lngPointIndex) <> 0 Then
                        blnRemove = False
                        Exit For
                    End If
                Next
                 If blnRemove Then .Delete
            End With
        Next
    End With
End Sub

Créditos para site: Ozgrid
Doni

For this post the author Doni thanked: 2
MIOJO (Qui Ago 31, 2017 10:20 pm) • Zgoda (Seg Mai 15, 2017 3:46 pm)
Doni
Membro
Membro
 
Mensagens: 305
Registrado em: Dom Nov 29, 2009 2:21 am
Localização: Sorocaba,SP
Has thanked: 13 times
Have thanks: 80 times


Voltar para Gráficos

Quem está online

Usuários navegando neste fórum: Nenhum usuário registrado e 2 visitantes