VB.Net: Formes de formatage

Question

Objectifs: Remplir la forme et changer/enlever sa bordure. Problèmes: La couleur dont il est rempli devient l'opposé demandé (demander rouge, il est rempli de bleu).

myColor = System.Drawing.Color.Blue 

Dim theShape As Microsoft.Office.Interop.Excel.Shape = xlWorkSheet.Shapes.AddShape(MsoAutoShapeType.msoShapeRectangle, (xlWorkSheet.Cells(theRow, theColumn)).Left, (xlWorkSheet.Cells(theRow, theColumn)).Top, 25, 14) 

theShape.Fill.ForeColor.RGB = myColor.ToArgb() 

En outre, pour changer la frontière, je trouve ça ... https://msdn.microsoft.com/en-us/library/microsoft.visualbasic.powerpacks.shape.bordercolor.aspx.

Je suis allé à travers le processus d'installation des PowerPacks et l'ajout de Imports Microsoft.VisualBasic.Powerpacks mais cela ne me donne toujours pas la possibilité de changer la couleur de la bordure de ma forme. Y a-t-il autre chose que je dois faire ici?

theShape.borderColor = myColor.ToArgb 

Toute aide est grandement appréciée!

Answer 1

Le problème ici est que Color.ToArgb() renvoie un entier ARGB dans le format AARRGGBB mais Excel attend un entier BGR, qui est dans le format BBGGRR.

Vous obtenez une forme bleue parce que quand vous appelez Color.Red.ToArgb() il emballera un ARVB entier comme ceci:

255 (Alpha) | 255 (Red) | 0 (Green) | 0 (Blue) 

Mais Excel interprète comme:

255 (Blue) | 0 (Green) | 0 (Red) 

Pour résoudre ce problème vous voulez avoir à convertir la couleur en un entier BGR au lieu d'un entier ARGB.

Cette fonction devrait faire l'affaire:

Public Function ToBgr(ByVal c As Color) As Long 
    Return (CUInt(c.R) << 0 Or CUInt(c.G) << 8 Or CUInt(c.B) << 16) And &HFFFFFFFF 
End Function 

Utilisation:

theShape.Fill.ForeColor.RGB = ToBgr(myColor)