標題: 連續轉折線要怎麼畫!! [打印本頁]

---

作者: yenwang    時間: 2015-2-5 21:45     標題: 連續轉折線要怎麼畫!!

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

---

作者: luhpro    時間: 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

複製代碼

---

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