ShowTrendAnalysis

<< Clique para Mostrar o Sumário >>

 

ShowTrendAnalysis

ShowTrendAnalysis([Title], [Left], [Top], [Configuration], [ConfigStatus], [ErrorDetails])

Mostra uma janela do TrendAnalysis. Este método retorna Verdadeiro se a janela foi mostrada corretamente ou Falso em caso de erro. Os parâmetros deste método estão listados na tabela a seguir.

Parâmetros do método ShowTrendAnalysis

Parâmetro

Descrição

Title

Determina o título da janela. Corresponde à propriedade Title do objeto TrendAnalysis. Se omitido ou informada uma String vazia, o título da janela é configurado para "TrendAnalysis"

Left

Coordenada horizontal da janela, em pixels. Consulte o método SetWindowPlacement do objeto TrendAnalysis para mais informações sobre o comportamento deste parâmetro, caso seja omitido

Top

Coordenada vertical da janela, em pixels. Consulte o método SetWindowPlacement do objeto TrendAnalysis para mais informações sobre o comportamento deste parâmetro, caso seja omitido

Configuration

Informa o conteúdo de uma configuração salva pelo método Save do objeto TrendAnalysis. Se omitido ou informada uma String vazia, não carrega nenhuma configuração previamente salva

ConfigStatus

Parâmetro opcional de retorno que informa o resultado do carregamento da janela do TrendAnalysis. Se este método retorna Verdadeiro, este parâmetro contém o valor 0 (zero), ou seja, a configuração foi carregada com sucesso. Se este método retorna Falso, este parâmetro pode conter os valores 1: A configuração não carregou corretamente, 2: O conteúdo da configuração é inválido ou 3: Esta configuração requer uma versão mais recente

ErrorDetails

Parâmetro opcional de retorno contendo uma String detalhando o erro no carregamento da janela do TrendAnalysis

 

Exemplo de uso:

Sub Botao1_Click()
  Dim showResult, errorMsg, errorDetails
  showResult = Application.ShowTrendAnalysis("TrendAnalysis", 100, 100, "", ConfigStatus, errorDetails)
  If showResult = False Then
    If ConfigStatus <> 0 Then
      Select Case ConfigStatus
        Case 1
          errorMsg = "Erro (1): A configuração não foi carregada corretamente."
        Case 2
          errorMsg = "Erro (2): O conteúdo da configuração é inválido."
        Case 3
          errorMsg = "Erro (3): Esta configuração requer uma versão mais recente."
      End Select
      errorMsg = errorMsg & vbCrLf & "Detalhes: " & errorDetails
      MsgBox errorMsg
    End If
  End If
End Sub

 

NOTA

As propriedades do objeto TrendAnalysis podem ser configuradas no objeto retornado pelo método GetTrendAnalysis.

Esta página foi útil?