ExtraColors オブジェクト

ExtraColors オブジェクト

Presentation ExtraColors

プレゼンテーションの追加の色を表します。このオブジェクトには、最大 8 色を含めることができ、各色は、RGB 値で表されます。

使い方

ExtraColors オブジェクトを取得するには、ExtraColors プロパティを使用します。単一の追加色の RGB 値を取得するには、ExtraColors(index) プロパティを使用します。引数 index には、追加色のインデックス番号を指定します。次の使用例は、作業中のプレゼンテーションのスライド 1 に四角形を追加し、最初の追加色を背景色の塗りつぶしの色に設定します。プレゼンテーションに追加色が 1 つも定義されていない場合、この使用例は失敗します。

With ActivePresentation
    Set rect = .Slides(1).Shapes _
        .AddShape(msoShapeRectangle, 50, 50, 100, 200)
    rect.Fill.ForeColor.RGB = .ExtraColors(1)
End With
		

追加色を追加するには、Add メソッドを使用します。次の使用例は、作業中のプレゼンテーションに追加色と同じ色が使われていない場合に、追加色を追加します。

ActivePresentation.ExtraColors.Add RGB(69, 32, 155)