ColorScheme オブジェクト (Publisher)
文書のさまざまな要素に使用される 8 色のセットである配色を表します。 各色は ColorFormat オブジェクトによって表されます。
ColorScheme オブジェクトは、 ColorSchemes コレクションのメンバーです。 ColorSchemes コレクションには、Microsoft Publisher で使用できるすべての配色が含まれています。
注釈
現在の文書の配色を取得するには、Document オブジェクトの ColorScheme プロパティを使用します。
配色名を取得するには、 Name プロパティを使用します。
例
次の使用例は、最初のページの 3 つの図形の塗りつぶしの値を、8 つの ColorScheme 色のうち 3 つの戻り値 (RGB 形式) に設定します。
Sub ReturnColorsAndApplyToShapes()
Dim lngAccent1 As Long
Dim lngAccent2 As Long
Dim lngAccent3 As Long
With ActiveDocument
With .ColorScheme
lngAccent1 = .Colors(pbSchemeColorAccent1).RGB
lngAccent2 = .Colors(pbSchemeColorAccent2).RGB
lngAccent3 = .Colors(pbSchemeColorAccent3).RGB
End With
With .Pages(1)
.Shapes(1).Fill.ForeColor.RGB = lngAccent1
.Shapes(2).Fill.ForeColor.RGB = lngAccent2
.Shapes(3).Fill.ForeColor.RGB = lngAccent3
End With
End With
End Sub
次の例では、Publisher で使用できる配色をすべてテキスト ボックスに一覧表示します。
Sub ListColorShemes()
Dim clrScheme As ColorScheme
Dim strSchemes As String
For Each clrScheme In Application.ColorSchemes
strSchemes = strSchemes & clrScheme.Name & vbLf
Next
ActiveDocument.Pages(1).Shapes.AddTextbox( _
Orientation:=pbTextOrientationHorizontal, _
Left:=72, Top:=72, Width:=400, Height:=500).TextFrame _
.TextRange.Text = strSchemes
End Sub
プロパティ
関連項目
サポートとフィードバック
Office VBA またはこの説明書に関するご質問やフィードバックがありますか? サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。