標題: 新建立的圖形，如何在縮放視窗中心位置出現!! [打印本頁]

---

作者: yenwang    時間: 2015-10-9 21:57     標題: 新建立的圖形，如何在縮放視窗中心位置出現!!

想請問大家
我的程式目前利用VBA建立新增圖形資料
ActiveSheet.Shapes.AddConnector(msoConnectorStraight, 300, 120, 300, 100).Select

想問說有沒有辦法可以取得當下視窗縮放的中心位置
因為想要讓新建立的圖形位置，可以在當下縮放的視窗中心出現
避免使用者找不到新建立的圖形資料

或是要怎樣的方式，才能同excel畫圖形的方式
先選擇要繪製的類型
然後用滑鼠定位出位置給予建立新圖形??

想請問大家有沒有方式可以處理
thank you!

---

作者: 准提部林    時間: 2015-10-9 23:28

Dim uT, uL, uW, uH
With ActiveWindow.VisibleRange '當前可見儲存格範圍
　　uT = .Top '上邊距
　　uL = .Left  '左邊距
  　uW = .Width '寬度
　　uH = .Height '高度
　　MsgBox .Address　'儲存格位址
End With

物件要怎麼放，就用這四個數據去自行計算∼∼

---

作者: yenwang    時間: 2015-10-12 21:20

回復 2# 准提部林

有成功了，萬分感謝!

---

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