KB-35477: Criando um submenu através do método SelectMenu().

Descrição:

Como criar um submenu através do método SelectMenu() do Viewer?

Solução:

Para isso, deve-se colocar as opções do submenu entre chaves no script.

Exemplo:

op = _
  Application.SelectMenu(_
    "Opção1||Opção2{*Opção2|Opção3}|Opção4|!Opção5")
If op = 1 Then
  MsgBox "Opção 1 foi escolhida"
ElseIf op = 2 Then
  MsgBox "Opção 2 foi escolhida"
ElseIf op = 3 Then
  MsgBox "Opção 3 foi escolhida"
ElseIf op = 4 Then
  MsgBox "Opção 4 foi escolhida"
ElseIf op = 0 Then
  MsgBox "Nenhuma opção foi escolhida"
End If

 

Em runtime, após este script tiver sido executado, o menu terá a seguinte aparência:
Print Friendly, PDF & Email

Este artigo foi útil? Was this helpful?

Classificação média - Average rating 1 / 5. Count: 2

Leave a Reply

Your email address will not be published.Required fields are marked *