次の方法で共有

Application.ColorSchemeChanged イベント (PowerPoint)

  • [アーティクル]

配色が変更された後に発生します。

構文

式。 ColorSchemeChanged( _SldRange_ )

式Application オブジェクトを表す変数。

パラメーター

名前 必須 / オプション データ型 説明
SldRange 必須 SlideRange 変更によって影響を受けるスライドの範囲です。

注釈

このイベントを起動するアクションには、スライドまたはスライド マスターの配色を変更するアクションや、テンプレートを適用するアクションがあります。

アプリケーション イベントにアクセスするには、コードの一般宣言セクションで、 アプリケーション の変数を宣言します。 イベントにアクセスする アプリケーション オブジェクトの変数等を設定してください。 Microsoft PowerPoint の Application オブジェクトでイベントを使用する方法については、「使い方: Application オブジェクトでイベントを使用する」を参照してください。

例

次の使用例は、選択したスライドまたはスライドの配色が変更されたときにメッセージを表示します。 この例では、PPTApp と呼ばれる アプリケーション オブジェクトが、 WithEvents キーワードを使用して宣言されています。

Private Sub PPTApp_ColorSchemeChanged(ByVal SldRange As SlideRange)



    If SldRange.Count = 1 Then

        MsgBox "You've changed the color scheme for " _
            & SldRange.Name & "."

    Else

        MsgBox "You've changed the color scheme for " _
            & SldRange.Count & " slides."

    End If

End Sub

関連項目

Application オブジェクト

サポートとフィードバック

Office VBA またはこの説明書に関するご質問やフィードバックがありますか？ サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。