如何快速畫線條或矩形

yenwang

大家好
主要是因為目前在Excel畫圖形，動作比較多
需要選插入，在選圖形，才能選想要的線條或矩形
想請問版上的高手，是否有相關步驟或是程式
可以點下後，就直接讓使用者用滑鼠繪製線條或是矩形!!
主要是想減少頻繁的動作
謝謝

luhpro

大家好
主要是因為目前在Excel畫圖形，動作比較多
需要選插入，在選圖形，才能選想要的線條或矩形
想請問 ...
yenwang 發表於 2024-8-13 22:10

不知道像底下這樣的實現方式是否符合你的需求?

點擊按鈕直接畫出圖形,
接著再由使用者調整大小與位置,

按按鈕畫圖形.zip (15.06 KB)

下載次數: 3

2024-8-21 21:13

1. Sub 按鈕1_Click()
   
2.   ActiveSheet.Shapes.AddShape(msoShapeRectangle, 129, 50.25, 124.5, 86.25).Select
   
3. End Sub
   
4. 
   
5. Sub 按鈕2_Click()
   
6.   ActiveSheet.Shapes.AddShape(msoShapeOval, 360, 84, 113.25, 101.25).Select
   
7. End Sub
   
8. Sub 按鈕3_Click()
   
9.    ActiveSheet.Shapes.AddConnector(msoConnectorStraight, 222, 242.25, 372, 330.75).Select
   
10. End Sub

複製代碼

註 : 本例內容都是直接照搬錄製來的程式碼應該不難理解與拓展套用.

Andy2483

回復 1# yenwang


    以下是在 自訂功能區 增加常用命令的方法,請前輩參考
1.

下載 (135.91 KB)

2024-8-22 11:06

2.

下載 (128.88 KB)

2024-8-22 11:07

Andy2483

以下是連續畫線的方法:

下載 (43.83 KB)

2024-8-22 15:41