ajuda com grafico

no exemplo, eu tenho 3 graficos no relatorio, ele vai abrir com os graficos .visible = true, ou seja todos invisiveis e só vai se tornar visiveis conforme eu selecionar numa caixa de opcao num formulario de cohnsulta . Tudo legal até ai. Porem eu queria que, quando ocorrece de o grafico1  ficasse invisivel o grafico 2 pulasse para o topo sem ficar esse espaco em branco no relatorio. E assim para todos no relatorio. Ou se ocorrece com o grafico1 ficasse visivel e o grafico invisivel, o grafico3 encostasse perto do grafico1. Isso vai ocorrer muitas vezes, pois as vezes quero apresentar dados para a diretoria, e as vezes tenho necessidade de apresentar os 3 graficos, mas tambem somente o grafico1 e o grafico3, e assim por diante. Aqui no minha figura tenho só 3graficos, mas na empresa inteira tenho mais de 100 graficos difidido em N relatorios.  Se alguem puder me ajudar, eu agradeço.

Obrigado.

Olá totonho,

Segue um exemplo para seu grupo de opção:

'Tenha em mente que é preciso que a fonte do controle de objeto OLE exista na tabela. Por exemplo, nome na sua tabela Grafico1, Grafico2 e Grafico3 do tipo Objeto OLE.

Private Sub frmOpcao_AfterUpdate()
Select Case frmOpcao
Case 0
Forms!Graficos!Grafico1 = Grafico1 'É o quadro de objeto acoplado com um gráfico do Excel inserido pela propriedade do objeto.
Forms!Graficos!Grafico2 = Grafico2
Forms!Graficos!Grafico3 = Grafico3
Case 1
Forms!Graficos!Grafico1 = Grafico2
Forms!Graficos!Grafico2 = Grafico1
Forms!Graficos!Grafico3 = Grafico3
Case 2
Forms!Graficos!Grafico1 = Grafico3
Forms!Graficos!Grafico2 = Grafico2
Forms!Graficos!Grafico3 = Grafico1
End Select
End Sub

Obrigado por se dispor a me ajudar good guy. Ainda não entendi muito bem onde colocar o codigo, por isso estou dispondo obanco de dados para maiores exclarecimento. E como o forum esta me ajudando bastante, quero que assim que o projeto estiver concluido, e se aprovado, quero contribuir com voces, em doacao na medida do possivel.  

Segue anexo.

Olá totonho,

Fiz alguns testes e encontrei certa dificuldade em preparar um arquivo exemplo, mas a ideia seria mais plausível se você fosse mudar a seleçao de dados.

Veja este exemplo no YouTube e veja se atende:

www.youtube.com/watch?v=UlWTWvRNnF8‎


Outro teste seria através do Acess utilizando três planilhas Excel mas em arquivos à parte, cada um com um Plan1,Graf1, utilizando o código que postei:

Teste1.xls
Teste2.xls
Teste3.xls

vou tentar alguma coisa e retorno depois. por emquanto muito grato.

Olá totonho,

Fiz algumas modificações no código. Tente assim:


Private Sub frmOpcao_AfterUpdate()
Select Case frmOpcao
Case 0
Forms!Graficos!Grafico1 = Forms!Graficos!Grafico1 'É o quadro de objeto acoplado com um gráfico do Excel inserido pela propriedade do objeto.
Forms!Graficos!Grafico2 = Forms!Graficos!Grafico2
Forms!Graficos!Grafico3 = Forms!Graficos!Grafico3
Case 1
Forms!Graficos!Grafico1 = Forms!Graficos!Grafico2
Forms!Graficos!Grafico2 = Forms!Graficos!Grafico1
Forms!Graficos!Grafico3 = Forms!Graficos!Grafico3
Case 2
Forms!Graficos!Grafico1 = Forms!Graficos!Grafico3
Forms!Graficos!Grafico2 = Forms!Graficos!Grafico2
Forms!Graficos!Grafico3 = Forms!Graficos!Grafico1
End Select
End Sub

Não deixe de observar a seleção de dados de planilhas diferentes. NÃO tente com um arquivo apenas e três planilhas, mas sim com três arquivos .xls.

acho que vou deixar visible true tudo mesmo, e vou imprimir por pagina se for necessario. Agradeço o apoio e a ajuda. muitas duvidas ainda virão e sei que posso contar com o forum. Obrigado.

ok