Получить все значения свойств формы фигуры

Question

У меня есть несколько фигур, которые включают данные о пользовательских свойствах, которые я хотел бы извлечь. На данный момент я делаю это, используя цикл, который кажется довольно медленным. Поэтому я надеюсь, что есть возможность получить все данные одновременно.

Код:

For n = 0 To ActiveDocument.Pages(Pages).Shapes.Item(Index).RowCount(visSectionProp) - 1
    x = ActiveDocument.Pages(Pages).Shapes.Item(Index).CellsSRC(visSectionProp, n, visCustPropsValue).Formula
    shape_props(i + shapecount_old, n) = x
Next

У кого-нибудь есть идея?

Заранее спасибо!