How can I divide a shapes outline width in half (/2) using vba?
Myron said:How can I divide a shapes outline width in half (/2) using vba?
Look at Shape.Outline.Width.
So, something like s.Outline.Width = s.Outline.Width/2
select shape and run macro
Sub Macro1() Dim OrigSelection As ShapeRange, a#, b# Set OrigSelection = ActiveSelectionRange a = OrigSelection(1).Outline.Width b = OrigSelection(1).Outline.NibStretch OrigSelection(1).Outline.Width = a * b / 100 OrigSelection(1).Outline.NibStretch = 100End Sub
previous message edited
Hmmm, closer result but still not 100% accurate.
I'll take it though. Thanks.
difference probably caused by conversion mm(inch) / to pixels