代码之家 › 专栏 › 技术社区 › Bob

VB.Net:格式化形状

msdn shapes colors vb.net excel

Bob · 技术社区 · 8 年前

目标:填充形状并更改/删除其边框。

问题:填充的颜色与要求的颜色相反(要求红色,填充蓝色)。

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()

另外,为了改变边界,我发现了这个。。。 https://msdn.microsoft.com/en-us/library/microsoft.visualbasic.powerpacks.shape.bordercolor.aspx .

我完成了安装PowerPacks和添加 Imports Microsoft.VisualBasic.Powerpacks 但它仍然不能让我改变形状的边框颜色。这里还有什么我需要做的吗?

theShape.borderColor = myColor.ToArgb

非常感谢您的任何帮助!

1 回复 | 直到 8 年前

Visual Vincent 8 年前

这里的问题是 Color.ToArgb() 返回以下格式的ARGB整数: AARRGGBB 但是Excel需要一个BGR整数,格式为 BBGGRR .

你得到了一个蓝色的形状,因为当你打电话 Color.Red.ToArgb() 它将打包一个ARGB整数,如下所示:

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

但Excel对此的解释如下:

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

要修复此问题,您必须将颜色转换为BGR整数,而不是ARGB整数。

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

用法:

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

推荐文章

Excel Questions · 用于根据条件从工作表1到工作表2提取数据的Excel VBA代码[已关闭]

1 年前

jbirk94 · EXCEL:当lookup_value是一个范围时,如何使用XLOOKUP返回多个列?

1 年前

Abel Zewdu · 我有3列,其中一列的值为1,其他列的值则为0。如何获取值为1的列名?

1 年前

Interactive · 如果相邻单元格为空,则VBA完成循环

1 年前

RonanC · VBA数据验证下拉列表,是否也允许自由文本?

1 年前

user1646660 · 如果日期介于两个日期之间,则向插槽添加日期

1 年前

Blake S · Excel宏错误:过程调用或参数无效

1 年前

Hieu Minh · 数据透视表无法覆盖现有的合并单元格

1 年前

Fxp · 如何将数字或日期格式应用于Excel中TEXTSPLIT之后的列

1 年前

Nick · 当条件匹配电源查询时,从单独的查询中返回多列

2 年前