Hello, 

I am looking for auto ballooning with user defined quantity in drawing. (shown in the snap)

This is what i got from google:

Dim swApp As SldWorks.SldWorks
Dim Part As SldWorks.ModelDoc2
Dim vNotes As Variant
Dim autoballoonParams As SldWorks.AutoBalloonOptions
Dim boolstatus As Boolean

Option Explicit

Sub main()

    Set swApp = Application.SldWorks
    Set Part = swApp.ActiveDoc
boolstatus = Part.ActivateView("Drawing