返回列表 上一主題 發帖

如何快速畫線條或矩形

yenwang

帖子
57 
主題
36 
精華
0 
積分
94 
點名
0  
作業系統
win7 
軟體版本
office2013 
閱讀權限
20 
註冊時間
2014-9-10 
最後登錄
2024-8-13 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2024-8-13 22:10 | 只看該作者

如何快速畫線條或矩形

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

luhpro

帖子
835 
主題
6 
精華
0 
積分
915 
點名
16  
作業系統
Win 10,7 
軟體版本
2019,2013,2003 
閱讀權限
50 
性別
男 
註冊時間
2010-5-3 
最後登錄
2024-11-14 
2#
發表於 2024-8-21 21:16 | 只看該作者
本帖最後由 luhpro 於 2024-8-21 21:19 編輯
大家好
主要是因為目前在Excel畫圖形，動作比較多
需要選插入，在選圖形，才能選想要的線條或矩形
想請問 ...
yenwang 發表於 2024-8-13 22:10


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

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

按按鈕畫圖形.zip (15.06 KB)
  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
複製代碼
註 : 本例內容都是直接照搬錄製來的程式碼應該不難理解與拓展套用.

TOP

Andy2483
　暱稱: 厚臉皮的學生

大學生Rank: 4

帖子
1446 
主題
40 
精華
0 
積分
1470 
點名
0  
作業系統
Windows 7 
軟體版本
Excel 2010 & 2016 
閱讀權限
50 
性別
男 
來自
台灣 
註冊時間
2020-7-15 
最後登錄
2024-10-21 
3#
發表於 2024-8-22 11:07 | 只看該作者
回復 1# yenwang


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


2.
用行動裝置瀏覽論壇學習很方便,謝謝論壇經營團隊
請大家一起上論壇來交流

TOP

Andy2483
　暱稱: 厚臉皮的學生

大學生Rank: 4

帖子
1446 
主題
40 
精華
0 
積分
1470 
點名
0  
作業系統
Windows 7 
軟體版本
Excel 2010 & 2016 
閱讀權限
50 
性別
男 
來自
台灣 
註冊時間
2020-7-15 
最後登錄
2024-10-21 
4#
發表於 2024-8-22 15:41 | 只看該作者
以下是連續畫線的方法:
用行動裝置瀏覽論壇學習很方便,謝謝論壇經營團隊
請大家一起上論壇來交流

TOP

        靜思自在 : 君子如水，隨方就圓，無處不自在。
返回列表 上一主題