Observação
O acesso a essa página exige autorização. Você pode tentar entrar ou alterar diretórios.
O acesso a essa página exige autorização. Você pode tentar alterar os diretórios.
True indica que um objeto InlineShape é um marcador de figura. Boolean somente leitura.
Sintaxe
expression. IsPictureBullet
Expressão Uma expressão que retorna um objeto 'InlineShape'.
Comentários
Embora os marcadores de imagens sejam considerados formas embutidas, a coleção InlineShapes de um documento de pesquisa não retornará marcadores de imagem.
Exemplo
Este exemplo formata a lista selecionada se a lista for formatada com um marcador de imagem. Se não for, será exibida uma mensagem.
Sub IsSelectionAPictureBullet(shp As InlineShape)
On Error GoTo ErrorHandler
If shp.IsPictureBullet = True Then
shp.Width = InchesToPoints(0.5)
shp.Height = InchesToPoints(0.05)
End If
Exit Sub
ErrorHandler:
MsgBox "The selection is not a list or " & _
"does not contain picture bullets."
End Sub
Use o seguinte código para seguir a rotina acima.
Sub CallPic()
Call IsSelectionAPictureBullet(shp:=Selection _
.Range.ListFormat.ListPictureBullet)
End Sub
Confira também
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.