Changing Line Width and Ink Width on Drawing

[Gary]

I am trying to figure out how to change all the line width and ink width size
by vba code. I was able to do all of that via the drop down menu (select
all, change linewidth, and then change ink width). How can I do that in
Code??

I tried using the macro recorder and it allows the line width to record, but
the Ink option is disabled. In the macro for the Line, I have:

Dim UndoScopeID1 As Long
UndoScopeID1 = Application.BeginUndoScope("Line Properties")
Application.ActiveWindow.Page.Shapes.ItemFromID(38).CellsSRC _
(visSectionObject,visRowLine,visLineWeight).formulaU = "2.16 pt"


Could this have been done with???? Do I need the "Line Properties"
statement??:
Application.ActiveWindow.Page.Shapes.ItemFromID(38).Cells _
("LineWeight").Formula = "2.16 pt"


How can I change all of the Ink width???

I am using the following code to loop and find all shapes:

For shapeIndex = 1 To AppVisio.ActiveWindow.Page.Shapes.Count
Set theShape = AppVisio.ActiveWindow.Page.Shapes(shapeIndex)


Next shapeIndex


Thanks,

Gary