Propriété ColorFormat.BaseRGB (Publisher)

Renvoie ou définit une constante PbColorType qui représente le format de couleur RVB d’origine avant l’application de propriétés de changement de couleur, telles que la teinte et l’ombrage. Lecture-écriture.

Syntaxe

expression. BaseRVB

Expression Variable qui représente un objet ColorFormat .

Valeur renvoyée

PbColorType

Exemple

Cet exemple crée une forme, définit la couleur de remplissage et éclaircit la couleur, puis crée une deuxième forme et applique la couleur RVB d’origine de la première forme à la deuxième forme.

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

Assistance et commentaires

Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.