帖子: 151
主題: 25
精華: 0
積分: 194
點名: 0
作業系統: WINDOWS 10
軟體版本: Office 2010 或 2021
閱讀權限: 20
性別: 男
註冊時間: 2011-9-6
最後登錄: 2024-11-8

1^# 跳轉到 » 正序看帖

字體大小: tT

發表於 2012-9-21 13:04 | 只看該作者

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

請教各位先進，我在使用VBA的時候，經常會於資料分析後，更新圖表標題等資料
但更新完後，希望Excel畫面能夠停留在該圖表未被選取的情況，
程式碼使用 ActiveChart.Deselect
但好像沒有反應，程式執行完後，還是停留在被選取的情況
如附件的範例....
不知有無先進可以指點一下，謝謝
JS

test.rar (14.6 KB)

樓主熱帖

jsleee

中學生 Rank: 2

帖子: 151
主題: 25
精華: 0
積分: 194
點名: 0
作業系統: WINDOWS 10
軟體版本: Office 2010 或 2021
閱讀權限: 20
性別: 男
註冊時間: 2011-9-6
最後登錄: 2024-11-8

8^#

發表於 2012-9-23 19:39 | 只看該作者

回復 7# Hsieh

感謝 Hsieh 超級版主的指點
我的問題已解決，感激不盡....

JS

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 46
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2025-2-22

2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

7^#

發表於 2012-9-22 23:21 | 只看該作者

本帖最後由 Hsieh 於 2012-9-22 23:28 編輯

回復 6# jsleee
程序驅動按鈕已經在此圖表中，不需Select

Sub test()
Sheets("Chart1").ChartTitle.Characters.Text = "數量分析"
Sheets("Chart1").Deselect
ActiveWindow.Zoom = True
End Sub

複製代碼

學海無涯_不恥下問

TOP

jsleee

中學生 Rank: 2

帖子: 151
主題: 25
精華: 0
積分: 194
點名: 0
作業系統: WINDOWS 10
軟體版本: Office 2010 或 2021
閱讀權限: 20
性別: 男
註冊時間: 2011-9-6
最後登錄: 2024-11-8

6^#

發表於 2012-9-22 22:29 | 只看該作者

回復 4# GBKEE

回覆 GBKEE 版主
我所附的附件，在程式執行完後就是無法透過程式碼取消選取的動作...
外觀看起來好像沒有選取，但其實是圖表外圍有被選取....
您可以再測試一次看看，程式執行完後，直接按 Delete ，
如果沒被選取，則不會被 Delete，但實際上卻會被刪除....
原本我用 2003版時，沒有這個問題，但 2010版就出現這樣的問題...
都必須用滑鼠再到圖表區外點一下，或是按 Esc 鍵取消，但這個動作無法錄製巨集來
所以才會提出來請教各位先進....
希望我有說清楚我的問題點....，麻煩指導一下，謝謝

JS

TOP

c_c_lai

博士班 Rank: 6 Rank: 6

帖子: 2035
主題: 24
精華: 0
積分: 2031
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 100
性別: 男
註冊時間: 2012-3-22
最後登錄: 2024-2-1

5^#

發表於 2012-9-21 20:24 | 只看該作者

回復 4# GBKEE
沒錯！
通常繪製統計圖表完成後，我都會順手 Focus 到
其它空白欄位上。

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

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

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

4^#

發表於 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

c_c_lai