次の方法で共有


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 のサポートおよびフィードバックを参照してください。