c_c_lai

回復 16# GBKEE
找到答案了

1. ActiveChart.SetElement (msoElementChartTitleCenteredOverlay)   ' 一定要先宣告 SelElement， 否則 ChartTile 執行時會出現執行階段錯誤 '5':  程序呼叫或引述不正確
   
2.   ActiveChart.ChartTitle.Text = "成交價與成交量"
   
3. Cells(3, 38).Value = ActiveChart.ChartTitle.Text

複製代碼

c_c_lai

回復 19# GBKEE
感謝感謝，實在是獲益良多！

c_c_lai

回復 19# GBKEE
最近實際一口氣每次 Run 了六個圖表，且是線上隨時修正匯入總筆數 (如： "統計圖表!$B$1:統計圖表!$B$" & totalRows )，
結果發現在每次自動更新後，都 Focus 在最後一個圖表上。如果此時動了鍵盤就出狀況了；
譬如： 您可能此時在 Excel 上修正某些資料，如：使用 DEL 鍵等，便將該最後 Focus 的圖表給刪除掉了，
這也是我剛剛沒留意而發生的情況。 結果只剩下了五個圖表，經仔細觀察，發覺只要 VBA 自動執行  
.SetSourceData Source:=Range("統計圖表!$B$1:統計圖表!$B$" & totalRows) 後，換成第五個圖表 (最後一個圖表) 被
Focus 了。
請問我要如何避開此困擾的問題。 假設 畫完圖表後，下個指令，如： Cells(1,1).Select 當然便將移轉 Focus 到 A1 欄位上了，
但是如果您在 .SetSourceData 執行前，正在閱覽其它的工作表單，則接下來的畫面便會被切到 A1 欄位上了。
這樣處理豈不感到非常奇怪？ 因為閱覽頁面突然被強制轉移了！
請問有否判斷原本閱覽頁面、或者是原本游標在哪裡，繪完圖後自動切回到原頁面？ 或者是還有更棒的 Idea？
謝謝您了！

c_c_lai

回復 22# GBKEE

該情況需在盤中運作時才觀察得到，因昨日盤中不小心刪掉最後的那張圖表，怕不客觀，所以今天我再觀察看看，
如果仍然一樣我再向您稟告，謝謝您！

c_c_lai

回復 22# GBKEE
觀察結果如：
1).   我故意先將游標 Focus 到 AZ2 欄位上，做為方便辨識之用。

下載 (86.67 KB)

2012-4-19 10:23

2).  接下不去碰觸任何咚咚，觀察齊資料動態處哩，只要它一回寫 getEndRows ，
      動作結束後便會自動  Focus 到 "主力、散戶、與成交價、量" 的圖表上。

下載 (87.19 KB)

2012-4-19 10:32

請教應如何去避免此狀況，而且也不會影響到原本查看的頁面。
謝謝您！

1. Sub Test()
   
2.     .
   
3.     .
   
4.     .
   
5.     Call getEndRows("統計圖表")
   
6.     Call getEndRows("Omega")
   
7.     .
   
8. End Sub
   
9. 
   
10. Sub getEndRows(sDraw As String)  
    
11.     Dim oShape As Shape
    
12.     Dim numChart As Integer
    
13.     Dim totalRows As Single
    
14.    
    
15.     numChart = 0
    
16.    
    
17.     totalRows = Sheets("統計圖表").Range("B" & Rows.Count).End(xlUp).Row     ' 傳回 B 欄所使用儲存格之最後一格之列號
    
18.     Sheets(sDraw).Select
    
19.             
    
20.     For Each oShape In ActiveSheet.Shapes
    
21.         If oShape.Type = 3 Then
    
22.             numChart = numChart + 1
    
23.             
    
24.             ActiveSheet.ChartObjects(oShape.Name).Activate   
    
25.                
    
26.             Select Case numChart
    
27.                 Case 1
    
28.                     ActiveChart.SetSourceData Source:=Range("統計圖表!$B$1:統計圖表!$B$" & totalRows & ", 統計圖表!$AA$1:統計圖表!$AA$" & totalRows) ' 圖示會分別顯示出 主力界入
    
29.                 Case 2
    
30.                     ActiveChart.SetSourceData Source:=Range("統計圖表!$B$1:統計圖表!$B$" & totalRows & ", 統計圖表!$AB$1:統計圖表!$AB$" & totalRows) ' 圖示會分別顯示出 力差
    
31.                 Case 3
    
32.                     ActiveChart.SetSourceData Source:=Range("統計圖表!$B$1:統計圖表!$B$" & totalRows & ", 統計圖表!$AC$1:統計圖表!$AC$" & totalRows) ' 圖示會分別顯示出 消化力
    
33.                 Case 4
    
