返回列表 上一主題 發帖

連續轉折線要怎麼畫!!

luhpro

帖子
835 
主題
6 
精華
0 
積分
915 
點名
0  
作業系統
Win 10,7 
軟體版本
2019,2013,2003 
閱讀權限
50 
性別
男 
註冊時間
2010-5-3 
最後登錄
2024-11-14 
1# 跳轉到 »
發表於 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

        靜思自在 : 一句溫暖的話，就像往別人身上灑香水，自己會沾到兩三滴。
返回列表 上一主題