[МишаИнженер]

Помогите вывести опции "Width", "Height" и "Depth" диалога из этого примера в контекстное меню:

Код:

[Выделить все]

 Sub Example_GetKeyword()
    ' This example uses Getkeyword to return a keyword entered by the user.
    ' InitializeUserInput establishes the valid keywords.
    
    ' Define the list of valid keywords
    Dim kwordList As String
    kwordList = "Width Height Depth"
    ThisDrawing.Utility.InitializeUserInput 1, kwordList
            
    ' Prompt the user to input any of the keywords. Return "Width", "Height" or "Depth" in
    ' the returnString variable depending on whether the user input "W", "H" or "D".
    Dim returnString As String
    returnString = ThisDrawing.Utility.GetKeyword("Enter a keyword (Height)(Width)(Depth): ")
    MsgBox "You entered " & returnString, , "GetKeyword Example"
    
End Sub

Возможно ли такое сделать на VBA?

[Кулик Алексей aka kpblc]

https://knowledge.autodesk.com/ru/se...BEEA2-htm.html прочитай внимательно. У тебя код немного неправильно скопирован из источника.

[МишаИнженер]

Поменял в скобках выражение

Код:

[Выделить все]

"Enter a keyword (Height)(Width)(Depth): "

на

Код:

[Выделить все]

vbLf & "Enter a keyword [Height/Width/Depth]: "

и всё заработало!
Спасибо большое!