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.
Insere um efeito de imagem em uma cadeia de efeitos compostos.
Sintaxe
mais simples. Insert(EffectType, Position)
expressão Uma expressão que retorna um objeto PictureEffects .
Parâmetros
| Nome | Obrigatório/Opcional | Tipo de dados | Descrição |
|---|---|---|---|
| EffectType | Obrigatório | MsoPictureEffectType | Uma enumeração que especifica o tipo de efeito de imagem. |
| Posição | Opcional | Integer | A posição do efeito na cadeia composta de efeitos de imagem. |
Valor de retorno
Efeito de imagem
Comentários
Os efeitos de imagem são processados como uma cadeia composta de itens individuais que são aplicados em sequência para criar a imagem composta final. Uma cadeia de efeitos permitirá que um efeito seja adicionado à cadeia, reordenado ou removido da cadeia.
Exemplo
O código a seguir define várias propriedades de preenchimento PictureEffect em uma forma em um slide do Microsoft PowerPoint.
Sub PictureEffectSample()
' Setup a slide with one picture shape.
With ActivePresentation.Slides(1).Shapes(1).Fill.PictureEffects
' Insert a 150% Saturation effect.
.Insert(msoEffectSaturation).EffectParameters(1).Value = 1.5
' Insert Brightness/Contrast effect and set values to -50% Brightness and +25% Contrast.
Dim brightnessContrast As PictureEffect
Set brightnessContrast = .Insert(msoEffectBrightnessContrast)
brightnessContrast.EffectParameters(1).Value = -0.5
brightnessContrast.EffectParameters(2).Value = 0.25
' Remove all Picture effects.
While .Count > 0
.Delete (1)
Wend
End With
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.