次の方法で共有


ColorSchemes オブジェクト (Publisher)

すべての ColorScheme コレクション Microsoft Publisher のオブジェクトです。 各 ColorScheme オブジェクトは、パブリケーションで使用される色のセットである配色パターンを表します。

注釈

Publisher で使用できる配色の数を返すには、 Count プロパティを使用します。

ColorSchemes コレクションから特定の配色を取得するには、 Item プロパティを使用します。 Item プロパティの Index 引数には、配色の数値または名前、または PbColorScheme 定数を指定できます。

配色名を取得するには、 Name プロパティを使用します。

次の例では、配色の数を表示します。

Sub CountColorSchemes() 
 MsgBox Application.ColorSchemes.Count 
End Sub

次の例では、作業中の文書の配色を Wildflower に設定します。

Sub SetColorScheme() 
 ActiveDocument.ColorScheme _ 
 = ColorSchemes.Item(pbColorSchemeWildflower) 
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 のサポートおよびフィードバックを参照してください。