VBA如何设置shape的各项属性？

wengjl

VBA如何设置shape的各项属性？

我现在最需要的是：将shape的线条颜色 设置为 无色，代码该如何写呢？求高手赐教！谢谢！

gwjkkkkk

建议楼主录制宏
我得到结果是：  Selection.ShapeRange.Line.Visible = msoFalse

TuskAi

形状轮廓的颜色没有无色，你可以设置形状轮廓不可见

如果你知道形状的名字

示例里的代码

1. 
   
2. Sub 宏3()
   
3. 
   
4. ActiveSheet.Shapes.Range("Rectangle 1").Line.Visible = False
   
5. 
   
6. End Sub
   

复制代码

如果不知道形状的名字，可以先选中形状，再用debug.Print selection.name输出到立即窗口，或者用for遍历
此操作也适用于图片

山菊花

用录制宏的方法可得到代码。

wengjl

谢谢！我的2007录制不到内容。目前，已换另外的方法实现了无边框的目标。
感谢各位的回复 ！