Classe EffectParameters (PowerPoint VBA)

A classe EffectParameters representa diversos parâmetros de animação para um objeto Effect, como cores, fontes, tamanhos e orientações.

Para usar uma variável de classe EffectParameters, ela primeiro precisa ser instanciada por exemplo

Dim eps as EffectParameters
Set eps = ActivePresentation.SlideMaster.TimeLine.MainSequence(1).EffectParameters

As variáveis ​​de classe EffectParameters podem ser definidas usando o procedimento Effect.EffectParameters.

Amount

Retorna ou define um Single que representa o número de graus que uma forma animada irá girar em torno do eixo z. Um valor positivo indica rotação para cima; um valor negativo indica rotação para baixo. Leitura/gravação.

ActiveWindow.Selection.SlideRange(1).TimeLine.MainSequence(1).EffectParameters.Amount = -90

Color2

Retorna um objeto ColorFormat que representa a cor na qual terminará uma animação de ciclo de cores.

Dim cftColor2 As ColorFormat
Set cftColor2 = ActiveWindow.Selection.SlideRange(1).TimeLine.MainSequence(1).EffectParameters.Color2

Direction

Determina a direção usada para um efeito de animação. Essa propriedade só poderá ser usada se o efeito utilizar uma direção. Leitura/gravação. Aqui você pode encontrar os valores possíveis para MsoAnimDirection.

O valor da propriedade Direction pode ser uma destas constantes MsoAnimDirection .

ActiveWindow.Selection.SlideRange(1).TimeLine.MainSequence(1).EffectParameters.Direction = msoAnimDirectionAcross

FontName

Retorna ou define o nome da fonte no WordArt especificado. Leitura/gravação.

ActiveWindow.Selection.SlideRange(1).TimeLine.MainSequence(1).EffectParameters.FontName =

Relative

Determina se é para definir a posição da movimentação em relação à posição da forma. Leitura/gravação.

Esta propriedade somente é usada em conjunto com caminhos de movimentação. O valor da propriedade Relative pode ser uma destas constantes MsoTriState .

ActiveWindow.Selection.SlideRange(1).TimeLine.MainSequence(1).EffectParameters.Relative = msoTrue

Size

Retorna ou define o tamanho do caractere, em pontos. Leitura/gravação.

ActiveWindow.Selection.SlideRange(1).TimeLine.MainSequence(1).EffectParameters.Size = 24