请教怎么利用VBA添加、控制肘形连接符

我是我妈的宝贝

请教怎么利用VBA添加肘形连接符，并控制肘形连接符的箭头位置和起始位置。

chxw68

录制一段宏试试。

我是我妈的宝贝

试过了，添加图形，生成不了代码，不知道怎么回事

chxw68

1. Sub 宏1()
   
2.     With ActiveSheet
   
3.         .Shapes.AddConnector(msoConnectorElbow, 162.75, 42.75, 459.75, 114.75).Select
   
4.         Selection.ShapeRange.Line.EndArrowheadStyle = msoArrowheadTriangle
   
5.     End With
   
6. End Sub
   

复制代码

chxw68

录制的宏。

我是我妈的宝贝

chxw68 发表于 2023-1-31 09:59
录制的宏。

非常感谢老师，您知道为何我录制宏，图形这块生成不了代码吗？
我用2007版和2010版都试过，都是一样的，是设置的问题吗？

chxw68

我是我妈的宝贝 发表于 2023-1-31 10:03
非常感谢老师，您知道为何我录制宏，图形这块生成不了代码吗？
我用2007版和2010版都试过，都是一样的， ...

这个与设置没关系。你再试试。

我是我妈的宝贝

chxw68 发表于 2023-1-31 10:04
这个与设置没关系。你再试试。

还是录不了，能再帮忙录段代码吗？
就是用肘形连接符连接两个矩形的中心停靠点，这样矩形移动位置，肘形连接符也会自动跟着变

chxw68

1. Sub test1()
   
2.     ActiveSheet.Shapes.AddConnector(msoConnectorElbow, 226.8750393701, _
   
3.         129.7499212598, 371.6250393701, 227.9999212598).Select
   
4.         Selection.ShapeRange.Line.EndArrowheadStyle = msoArrowheadTriangle
   
5.     Selection.ShapeRange.ConnectorFormat.BeginConnect ActiveSheet.Shapes( _
   
6.         "Rectangle 4"), 3
   
7.     Selection.ShapeRange.ConnectorFormat.EndConnect ActiveSheet.Shapes( _
   
8.         "Rectangle 7"), 1
   
9. End Sub
   
10. 
    
11. 
    

复制代码

Yalishanda30

我是我妈的宝贝 发表于 2023-1-31 11:08
还是录不了，能再帮忙录段代码吗？
就是用肘形连接符连接两个矩形的中心停靠点，这样矩形移动位置，肘形 ...

录制宏就可以了