Announcements
Attention for Customers without Multi-Factor Authentication or Single Sign-On - OTP Verification rolls out April 2025. Read all about it here.
dgreatice
in reply to: Skadborg.NTI

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