Свойство AnimationSettings.DimColor (PowerPoint)

Статья
04/07/2023

Возвращает или задает объект ColorFormat , представляющий цвет указанной фигуры после ее построения. Только для чтения.

Синтаксис

выражение. DimColor

Выражение Переменная, представляющая объект AnimationSettings .

Возвращаемое значение

ColorFormat

Замечания

Если вы не получите ожидаемого эффекта, проверьте другие параметры сборки. Вы не увидите эффект от свойства DimColor , если для свойства TextLevelEffect объекта AnimationSettings не задано значение , отличное от ppAnimateLevelNone, свойство AfterEffect имеет значение ppAfterEffectDim, а свойство Animate имеет значение True. Кроме того, если указанная фигура является единственным элементом или последним элементом, который будет создан на слайде, фигура не будет затемнена. Чтобы изменить порядок сборки фигур на слайде, используйте свойство AnimationOrder .

Пример

В этом примере слайд, содержащий заголовок и список из трех элементов, добавляется в активную презентацию, заголовок и список будут затемнены после сборки, а также цвет, который будет затемнен для каждого из них.

With ActivePresentation.Slides.Add(2, ppLayoutText).Shapes
    With .Item(1)
        .TextFrame.TextRange.Text = "Sample title"
        With .AnimationSettings
            .TextLevelEffect = ppAnimateByAllLevels
            .AfterEffect = ppAfterEffectDim
            .DimColor.SchemeColor = ppShadow
            .Animate = True
        End With
    End With

    With .Item(2)
        .TextFrame.TextRange.Text = "Item one" _
            & Chr(13) & "Item two"
        With .AnimationSettings
            .TextLevelEffect = ppAnimateByFirstLevel
            .AfterEffect = ppAfterEffectDim
            .DimColor.RGB = RGB(100, 150, 130)
            .Animate = True
        End With
    End With
End With

См. также

Объект AnimationSettings

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.

Поделиться через