返回列表 上一主題 發帖

新建立的圖形，如何在縮放視窗中心位置出現!!

yenwang

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

新建立的圖形，如何在縮放視窗中心位置出現!!

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

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

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

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

准提部林

帖子
2843 
主題
10 
精華
0 
積分
2899 
點名
0  
作業系統
〔略〕 
軟體版本
〔略〕 
閱讀權限
100 
性別
男 
來自
〔略〕 
註冊時間
2013-5-13 
最後登錄
2025-10-18 
2#
發表於 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

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

TOP

yenwang

帖子
57 
主題
36 
精華
0 
積分
94 
點名
0  
作業系統
win7 
軟體版本
office2013 
閱讀權限
20 
註冊時間
2014-9-10 
最後登錄
2024-8-13 
3#
發表於 2015-10-12 21:20 | 只看該作者
回復 2# 准提部林

有成功了，萬分感謝!

TOP

        靜思自在 : 每天無所事事，是人生的消費者，積極、有用才是人生的創造者。
返回列表 上一主題