Obtenir la forme par Id ou Nom

Est-il possible d'obtenir une forme si vous connaissez son Id?

Par exemple:

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

Ou, sinon, pourrais-je obtenir la forme en Name?

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

OriginalL'auteur Mateen Ulhaq | 2011-04-03