WidthType Property Example

This example sets the width of the first Frameset object in the active document to 25% of the window width.

With ActiveDocument.ActiveWindow.Panes(1).Frameset
    .WidthType = wdFramesetSizeTypePercent
    .Width = 25
End With

This example adds horizontal lines to the active document and compares their width types.

Dim temp As InlineShape
Set temp = _
    ActiveDocument.InlineShapes.AddHorizontalLineStandard
MsgBox "AddHorizontalLineStandard - WidthType = " _
    & temp.HorizontalLineFormat.WidthType
Set temp = _
    ActiveDocument.InlineShapes.AddHorizontalLine _
    ("C:\My Documents\ArtsyRule.gif")
MsgBox "AddHorizontalLine - WidthType = " _
    & temp.HorizontalLineFormat.WidthType