Changement backcolor de la forme
Je suis en train de mettre à jour la propriété backcolor de toutes les étiquettes que j'ai sur une feuille de calcul. Je tiens à indiquer la couleur en utilisant les valeurs RVB, mais je suis coincé à deux endroits. Voici le code que j'ai en ce moment:
Sheet2.Shapes("Label 2").Fill.BackColor.RGB = RGB(220, 105, 0)
Ce code sera exécuté sans erreur, mais il ne semble pas avoir d'effet. Mon label commence blanc (ou peut-être transparentes) et ne change jamais. Quelqu'un peut me dire ce que je dois faire pour faire ce travail? J'ai aussi ajouté de cela, mais il n'a rien fait:
shp.Fill.Solid
Prochaine, j'aimerais saisir cette valeur RVB dans une variable de sorte que je n'ai pas à saisir de nouveau à plusieurs reprises. Essentiellement, je suis à la recherche de quelque chose comme ceci:
dim col as Color
col = RGB(220,105,0)
Sheet2.Shapes("Label 2").Fill.BackColor.RGB = col
Je sais qu'il n'y a pas de type de variable appelée la Couleur, mais je pense que vous pouvez voir ce que je suis en train de faire.
Vous devez vous connecter pour publier un commentaire.
Essayer de régler le ForeColor à la place:
Un bon moyen de comprendre ce qu'il faut faire est d'enregistrer une macro pendant que vous faites le réglage par soi-même. Vous pouvez examiner le code généré par la suite et l'utiliser comme un point de départ.
Voici un exemple d'une procédure qui permettra d'ajouter un rectangle à la activesheet, ajouter du texte, et puis la couleur avec vos valeurs RVB:
ForeColor
contrôle réellement la propriété backcolor de commentaire/zone de texte(s) dans Excel comme suit;Activecell.Comment.Shape.Fill.ForeColor.RGB = RGB(240, 255, 250)
'Mint Green
comme le
Comment
/TextBox
ForeColor
est une de premier plan remplissage sur l'Applicatoin couleur d'arrière-plan.J'ai besoin d'ajouter
dans Office 2016 pour
pour avoir un effet.