seleção de gráfico na planilha

[Jose Carlos Ferreira]

Boa noite,

Estou com o seguinte problema, tengo um planilha só de gráficos e para chamar os gráficos.

Tenho um form e nele contem  12 optiumButton quer cada uma representa um mês.

Tenho um Botão “MOSTRAR” para mostrar o gráfico do mês correspondente

Tenho um image1 para mostrar o gráfico do mês escolhido.

No botão MOSTRA o seguinte código que chama o mês correspondente.

If OptionButton3 = True Then                 '   janeiro

   strNomeArquivo = "E:\Controle Glicose\grafico3.gif"

   strArquivoExiste = Dir(strNomeArquivo)

   If strArquivoExiste = "" Then

    Else

        Kill "E:\Controle Glicose\grafico3.gif"

    End If

   Call carrega_grmar

End If

 

Na rotina Carrega_grmar o código

On Error GoTo erro

Planilha4.Activate     ‘ planilha que se chama “ gráficos”

Dim pastanome As String

Plan = Planilha4.Name    ‘ tem o nome da planilha “gráficos”

Set currentchart = Sheets(Plan).ChartObjects(3).Chart   ‘ para pegar o gráfico de março

pastanome = ThisWorkbook.Path & Application.PathSeparator & "grafico3.gif"

Currentchart.Export Filename:=pastanome, filtername:="gif"

Image1.Picture = LoadPicture(pastanome)

Planilha4.Activate

Exit Sub

erro:

MsgBox "ERROR", vbCritical, "ERROR"

O problema é que tem vez que funciona e tem fez que não, ele se perde no índice do gráfico e mostra outro mês.

Cada gráfico esta com seu mes, eu selecionei o gráfico e fui colocando o numero do mês que corresponde.

Selecionei o gráfico de janeiro e coloquei o nome de grafico1 de janeiro, grafico2 de fevereiro e assim sucessivamente nos 12 gráficos.

Nessa rotina acima ele mostra o gráfico de Fevereiro e n]ao o de março, e tem vez que não encontra o gráfico na planilha e da o erro de inexistência do gráfico.

alguém tem a ideia o porque isso acontece? Alguém pode me ajudar.

Utilizo o Office 365 original  com w11 original atualizado.

Desde já agradeço.