Table of contents
TOC
Recolher sumário
Expandir sumário

Propriedade PictureFormat.LinkedFileStatus (Editor)PictureFormat.LinkedFileStatus Property (Publisher)

office 365 dev account|Última Atualização: 22/03/2018
|
3 Colaboradores

Retorna uma constante PbLinkedFileStatus que indica o status do arquivo vinculado à imagem especificada. Somente leitura.Returns a PbLinkedFileStatus constant that indicates the status of the file linked to the specified picture. Read-only.

SintaxeSyntax

expressão. LinkedFileStatusexpression. LinkedFileStatus

_expression_A variável que representa um objeto PictureFormat ._expression_A variable that represents a PictureFormat object.

Valor retornadoReturn Value

PbLinkedFileStatusPbLinkedFileStatus

ComentáriosRemarks

Essa propriedade só se aplica aos arquivos de imagem vinculada. Retorna "Permission Denied" para formas que representam imagens incorporadas ou coladas.This property only applies to linked picture files. It returns "Permission Denied" for shapes representing embedded or pasted pictures.

Use as propriedades a seguir para determinar se uma forma representa uma imagem vinculada:Use either of the following properties to determine whether a shape represents a linked picture:

O valor da propriedade LinkedFileStatus pode ser uma das seguintes constantes PbLinkedFileStatus declaradas na biblioteca de tipos do Microsoft Publisher.The LinkedFileStatus property value can be one of the PbLinkedFileStatus constants declared in the Microsoft Publisher type library.

ExemploExample

O exemplo a seguir gera uma lista das imagens vinculadas na publicação ativa para as quais não foi possível encontrar arquivos vinculados.The following example generates a list of the linked pictures in the active publication for which the linked files cannot be found.

Dim pgLoop As Page 
Dim shpLoop As Shape 

For Each pgLoop In ActiveDocument.Pages 
 For Each shpLoop In pgLoop.Shapes 
 If shpLoop.Type = pbLinkedPicture Then 

 With shpLoop.PictureFormat 
 If .LinkedFileStatus = pbLinkedFileMissing Then 
 Debug.Print .Filename 
 End If 
 End With 

 End If 
 Next shpLoop 
Next pgLoop 
© 2018 Microsoft