[已解决]请问如何设置一个形状对象的属性

fjmxwrs

VBA中，如何设置一个形状的无填充和线条颜色，要用什么语句，谢谢

最佳答案

月排行榜 / 总排行榜

02761752696

2016-6-12 21:35

1. ActiveSheet.Shapes.Range(Array("Rectangle 1")).Select '选择图形  1是图形号
   
2. Selection.ShapeRange.Fill.Transparency = 1 '填充颜色透明
   
3. Selection.ShapeRange.Line.Transparency = 1 '线条颜色透明

复制代码

跳转到最佳答案楼层

02761752696

1. ActiveSheet.Shapes.Range(Array("Rectangle 1")).Select '选择图形  1是图形号
   
2. Selection.ShapeRange.Fill.Transparency = 1 '填充颜色透明
   
3. Selection.ShapeRange.Line.Transparency = 1 '线条颜色透明

复制代码

fjmxwrs

02761752696 发表于 2016-6-12 21:35

黑色线条用什么值?

fjmxwrs

02761752696 发表于 2016-6-12 21:35

谢谢了，一直没转过弯来，死找无填充，多谢了

02761752696

fjmxwrs 发表于 2016-6-12 21:46
黑色线条用什么值?

1. ActiveSheet.Shapes.Range(Array("Rectangle 1")).Select
   
2. Selection.ShapeRange.Line.ForeColor.ObjectThemeColor = msoThemeColorText1
   
3. Selection.ShapeRange.Line.ForeColor.RGB = RGB(255, 255, 0)

复制代码

这两条都可以设置线条黑色

fjmxwrs

02761752696 发表于 2016-6-12 22:08
这两条都可以设置线条黑色

谢谢了

02761752696

1. RGB(0,0, 0)

复制代码

这是黑色

fjmxwrs

是的，我用了rgb(0,0,0)