Propriedade FillFormat.PresetTexture (Publisher)

Retorna uma constante MsoPresetTexture que representa a textura predefinida para o preenchimento especificado. Somente leitura.

Sintaxe

expressão. PresetTexture

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

Valor de retorno

MsoPresetTexture

Comentários

O valor da propriedade PresetTexture pode ser uma das constantes MsoPresetTexture declaradas na biblioteca de tipos do Microsoft Office.

Use o método PresetTextured para especificar a textura predefinida para o preenchimento.

Exemplo

Este exemplo adiciona um retângulo à primeira página na publicação ativa e define sua textura predefinida de forma a corresponder à primeira forma na página. Para que o exemplo funcione, essa forma deve ter um preenchimento de textura predefinido.

Sub SetTexture() 
 Dim texture As MsoPresetTexture 
 With ActiveDocument.Pages(1).Shapes 
 texture = .Item(1).Fill.PresetTexture 
 With .AddShape(Type:=msoShapeRectangle, Left:=250, Top:=72, _ 
 Width:=40, Height:=80) 
 .Fill.PresetTextured PresetTexture:=texture 
 End With 
 End With 
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.