如何快速畫線條或矩形

1^# 跳轉到 »

發表於 2024-8-21 21:16 | 顯示全部帖子

本帖最後由 luhpro 於 2024-8-21 21:19 編輯

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

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

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

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

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

複製代碼

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

靜思自在 : 有心就有福，有願就有力，自造福田，自得福緣。