Получить форму по идентификатору или имени

Есть ли способ получить форму, если вы знаете ее Id ?

Например:

Dim myshape As Shape
myshape.Id = 42
myshape = getShapeById(myshape.Id)

Или, как вариант, я могу получить форму по Name ?

Dim myshape As Shape
myshape.Name = "Rectangle 42"
myshape = getShapeByName(myshape.Name)