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:
