Как определить номер страницы?

[Nata111]

Есть функция вида:

Private Function ToDo(s As Shape)
... 'здесь что-то делаем с s
PageNumber=? 'а теперь нужен номер страницы
End Function

Как определить номер страницы, на которой этот объект находится?
В объектной модели не нашла, а передавать через аргументы мне не кажется хорошей идеей.

 

[wOxxOm]

Ответ: Как определить номер страницы?

через свойство Layer выходим на слой, через свойство Page уже у слоя выходим на страницу:

Private Function ToDo(s As Shape)
   ... 'здесь что-то делаем с s
   PageNumber = s.Layer.Page.Index
End Function