Can I use VBA to set the bullet format for various indent levels of a shape's text frame, prior to text insertion/indenting?

I can use the following code to set one property of the bullet, the character, on a per-paragraph basis:

oShp.TextFrame2.TextRange.Paragraphs(1).ParagraphFormat.Bullet.Character = 123

Select allOpen in new window

I can then set different bullet characters for different levels using something like this simplified example:

With oShp.TextFrame2.TextRange.Paragraphs(1).ParagraphFormat
  .Bullet.Character = IIf(.IndentLevel = 1, 123, 456)
End With

Select allOpen in new window

My question is, can I set the bullet properties for the TextFrame on a per-level basis rather than having to apply them to existing paragraphs of text. For example, if I add a new shape to slide, set the formatting up for the TextFrame and then a user starts typing at Level 1 indentation they get character 123 and when they Indent to level 2, they automatically get character 456 without my code have to reapply formatting to that paragraph?

I know something could be done by using text-based placeholders but this won't work within table cell text frames.