关于线条的对象属性

ninart

在excel里画的两条垂直直线，端点相交不完整，需要在直线的“修改形状格式”里更改“线端类型”为正方形来使交点完整。
因为要批量生成线条，所以需要在vba里写代码，但是录制不到“线端类型”的对象属性是什么，请高手帮忙指点，谢谢

chxw68

下面两句应该是确定线端类型的：
   Selection.ShapeRange.Line.BeginArrowheadStyle = msoArrowheadNone
    Selection.ShapeRange.Line.EndArrowheadStyle = msoArrowheadNone

ninart

chxw68 发表于 2015-1-27 15:51
下面两句应该是确定线端类型的：
   Selection.ShapeRange.Line.BeginArrowheadStyle = msoArrowheadNone ...

谢谢大神回答，不过这个是前端类型和后端类型，是能用宏录出来的，实际线条除非特别粗得10磅吧，不然出来的联接效果不好
在设置这个的地方上边一点是线端类型，只有三个类型，平面，圆形，正方形，也就是说如果用两根线画个L出来，设置线粗一些会发现连接点有个缺口，设置线端类型为正方形就没有缺口变的自然了，这个属性的设置宏录不下来。

故从何生

确实有问题哦。

taller

mmwwdd

在VBA中，可以使用 Shape.Line.EndStyle 属性来设置线条端点的类型。具体来说，将该属性设置为 msoLineEndingSquare 可以使直线端点变成正方形。
下面是一个示例代码，可以将第一张工作表中所有直线的端点设置为正方形：

vb
Copy code
Sub SetLineEndingsToSquare()
    Dim shp As Shape
   
    For Each shp In Worksheets(1).Shapes
        If shp.Type = msoLine Then
            shp.Line.EndStyle = msoLineEndingSquare
        End If
    Next shp
End Sub

需要注意的是，该代码只会处理直线，如果工作表中还有其他类型的形状，则需要进行额外的判断和处理。

故从何生

mmwwdd 发表于 2023-5-2 05:00
在VBA中，可以使用 Shape.Line.EndStyle 属性来设置线条端点的类型。具体来说，将该属性设置为 msoLineEndi ...

这个代码是哪个版本的？2016版似乎不可以的