34.                     ActiveChart.SetSourceData Source:=Range("統計圖表!$B$1:統計圖表!$B$" & totalRows & ", 統計圖表!$AD$1:統計圖表!$AD$" & totalRows) ' 圖示會分別顯示出 均差(大戶)
    
35.                 Case 5
    
36.                     ActiveChart.SetSourceData Source:=Range("統計圖表!$B$1:統計圖表!$B$" & totalRows & ", 統計圖表!$F$1:統計圖表!$F$" & totalRows & ", 統計圖表!$I$1:統計圖表!$J$" & totalRows & ", 統計圖表!$V$1:統計圖表!$V$" & totalRows)  ' 圖示會分別顯示出 成交價、主力界入、散戶方向、以及成交量。
    
37.                 Case Else
    
38.                     ActiveChart.SetSourceData Source:=Range("統計圖表!$B$1:統計圖表!$B$" & totalRows & ", 統計圖表!$F$1:統計圖表!$F$" & totalRows & ", 統計圖表!$V$1:統計圖表!$V$" & totalRows)   ' 圖示會分別顯示出 成交價
    
39.             End Select
    
40.         End If
    
41.         
    
42.         If (sDraw = "Omega" And numChart = 5) Then Exit For
    
43.     Next
    
44. End Sub

複製代碼

c_c_lai

回復 25# GBKEE
如果改成 ActiveSheet.ChartObjects(oShape.Name).Select 可行否？

經實際測試， .Activate = .Select 結果一樣，
應如何修正呢？ 如果將它 Mask ' 圖形便走樣了！

c_c_lai

回復 27# GBKEE
太棒了！問題終於解決了。
請教您：
使用             With ActiveSheet.ChartObjects(oShape.Name).Chart    與
使用            ActiveSheet.ChartObjects(oShape.Name).Activate        
在實務應用面上，其意義上到底有甚麼差別呢？ With ActiveSheet.ChartObjects(oShape.Name).Chart  
會自行行使 Select 嗎？

c_c_lai

回復 29# GBKEE
再請教一下：
我執行繪圖的程序是：
1)  載入資料全部放置在 "統計圖表"工作表單，按鈕選項全部安插在"Omega"工作表單上。
2) 如果選按 "全部重繪"， 它會先繪製 "統計圖表"工作表單上的圖表，接下來再去繪製"Omega"工作表單上的圖表
    (兩個工作表單表單上執行的繪圖模組是一樣的，只是分別將兩個工作表單上繪製同樣圖表)
3) 在"統計圖表"工作表單上成功地繪製出六個圖表後，接著又要在"Omega"工作表單上劃出同樣六個相同圖表時，
     卻出現一錯誤訊息  -----  系統錯誤 &H80040000 (-2147221504)。  無效的 OLEVERB 結構
     按完確認鈕後，不予理會在執行一次，接著又出現一錯誤視窗  -----  400
4) 觀察結果是："統計圖表"工作表單上成功地繪製出了六個正確圖表，而在"Omega"工作表單上有時只產生了一張圖表，
    有時卻都產生瞭六個圖表，但其數列均非指定的數列，而是"Omega"工作表單上本身之其他用途的數據資料 (亂抓Omega的使用資料)。
請問這是何種情況才會如此？

5) 將其所有相關模組放入另一 Excel 表內執行，都正常。
     但不同的是： 這個表單的"Omega"工作表單上並無存放任何資料，僅擺放按鈕而已。   (將它附上參考，所有模組均一致)
    (為了與原始一致，"Omega" 的圖表位置是在 AI:AF 間)
主力、散戶、成交價、量.rar (198.08 KB)

下載次數: 11

2012-4-19 16:16

(最後支附件才是)

c_c_lai

回復 29# GBKEE

我將此兩頁之畫面附上供參考：

下載 (76.61 KB)

2012-4-19 17:22

下載 (92.96 KB)

2012-4-19 17:25

c_c_lai

回復 32# GBKEE
我得到了一個心得，那就是當您圖表的資料來源指向非本工作表單時 (例如：要在 A工作表單 繪製統計圖表、而來源資料卻在 B工作表單 )，
於重新在繪製時，時而正常，多時亂序。
但是經多次測試發現最重要的癥結是： 當 A工作表單 內容除了所需選擇按鈕外，無任何資料存在，一切正常。
                                                                     ***  當 A工作表單 內容除了所需選擇按鈕外，已經存在有其他的任何資料 (如附件之狀況)，少少執行正常、多時脫線亂序。
煩請幫忙看看，謝謝您！

下載 (62.61 KB)

2012-4-20 08:19

下載 (33.85 KB)

2012-4-20 08:20

被圖表弄得快要崩潰了.rar (185.92 KB)

下載次數: 12

2012-4-20 08:20