11-09-2017
11:32 PM
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
11-09-2017
11:32 PM
Hi,
im upgrade you code with input field.
Dim oSheet = ActiveSheet.Sheet Dim 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