Propriedade FillFormat.TextureName (Publisher)

Retorna uma cadeia de caracteres indicando o nome do arquivo de textura personalizado para o preenchimento especificado. Somente leitura.

Sintaxe

expressão. TextureName

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

Valor de retorno

Cadeia de caracteres

Comentários

Use o método UserTextured para definir o arquivo de textura para o preenchimento.

Exemplo

Este exemplo adiciona uma elipse à publicação ativa. Se a forma um na publicação ativa tiver um preenchimento com uma textura definida pelo usuário, a nova elipse terá o mesmo preenchimento da forma um. Se a forma um tiver qualquer outro tipo de preenchimento, a nova elipse terá um preenchimento de mármore verde.

Dim ffNew As FillFormat 
 
With ActiveDocument.Pages(1).Shapes 
 Set ffNew = .AddShape(Type:=msoShapeOval, _ 
 Left:=0, Top:=0, Width:=200, Height:=90).Fill 
 
 With .Item(1).Fill 
 If .Type = msoFillTextured And _ 
 .TextureType = msoTextureUserDefined Then 
 ffNew.UserTextured _ 
 TextureFile:=.TextureName 
 Else 
 ffNew.PresetTextured _ 
 PresetTexture:=msoTextureGreenMarble 
 End If 
 End With 
End With 

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.