次の方法で共有

ColorFormat.BaseRGB プロパティ (Publisher)

  • [アーティクル]

色の変更プロパティ (濃淡や網かけなど) を適用する前に、元の RGB カラー形式を表す PbColorType 定数を設定または返します。 値の取得と設定が可能です。

構文

式。BaseRGB

式ColorFormat オブジェクトを表す変数。

戻り値

PbColorType

例

次の使用例は、図形を作成し、塗りつぶしの色を設定して色を明るくしてから、2 つ目の図形を作成し、最初の図形の元の RGB 色を 2 番目の図形に適用します。

Sub SetBaseRGB() 
 Dim shpOne As Shape 
 
 With ActiveDocument.Pages(1).Shapes 
 Set shpOne = .AddShape(Type:=msoShapeHeart, _ 
 Left:=150, Top:=150, Width:=300, Height:=300) 
 With shpOne.Fill.ForeColor 
 .RGB = RGB(Red:=160, Green:=0, Blue:=255) 
 .TintAndShade = 0.9 
 End With 
 .AddShape(Type:=msoShapeRectangle, Left:=62, _ 
 Top:=500, Width:=488, Height:=100).Fill _ 
 .ForeColor.RGB = shpOne.Fill.ForeColor.BaseRGB 
 End With 
End Sub

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

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