Board logo

標題: 如何快速畫線條或矩形 [打印本頁]
作者: yenwang    時間: 2024-8-13 22:10     標題: 如何快速畫線條或矩形

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

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


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

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

[attach]37853[/attach]
  1. Sub 按鈕1_Click()
  2.   ActiveSheet.Shapes.AddShape(msoShapeRectangle, 129, 50.25, 124.5, 86.25).Select
  3. End Sub

  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    時間: 2024-8-22 11:07

回復 1# yenwang


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

2.
[attach]37855[/attach]
作者: Andy2483    時間: 2024-8-22 15:41

以下是連續畫線的方法:
[attach]37856[/attach]



歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)