Уменьшить размер шрифта на 1 шаг в VBA

Есть ли простой способ уменьшить размер шрифта в Word / Excel и т. Д. на 1 шаг в VBA?

Итак, скажем, если бы размер моего шрифта был 48, я мог бы легко уменьшить его до 36, как указано в раскрывающемся списке Шрифт в стандартной группе шрифтов Word 2007, вместо того, чтобы уменьшать размер шрифта на 12 - Я не буду знать, какой будет следующий размер шрифта ...

Итак, вместо того, чтобы явно указывать размер шрифта с помощью float:

MyText.Font.Size = 36;

мог бы я сделать что-то вроде:

MyText.Font.Size -= Reduce by 1 step;....  forgive the pseudo code!