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
- 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
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 IfEm runtime, após este script tiver sido executado, o menu terá a seguinte aparência:
