返回列表 上一主題 發帖

[發問] K 線股票圖如何能與主力、散戶、及成交量線共存？

seemee

帖子
93 
主題
15 
精華
0 
積分
111 
點名
0  
作業系統
win7 
軟體版本
Office 2010 X86 
閱讀權限
20 
性別
男 
註冊時間
2012-7-3 
最後登錄
2020-12-3 
1# 跳轉到 »
發表於 2013-8-20 17:47 | 顯示全部帖子
回復 1# c_c_lai


    請教一下
   我把其中語法改成  with Sheets("工作表1").ChartObjects("圖表 1").Chart
但還是要選擇圖表才可以跑
能讓巨集自動背後RUN嗎 不需要去選取圖表


股票圖表2.rar (23.18 KB)

TOP

seemee

帖子
93 
主題
15 
精華
0 
積分
111 
點名
0  
作業系統
win7 
軟體版本
Office 2010 X86 
閱讀權限
20 
性別
男 
註冊時間
2012-7-3 
最後登錄
2020-12-3 
2#
發表於 2013-8-20 20:44 | 顯示全部帖子
回復 43# c_c_lai


    不瞞你說  很多語法都剪剪貼貼的 很多語法 看不太懂
   我照你說的把chartname 改位置了..
但是圖表位置 不會動A
於是我改了最後兩行  還是不會動  麻煩幫我看一下
  1.         chartname = Trim(Replace(.Name, .Name, ""))
  2.     End With
  3.    
  4.    
  5.     Sheets("工作表1").Shapes(chartname).Left = Cells(xRow, yCol).Left     ' 設定此圖表實際擺放的 X、Y 座標位置。
  6.     Sheets("工作表1").Shapes(chartname).Top = Cells(xRow, yCol).Top
  7.    
  8.     Range("A1").Select
  9. End Sub
複製代碼

TOP

seemee

帖子
93 
主題
15 
精華
0 
積分
111 
點名
0  
作業系統
win7 
軟體版本
Office 2010 X86 
閱讀權限
20 
性別
男 
註冊時間
2012-7-3 
最後登錄
2020-12-3 
3#
發表於 2013-8-20 20:48 | 顯示全部帖子
回復 43# c_c_lai

動了動了
Sheets("工作表1").ChartObjects("圖表 1").Left  = Cells(xRow, yCol).Left   
改成這樣就可以動了..

   謝謝前輩指教

TOP

seemee

帖子
93 
主題
15 
精華
0 
積分
111 
點名
0  
作業系統
win7 
軟體版本
Office 2010 X86 
閱讀權限
20 
性別
男 
註冊時間
2012-7-3 
最後登錄
2020-12-3 
4#
發表於 2013-8-21 15:48 | 顯示全部帖子
回復 46# c_c_lai


    新問題又來了.
   .Legend.Position = xlCorner                         ' 將圖表圖示從圖表最下方調整到圖表之右上角位置

   xlCorner        我找不到這個參數是從哪裡來的
  找到這個  
   xlLegendPositionBottom -4107 圖表下方
xlLegendPositionCorner 2 位於圖表框線的右上角
xlLegendPositionCustom -4161 自訂位置
xlLegendPositionLeft -4131 圖表左邊
xlLegendPositionRight -4152 圖表右邊
xlLegendPositionTop -4160 圖表上方

把 xlCorner 改成數字(-4152) 之類的位置就可以改變  但xlCorner是從哪裡得知的

再多問一個問題
我看你的 數據是二十秒截取一次 應該是用DDE吧?
請問你一次截取多少格的數據  會不會有延遲的問題?
我用凱基大三元 截取 24X300 個數據  好像不是很順 有什麼好建議呢?

TOP

seemee

帖子
93 
主題
15 
精華
0 
積分
111 
點名
0  
作業系統
win7 
軟體版本
Office 2010 X86 
閱讀權限
20 
性別
男 
註冊時間
2012-7-3 
最後登錄
2020-12-3 
5#
發表於 2013-8-21 16:53 | 顯示全部帖子
回復 51# c_c_lai


    我只是想參考一下有沒有更穩定的DDE程式
   現在也不可能租一條專線 (沒錢)

大大  下面這個問題請看一下

  .Legend.Position = xlCorner                         ' 將圖表圖示從圖表最下方調整到圖表之右上角位置

   xlCorner        我找不到這個參數是從哪裡來的
  找到這個  
   xlLegendPositionBottom -4107 圖表下方
xlLegendPositionCorner 2 位於圖表框線的右上角
xlLegendPositionCustom -4161 自訂位置
xlLegendPositionLeft -4131 圖表左邊
xlLegendPositionRight -4152 圖表右邊
xlLegendPositionTop -4160 圖表上方

把 xlCorner 改成數字(-4152) 之類的位置就可以改變  但xlCorner是從哪裡得知的

TOP

seemee

帖子
93 
主題
15 
精華
0 
積分
111 
點名
0  
作業系統
win7 
軟體版本
Office 2010 X86 
閱讀權限
20 
性別
男 
註冊時間
2012-7-3 
最後登錄
2020-12-3 
6#
發表於 2013-8-21 17:15 | 顯示全部帖子
回復 51# c_c_lai


    再補充一個問題
   其他的數列 可以跟股票設定成同一個座標軸嗎?
   我把.AxisGroup = 2   改成 1  還是不行

TOP

seemee

帖子
93 
主題
15 
精華
0 
積分
111 
點名
0  
作業系統
win7 
軟體版本
Office 2010 X86 
閱讀權限
20 
性別
男 
註冊時間
2012-7-3 
最後登錄
2020-12-3 
7#
發表於 2013-8-21 17:36 | 顯示全部帖子
回復 55# c_c_lai


    那要怎麼指定 其他的數列到 股票圖的座標軸呢?

TOP

        靜思自在 : 得理要饒人，理直要氣和。
返回列表 上一主題