Propriedade PictureFormat.IsEmpty (Publisher)

  • Artigo

Retorna uma constante MsoTriState que representa se a forma especificada é um quadro de imagem vazio. Somente leitura.

Sintaxe

expressão. Isempty

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

Valor de retorno

MsoTriState

Comentários

O valor da propriedade IsEmpty pode ser uma das constantes MsoTriState declaradas na biblioteca de tipos do Microsoft Office e mostradas na tabela a seguir.

Constante Descrição
msoFalse A forma especificada não é um quadro de imagem vazio.
msoTriStateMixed Indica uma combinação de msoTrue e msoFalse do intervalo de formas especificado.
msoTrue A forma especificada é um quadro de imagem vazio.

Exemplo

O exemplo a seguir testa cada imagem na publicação ativa e, se não for um quadro de imagem vazio, imprime as propriedades de imagem selecionadas da imagem.

Dim pgLoop As Page 
Dim shpLoop As Shape 
 
For Each pgLoop In ActiveDocument.Pages 
 For Each shpLoop In pgLoop.Shapes 
 If shpLoop.Type = pbPicture Or shpLoop.Type = pbLinkedPicture Then 
 
 With shpLoop.PictureFormat 
 
 If .IsEmpty = msoFalse Then 
 
 Debug.Print "File Name: " & .Filename 
 Debug.Print "Horizontal Scaling: " & .HorizontalScale & "%" 
 Debug.Print "Vertical Scaling: " & .VerticalScale & "%" 
 Debug.Print "File size in publication: " & .FileSize & " bytes" 
 
 End If 
 
 End With 
 End If 
 Next shpLoop 
Next pgLoop

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.