次の方法で共有

MsoThemeColorSchemeIndex 列挙 (Office)

  • [アーティクル]

Office テーマの配色を指定します。

名前 値 説明
msoThemeAccent1 5 配色にアクセント 1 を指定します。
msoThemeAccent2 6 配色にアクセント 2 を指定します。
msoThemeAccent3 7 配色にアクセント 3 を指定します。
msoThemeAccent4 8 配色にアクセント 4 を指定します。
msoThemeAccent5 9 配色にアクセント 5 を指定します。
msoThemeAccent6 10 配色にアクセント 6 を指定します。
msoThemeDark1 1 配色に濃色 1 を指定します。
msoThemeDark2 3 配色に濃色 2 を指定します。
msoThemeFollowedHyperlink 12 クリックされたハイパーリンクの配色を指定します。
msoThemeHyperlink 11 ハイパーリンクの配色を指定します。
msoThemeLight1 2 配色に淡色 1 を指定します。
msoThemeLight2 4 配色に淡色 2 を指定します。

注釈

Office Theme.ThemeColorShceme は、2 つの明るい色、2 つの濃い色、6 色のアクセント カラー、ハイパーリンクテキスト用の 2 色で構成されます。 指定したテーマの色を設定または返すには、この列挙体を使用します。 テーマの色が図形の ColorFormat オブジェクトに割り当てられると、 MsoThemeColorIndex 列挙体を介してマップされます。 PowerPoint の場合、このマッピングでは、オブジェクトがスライドの明るい背景スタイルと濃色の背景スタイルのいずれに存在するかを考慮します。 背景には 12 のスタイルがあり、6 つの明るさと 6 つの暗いスタイルがあります。 明るい背景スタイルの場合、msoThemeColorBackground1 を使用するように設定されたオブジェクトは、テーマの濃色 1 に割り当てられます。 濃色の背景スタイルのいずれかで同じオブジェクトの場合、同じ msoThemeColorBackground1 の割り当てにライト 1 の色が使用されます。

プログラムによってテーマの色をオブジェクトに割り当てる場合は、MsoThemeColorIndex 列挙体を使用する必要があります。具体的には、テーマの最初の 4 色の値は 13 から 16 です。 値 1 から 4 を使用すると、Office カラー ピッカー UI でテーマの色が正しく強調表示されません。

例

次の例では、作業中のプレゼンテーションの最初のスライド マスターのテーマの 12 色の 16 進色の値を、Office テーマ エディター UI に表示される順序で BGR 形式で出力します。

Sub ShowThemeColors()
    With ActivePresentation.Designs(1).SlideMaster.Theme
        Debug.Print Hex(.ThemeColorScheme(msoThemeLight1).RGB)  ' 2
        Debug.Print Hex(.ThemeColorScheme(msoThemeDark1).RGB)   ' 1
        Debug.Print Hex(.ThemeColorScheme(msoThemeLight2).RGB)  ' 4
        Debug.Print Hex(.ThemeColorScheme(msoThemeDark2).RGB)   ' 3
        Debug.Print Hex(.ThemeColorScheme(msoThemeAccent1).RGB)
        Debug.Print Hex(.ThemeColorScheme(msoThemeAccent2).RGB)
        Debug.Print Hex(.ThemeColorScheme(msoThemeAccent3).RGB)
        Debug.Print Hex(.ThemeColorScheme(msoThemeAccent4).RGB)
        Debug.Print Hex(.ThemeColorScheme(msoThemeAccent5).RGB)
        Debug.Print Hex(.ThemeColorScheme(msoThemeHyperlink).RGB)
        Debug.Print Hex(.ThemeColorScheme(msoThemeAccent6).RGB)
        Debug.Print Hex(.ThemeColorScheme(msoThemeFollowedHyperlink).RGB)
    End With
End Sub

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

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