11-10-2017
01:55 AM
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
11-10-2017
01:55 AM
try This,
Dim oDwgDoc as DrawingDocument
oDwgDoc = Thisapplication.ActiveDocument
Dim oSheet as Sheet
oSheet = oDwgDoc.ActiveSheet
Dim oCustomTable as CustomTable
oCustomTable = oSheet.CustomTables.Item(1)
i = InputBox("Colomn Number?", "Colomn Input")
If i = "" Then
Exit Sub
End If
DefaultWidth = (oCustomTable.Columns.Item(Val(i)).Width) * 10
j = InputBox("Width?", "Input Width", DefaultWidth)
oCustomTable.Columns.Item(Val(i)).Width = (Val(j) / 10)
Please use the ACCEPT AS SOLUTION or KUDOS button if my Idea helped you to solve the problem.
Autodesk Inventor Professional Certified 2014
Autodesk Inventor Professional Certified 2014