Macro Add Balloon with with dynamic custom property flag

I want to add a balloon and have the "description" dynamically of the part next to it. Description would be read from a current custom property.

Currently we "stack" balloons, have the second balloon format changed to show the custom property (see below)...currently i have "default" balloon types set up, but I've been asked if i can minimize the steps.

I've used the one you linked to in the past. As nice it is it is a little excessive for my needs.

Looking to just start a macro, select the part, then balloon pops in as described. I'd even be happy with still getting the "stacked" balloon style if i could drive it from a single part selection, instead of all the extra clicks and steps.

Going through the API help i found some code for stacked balloons. My issue is i need the second balloon to be different style than the first. I want the second to be "Underline", "Tight fit", "Custom Property: description". if i change the "format" settings, it changes all to the style. I belevie the swNote2 needs to have its own formatting...

Also what is the best way to remove the "pre-formated" select and wait for a users unique selection....