Встроенные диалоги

[Евгений Д.]

Народ, подскажите плиз, есть ли возможность каким-нибудь образом получить установленные (измененные) пользователем значения параметров диалога после запуска диалога. Например, я показываю пользователю диалог сортировки диапазона:

Код: Выделить всё

result = Application.Dialogs.Item(xlDialogSort).Show

а узнать, какие значения опций он выбрал во время диалога, я не могу, поскольку в result возвращается либо True (была нажата кнопка "OK" диалога), либо False (была нажата кнопка "Cancel" диалога). А хотелось бы иметь по-максимому информации о действиях ползователя.

[alibek]

Код: Выделить всё

With Application.Dialogs.Item(xlDialogSort)
  If .Show Then
    Debug.Pring .<prop1>
  End If
End With

Как-то так. Только не факт, что в объектной модели есть доступ к интересующим тебя свойствам.

[Евгений Д.]

Код: Выделить всё

...
    Debug.Print .<prop1>
...


А что писать вместо prop1? Ведь у каждого диалога свои входные параметры, которые, к сожалению, передаются ByVal.

[alibek]

Второе предложение было именно к тому, что скорее всего доступа к параметрам диалога ты не получишь.
Может тебе проще будет нарисовать свои диалоговые окна?

[Евгений Д.]

Скорее всего так и придется сделать, хотя жалко времени на отрисовку более сложных диалогов (диалог сортировки был приведен мною просто как пример), тем более, что в Excel результаты диалога попадают-таки к объекту-адресату.