【求助】自动设置一条（左下右上）的对角线

墨筱婕

不论鼠标选中多大的区域（单元格），点击按钮
希望自动设定一条对角线（左下右上）
注意：不是单元格设置中的对角线，
           是【形状】中的直线。
谢谢各位前辈

大灰狼1976

1. Sub test()
   
2. Dim rng As Range
   
3. Set rng = Selection
   
4. With rng
   
5.   ActiveSheet.Shapes.AddLine .Left, .Top + .Height, .Left + .Width, .Top
   
6. End With
   
7. End Sub

复制代码

petergaod

ActiveSheet.Shapes.AddConnector msoConnectorStraight, Selection.left, Selection(Selection.Count).Top + Selection(Selection.Count).Height, Selection(Selection.Count).left + Selection(Selection.Count).Width, Selection.Top

醉眼看尘世

大灰狼1976 发表于 2024-8-8 11:10

要不要清除已有线条

大灰狼1976

醉眼看尘世 发表于 2024-8-8 12:38
要不要清除已有线条

这看你自己的需要。

墨筱婕

大灰狼1976 发表于 2024-8-8 11:10

前辈，我试了 没成功
“Activesheet”那行代码 显示黄色

大灰狼1976

墨筱婕 发表于 2024-8-8 12:58
前辈，我试了 没成功
“Activesheet”那行代码 显示黄色

是吗，你发个错误附件上来吧，但是我现在不便下载，要下班后看。

墨筱婕

petergaod 发表于 2024-8-8 11:23
ActiveSheet.Shapes.AddConnector msoConnectorStraight, Selection.left, Selection(Selection.Count).Top ...

前辈
第二行代码 按了回车键就变红字了
第三行代码 后面的一按回车键 加号的符号直接消失了

petergaod

墨筱婕 发表于 2024-8-8 13:13
前辈
第二行代码 按了回车键就变红字了
第三行代码 后面的一按回车键 加号的符号直接消失了

我这是一行代码，没有第二行第三行

墨筱婕

醉眼看尘世 发表于 2024-8-8 12:38
要不要清除已有线条

你好，不要清除已有的删除线。