Change Balloon Property Display

<?xml encoding=”UTF-8″>By Adam Nagy

If you want to find out how to set an object through the API to achieve what you want, then the best thing is to do it through the UI and then investigate the object through the API in e.g. VBA: http://adndevblog.typepad.com/manufacturing/2013/10/discover-object-model.html

In this case I set the Balloon style’s Property Display to ITEM, QTY then check in VBA where that information is stored:

I can see that the Properties of the Style object is set to “PartsListProperty=’45572′;PartsListProperty=’45575′”. I will now try to set it through the API. I first set the Property Display to something else, e.g. PART NUMBER, MASS throgh the UI and then run the below code:

Sub BalloonStyleCheck()
Dim doc As DrawingDocument
Set doc = ThisApplication.ActiveDocument
Dim dsm As DrawingStylesManager
Set dsm = doc.StylesManager
Dim ods As ObjectDefaultsStyle
Set ods = dsm.ActiveStandardStyle.ActiveObjectDefaults
Dim bs As BalloonStyle
Set bs = ods.BalloonStyle
bs.Properties = _
"PartsListProperty='45572';PartsListProperty='45575'"
End Sub

It seems to do the trick: