Posicionar gráfico dentro da planilha  [Resolvido]

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

Posicionar gráfico dentro da planilha

Mensagempor valdecirrk » Sex Fev 23, 2018 2:44 pm

boa tarde

eu monteu um gráfico e quero posicionar o mesmo em um ponto especifico.

exemplo, quero o gráfico fique posicionado a partir da coluna D, e depois da linha 20.

depois disso vou deletar a planilha e a macro irá criar novamente e posicionar no local descrito anteriormente.
valdecirrk
Membro
Membro
 
Mensagens: 230
Registrado em: Seg Out 28, 2013 8:37 am
Localização: Jaraguá do Sul - SC
Has thanked: 98 times
Have thanks: 3 times

{ SO_SELECT }

Re: Posicionar gráfico dentro da planilha

Mensagempor xlarruda » Sex Fev 23, 2018 3:03 pm

Colega valdecirrk, boa tarde!

Bem, uma forma seria ajustando manualmente assim:
* Alterando os valores até achar a posição desejada.
Código: Selecionar todos
Sub posição()
ActiveSheet.Shapes.Range(Array("Grafico 1")).Select
Selection.ShapeRange.Left = 145
Selection.ShapeRange.Top = 280
End Sub


porém tenho quase certeza que existe uma forma mais eficiente que essa...

Abçr!
___________________________________________________________________________________________
Se a resposta atendeu sua dúvida, por favor, clique no Gostei e marque o Tópico como [Resolvido].

Att.

André Arruda
Avatar do usuário
xlarruda
Membro
Membro
 
Mensagens: 793
Registrado em: Qua Out 04, 2017 9:41 am
Localização: Cuiabá-MT
Has thanked: 97 times
Have thanks: 319 times

Re: Posicionar gráfico dentro da planilha

Mensagempor valdecirrk » Sex Fev 23, 2018 3:14 pm

Esta forma não funcionou, obrigado mesmo assim.
valdecirrk
Membro
Membro
 
Mensagens: 230
Registrado em: Seg Out 28, 2013 8:37 am
Localização: Jaraguá do Sul - SC
Has thanked: 98 times
Have thanks: 3 times

Re: Posicionar gráfico dentro da planilha

Mensagempor xlarruda » Sex Fev 23, 2018 3:42 pm

Colega valdecirrk eu tenho certeza que nossos colegas aqui do fórum podem ajudar com sugestões melhores. Portanto, seria válido você ainda não marcar como resolvido, já que minha resposta ainda não te atendeu totalmente.


Abçr!
___________________________________________________________________________________________
Se a resposta atendeu sua dúvida, por favor, clique no Gostei e marque o Tópico como [Resolvido].

Att.

André Arruda
Avatar do usuário
xlarruda
Membro
Membro
 
Mensagens: 793
Registrado em: Qua Out 04, 2017 9:41 am
Localização: Cuiabá-MT
Has thanked: 97 times
Have thanks: 319 times

Re: Posicionar gráfico dentro da planilha

Mensagempor valdecirrk » Sex Fev 23, 2018 3:49 pm

Ok, valeu pela dica.
valdecirrk
Membro
Membro
 
Mensagens: 230
Registrado em: Seg Out 28, 2013 8:37 am
Localização: Jaraguá do Sul - SC
Has thanked: 98 times
Have thanks: 3 times

Re: Posicionar gráfico dentro da planilha

Mensagempor valdecirrk » Sex Fev 23, 2018 3:50 pm

Estou usando dessa forma até me ajuda mas a propriedade TOP ainda me atrapalha porque é incremental e eu preciso fixa

Código: Selecionar todos
ActiveSheet.Shapes(nome).IncrementLeft -136.5
          ActiveSheet.Shapes(nome).IncrementTop 20
          ActiveSheet.Shapes(nome).ScaleWidth 5#, msoFalse, msoScaleFromTopLeft
          ActiveSheet.Shapes(nome).ScaleHeight 2.5, msoFalse, msoScaleFromTopLeft
valdecirrk
Membro
Membro
 
Mensagens: 230
Registrado em: Seg Out 28, 2013 8:37 am
Localização: Jaraguá do Sul - SC
Has thanked: 98 times
Have thanks: 3 times

Re: Posicionar gráfico dentro da planilha  [Resolvido]

Mensagempor xlarruda » Sex Fev 23, 2018 4:06 pm

Colega valdecirrk eis a solução:

Código: Selecionar todos
Sub teste()
  On Error Resume Next
    With ActiveSheet.Shapes("Grafico 1")
        .Top = Range("D20").Top
        .Left = Range("D20").Left
    End With
End Sub


Apenas mude "Gráfico 1" para o nome do seu gráfico.
Você não está autorizado a ver ou baixar esse anexo.
___________________________________________________________________________________________
Se a resposta atendeu sua dúvida, por favor, clique no Gostei e marque o Tópico como [Resolvido].

Att.

André Arruda

For this post the author xlarruda thanked:
valdecirrk (Sex Fev 23, 2018 4:41 pm)
Avatar do usuário
xlarruda
Membro
Membro
 
Mensagens: 793
Registrado em: Qua Out 04, 2017 9:41 am
Localização: Cuiabá-MT
Has thanked: 97 times
Have thanks: 319 times


Voltar para Gráficos

Quem está online

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