Propriedade ShapeRange.IsInline (Publisher)

Retorna uma constante MsoTriState que especifica se uma forma está embutida. Somente leitura.

Sintaxe

expressão. Isinline

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

Exemplo

Este exemplo testa a primeira forma (um quadro de texto) na primeira página da publicação para ver se ela está embutida. Se não for, será executada uma pesquisa nessa forma para localizar formas embutidas no quadro de texto. Qualquer forma embutida que forem encontrada têm a propriedade ForeColor definida para vermelho.

Dim theShape As Shape 
Dim i As Integer 
 
Set theShape = ActiveDocument.Pages(1).Shapes(1) 
 
If Not theShape.IsInline = True Then 
 With theShape.TextFrame.Story.TextRange 
 If .InlineShapes.Count > 0 Then 
 For i = 1 To .InlineShapes.Count 
 .InlineShapes(i).Select 
 .InlineShapes(i).Fill.ForeColor.RGB = vbRed 
 Next 
 End If 
 End With 
End If

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.