返回列表 上一主題 發帖

連續轉折線要怎麼畫!!

yenwang

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

連續轉折線要怎麼畫!!

目前在excel上有需要用到畫線的動作
但往往要用的線條是多個轉折的線條
可能水平，然後往下走，又轉水平，接著上走
如果用原本的畫圖，需要每段每段自己接起來
有辦法寫程式
讓畫線條時
初始點用滑鼠定義後
開始畫線(也許會用到Shift保持水平垂直)
遇到轉折時，用滑鼠確定後，開始另一個方向的繪製
最後結束的時候，可以用ESC或是滑鼠連續點兩下之類的
終止繪圖!!
有辦法達到這功能嗎???
收藏 分享

luhpro

帖子
835 
主題
6 
精華
0 
積分
915 
點名
0  
作業系統
Win 10,7 
軟體版本
2019,2013,2003 
閱讀權限
50 
性別
男 
註冊時間
2010-5-3 
最後登錄
2025-7-5 
2#
發表於 2015-2-23 22:21 | 只看該作者
回復 1# yenwang
因為不知道你到底要畫成甚麼樣子的圖形,
所以建議你可以試試用系統本身就有的 "錄製新巨集" 功能,
先用人工繪製的方式讓系統自動產生畫圖形的程式,
再嘗試修改成你要的結果.

如下式就是錄製出來的:
  1. Sub Macro1()
  2.     ActiveSheet.Shapes.AddLine(64.5, 58.5, 237#, 58.5).Select
  3.     ActiveSheet.Shapes.AddLine(192.75, 59.25, 237.75, 285.75).Select
  4.     Selection.ShapeRange.Flip msoFlipHorizontal
  5. End Sub
複製代碼

TOP

        靜思自在 : 【生命在呼吸間】佛陀說：「生命在呼吸間。」人無法管住自己的生命，更無法擋住死期，讓自己永住人間。既然生命去來這麼無常，我們更應該好好地愛惜它、利用它、充實它，讓這無常、寶貴的生命，散發它真善美的光輝，映照出生命真正的價值。
返回列表 上一主題