返回列表 上一主題 發帖

[發問] Excel VBA 取消圖表選取動作 程式碼請教

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
1# 跳轉到 »
發表於 2012-9-21 16:30 | 顯示全部帖子
回復 1# jsleee
你的程式碼
  1. Sub test()
  2.     Sheets("chart1").Select         '指定物件"chart1"
  3.     ActiveChart.ChartTitle.Select
  4.     Selection.Characters.Text = "數量分析"
  5.     ActiveChart.ChartArea.Select    '選取了:全部圖表區域
  6.     ActiveChart.Deselect            '取消對指定圖表的選定。
  7.     ActiveWindow.Zoom = True
  8.     '之後就留在Sheets("chart1") 圖表(工作表)
  9.     '不知你說:  "程式執行完後，還是停留在被選取的情況"
  10.     '是何意思??
  11. End Sub
複製代碼

TOP

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
2#
發表於 2012-9-21 17:55 | 顯示全部帖子
本帖最後由 GBKEE 於 2012-9-21 17:57 編輯

回復 3# c_c_lai
1#  程式執行完成後. 畫面會留在Sheets("chart1")圖表(工作表),
ActiveChart.Deselect , 已取消對指定圖表的選定。
並沒有選取圖表上的任何物件,不會有你說的不小心的刪除掉圖表上的任何物件.
所以我說:  不知你說:  "程式執行完後，還是停留在被選取的情況"  是何意思 .
樓主可能要加上  Sheets("data").Select  畫面轉到 "data"工作表

TOP

        靜思自在 : 受人點水之恩，須當湧泉以報。
返回列表 上一主題