Аналог быстрого выбора

[Александр Ривилис]

Пашин Евгений
Ты моё отношение к VBA знаешь, так что я мог и наврать или написать не слишком чистый код.
Мне нужно было показать на уровне идеи как оно должно работать.

[Пашин Евгений]

Ты моё отношение к VBA знаешь

Знаю, но поражаюсь, что Вас это нисколько не останавливает.

так что я мог и наврать или написать не слишком чистый код.

Всё у Вас хорошо сработало. Я просто поторопился.

[serzh82saratov]

Александр
Спасибо большое за помощь, так как пытаюсь реализовать код на слабо типизированном языке, с типом данных Variant возникла проблема. Нашёл её решение, всё заработало, ещё раз спасибо!

[Александр Ривилис]

Нашёл её решение, всё заработало, ещё раз спасибо!

Отлично. У нас принято выкладывать решение, или хотя бы описание того, как это решение достигнуть.

[serzh82saratov]

У меня тоже так принято, просто язык не имеет отношения к VBA, потому не стал выкладывать.
Под решением, в 32 посте, я подразумевал приведение переменных под нужный тип данных, что в VBA не есть проблема.
Язык AutoHotkey, считаете что следует выложить код?

А решением я пометил ваш 16 пост, в котором указано как добится желаемого выделения из шапки темы.

[Александр Ривилис]

Язык AutoHotkey, считаете что следует выложить код?

Полный код не нужен. Только кусочек в котором замена вот этого:

Код - Visual Basic [Выбрать]

1.     Set ss = ThisDrawing.ActiveSelectionSet
2.     Dim gpCode(0) As Integer
3.     Dim dataValue(0) As Variant
4.     gpCode(0) = 62
5.     dataValue(0) = 3
6.     Dim groupCode As Variant, dataCode As Variant
7.     groupCode = gpCode
8.     dataCode = dataValue
9.     ss.Select acSelectionSetAll, , , groupCode, dataCode

[serzh82saratov]

Код: [Выделить]

ss := ThisDrawing.ActiveSelectionSet
FilterType := ComObjArray(VT_I2 := 2, 1)
FilterType[0] := 62
FilterData := ComObjArray(VT_VARIANT := 12, 1)
FilterData[0] := 3
ss.Select(acSelectionSetAll := 5, , , FilterType, FilterData)

[Александр Ривилис]

Отлично! Именно это я и имел в виду.