[求助]VBA里能不能预先设置线宽

pwkduke

我想做一个画线的程序，想预先设置线宽，这样画完之后不用一条一条地改，能不能实现？

守柔

请参:

Sub NewLine() Dim LineNew As Shape

'Add new line to Document Set LineNew = ActiveDocument.Shapes.AddLine _ (beginx:=100, beginy:=100, endx:=200, endy:=100) 'Format line With LineNew.Line .BeginArrowheadStyle = msoArrowheadNone .EndArrowheadStyle = msoArrowheadTriangle .ForeColor.RGB = RGB(Red:=128, Green:=0, Blue:=0) End With End Sub

pwkduke

版主的方法肯定是可以用的，但是每次画线时都要设置一下线宽，我是想要找到系统内置的参数，也就是说，运行了之后，就是用工具栏里的画线工具画线也会画出粗的线。

守柔

有两种方法，一是设置自选图形的默认效果（右键），一是用VBA方法设置自选图形中的默认参数直接用前者就可以了。

pwkduke

我用宏记录下来设置自选图形的默认效果的语句是Selection.ShapeRange.SetShapesDefaultProperties

而我想要的是只设置线宽的语句，比如：XXX.XXX ＝ 3这样的语句。

楼主的第二种方法是不是我上面说的意思，如果是的话，请告知具体的语句。

守柔

你再录制个宏，设置某线条的线宽，看一下就知道了。其实宏记录器中的属性很全，省得一个一个问。

pwkduke

你指的是不是

Selection.ShapeRange.Line.Weight = 0.75

但是这一句只能对选择的线段进行设置，而不会改变下一次要画的线的线宽。

守柔

然后你加上这句Selection.ShapeRange.SetShapesDefaultProperties你再看一下绘出来的线条是否是这个线宽的

pwkduke

这样做的话，实际上是修改了许多参数，如颜色，线型，而不仅仅是线宽，效率不是很高，当然混也混得过去。