StretchPictures Property

Microsoft Publisher Visual Basic

StretchPictures Property

True to stretch the picture art making up the specified BorderArt to fit the shape to which it is applied. Read/write Boolean.

expression.StretchPictures()

expression    Required. An expression that returns a BorderArtFormat object.

Remarks

Returns "Permission Denied" if BorderArt has not been applied to the specified object.

Corresponds to the Don't stretch pictures and Stretch pictures to fit controls on the BorderArt dialog box.

Example

The following example tests for the existence of BorderArt on each shape for each page of the active document. If BorderArt exists, it is set so that it can be stretched.

    Sub StretchBorderArt()
	Dim anyPage As Page
	Dim anyShape As Shape

	For Each anyPage in ActiveDocument.Pages
		For Each anyShape in anyPage.Shapes
			With anyShape.BorderArt
				If .Exists = True Then
					.StretchPictures = True
				End If
			End With
		Next anyShape
	Next anyPage
End Sub