I have a small recorded macro that changes the formatting of balloons. 3 place with item number.
Is there a way to run it on all sheets?
I have a small recorded macro that changes the formatting of balloons. 3 place with item number.
Is there a way to run it on all sheets?
Thanks Deepak,
I had seen this, i am ok with running VB in single cases. i seem to lack in the multiples... Running code on multiple items has always given me a headache.
Option Explicit Dim swApp As SldWorks.SldWorks Dim swModel As SldWorks.ModelDoc2 Dim swDraw As SldWorks.DrawingDoc Dim vSheetName As Variant Dim i As Integer Dim bRet As Boolean Sub main() Set swApp = Application.SldWorks Set swModel = swApp.ActiveDoc Set swDraw = swModel ' Get the sheets in the drawing document vSheetName = swDraw.GetSheetNames ' Traverse the drawing sheets For i = 0 To UBound(vSheetName) bRet = swDraw.ActivateSheet(vSheetName(i)) ' Your balloon codes here Next i End Sub
SW API Help files are your friend : Get Sheet Numbers and Names Example (VBA)