Compartilhar via

Propriedade BorderArtFormat.StretchPictures (Publisher)

  • Artigo

True para alongar a imagem artística que compõe a borda artística para encaixar a forma à qual ele é aplicado. Boolean de leitura/gravação.

Sintaxe

expressão. StretchPictures

Expressão Uma variável que representa um objeto BorderArtFormat .

Valor de retorno

Booliano

Comentários

Retorna "Permission Denied" se a borda artística não tiver sido aplicada ao objeto especificado.

Corresponde à caixa de diálogo Não alongar imagens e Esticar imagens para ajustar controles na caixa de diálogo BorderArt .

Exemplo

O exemplo a seguir testa a existência de bordas artísticas em cada forma de cada página do documento ativo. Se houver bordas artísticas, elas serão definidas de forma que possam ser alongadas.

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

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.