返回列表 上一主題 發帖

[發問] 主座標軸與副座標軸群組間應如何正確設定

c_c_lai

帖子
2035 
主題
24 
精華
0 
積分
2031 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
100 
性別
男 
註冊時間
2012-3-22 
最後登錄
2024-2-1 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2012-4-14 12:11 | 只看該作者

[發問] 主座標軸與副座標軸群組間應如何正確設定

請教各位先進：
在圖表應用上，主座標軸與副座標軸群組間應該如何去正確設定？
附上執行前後之結果畫面。 之前曾經發生過錯誤訊息，如圖表一。
我是使用同一模組分別執行在 Omega、統計圖表的兩個工作表單內。
後來不知是否在修改過程中無意避掉了 (請問是否語法不正確？應該留意哪裡？)。
當前發生的問題是：
當您選按種會所有統計圖表、或重繪Omega、抑或是重繪統計圖表等按鈕，
一切都能正常顯示 (如圖表二)，但是當您選按統計圖表歸位，成交價卻變成
一橫線了，檢查結果是它會去改變原先之設定 (成交價原設定為副座標軸群組，
一經執行歸為按鈕，經檢查它卻成為主座標軸)，請問語法上應如何改進？
敬請各位前輩指點，謝謝您！
圖表一：

圖表二：


附上檔案：
主力、散戶與價量.rar (175.82 KB)

01.png (41.44 KB)

01.png

收藏 分享

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-4-14 22:17 | 只看該作者
回復 1# c_c_lai
版本不圖 不易偵錯 ,寫個範例你參考一下
  1. Private Sub 製圖()
  2.     Dim xR As Range, Xi As Integer, i As Integer, 圖色()
  3.     圖色 = Array(4, 6, 8, 10)
  4.     ActiveSheet.ChartObjects.Delete         '刪除全部圖表
  5.     Set xR = Range("F1")    '利用xR的位置 設下圖表的位置
  6.         '加入新圖表  須指定 1右邊位置, 2高度位置, 3圖表的Width, 4圖表的Height
  7.         With ChartObjects.Add(xR.Left, xR.Top, xR.Resize(, 10).Width, xR.Resize(10).Height).Chart
  8.             .ChartType = 51  ' xlLineMarkers    '折線圖                             '圖表 式樣
  9.             With ActiveSheet.Range("A11").CurrentRegion
  10.                     Set xR = Union(.Columns(1), .Columns(3), .Columns(5))
  11.                     '資料 範圍的 1,3,5 欄為圖表資料  :第1欄 為x軸的數值
  12.             End With
  13.             .SetSourceData Source:=xR, PlotBy:=xlColumns
  14.             '圖表資料來源 : xR  資料式樣: 欄
  15.                           
  16.              .HasTitle = True                                              '顯示 圖表標題
  17.              .ChartTitle.Characters.Text = ActiveSheet.Name                'HasTitle = False 會有錯誤
  18.              .HasAxis(xlCategory, xlPrimary) = False                       '不顯示 X軸座標
  19.             
  20.             'HasLegend 圖例
  21.              .HasLegend = False                                         ' 取消 顯示 圖例
  22.            '  .Legend.Position = xlTop                                   '顯示 圖例位置
  23.            ' .Axes(xlCategory).TickLabels.NumberFormatLocal = "m/d;@"    ' Axes(xlCategory) X座標軸
  24.            ' ** 上二式 須  顯示圖例 ->  .HasLegend = True
  25.             
  26.             '.SeriesCollection(1).AxisGroup = 2                           '新增 Y座標軸 副座標軸
  27.           '  .SeriesCollection(3)).Delete                 '刪除第3數列資料
  28.             With .Axes(xlValue)          'y軸格線
  29.                 .HasMajorGridlines = 0   '取消 主格線
  30.                 .HasMinorGridlines = 0   '取消 副格線
  31.             End With
  32.             '以下一些程式碼 你可用錄製得知
  33.             With .ChartArea                                             '圖表的圖表區
  34.                 .Border.Weight = 1
  35.                 .Border.LineStyle = -1
  36.                 .Fill.OneColorGradient Style:=msoGradientHorizontal, Variant:=3, Degree:=0.231372549019608
  37.                 .Fill.Visible = True
  38.                 .Fill.ForeColor.SchemeColor = 圖色(0)
  39.             End With
  40.             With .PlotArea                                              '圖表的 繪圖區
  41.                 .Fill.OneColorGradient Style:=msoGradientHorizontal, Variant:=1, _
  42.                 Degree:=0.231372549019608
  43.                 .Fill.Visible = True
  44.                 .Fill.ForeColor.SchemeColor = 圖色(0)
  45.                 With .Border
  46.                     .ColorIndex = 16
  47.                     .Weight = xlThin
  48.                     .LineStyle = xlContinuous
  49.                 End With
  50.             End With
  51.             For i = 1 To .SeriesCollection.Count
  52.                 With .SeriesCollection(i)   '數列
  53.                   '  .XValues = ""           '<-為x軸的數值   可在此取消
  54.                     With .Border
  55.                         .ColorIndex = 圖色(i)
  56.                         .Weight = xlMedium
  57.                         .LineStyle = xlContinuous
  58.                     End With
  59.                     '以下屬性 只適合 折線圖
  60.                    ' .MarkerBackgroundColorIndex = xlAutomatic
  61.                     '.MarkerForegroundColorIndex = xlAutomatic
  62.                     '.MarkerStyle = xlNone
  63.                     '.Smooth = False
  64.                     '.MarkerSize = 7
  65.                     '.Shadow = False
  66.                 End With
  67.             Next
  68.         End With
  69. End Sub
複製代碼

TOP

c_c_lai

帖子
2035 
主題
24 
精華
0 
積分
2031 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
100 
性別
男 
註冊時間
2012-3-22 
最後登錄
2024-2-1 
3#
發表於 2012-4-15 08:29 | 只看該作者
回復 2# GBKEE
謝謝您完整的說明，但是有個重要的、也是我目前不甚瞭解的部分如下，尚請再予賜教：
                          .      
    Set xR = Range("F1")    '利用xR的位置 設下圖表的位置
    '加入新圖表  須指定 1右邊位置, 2高度位置, 3圖表的Width, 4圖表的Height
    With ChartObjects.Add(xR.Left, xR.Top, xR.Resize(, 10).Width, xR.Resize(10).Height).Chart
        .ChartType = 51  ' xlLineMarkers    '折線圖                             '圖表 式樣
        With ActiveSheet.Range("A11").CurrentRegion
            Set xR = Union(.Columns(1), .Columns(3), .Columns(5))
            '資料 範圍的 1,3,5 欄為圖表資料  :第1欄 為x軸的數值
        End With
        .SetSourceData Source:=xR, PlotBy:=xlColumns
        '圖表資料來源 : xR  資料式樣: 欄
                          .      
    End With

您說第1欄 為x軸的數值，指的是下列的 "=統計圖表!$B$2:$B$" & totalRows ？ 假設是的話， 那麼這兒的 "資料範圍的 1,3,5 欄為圖表資料"
即為假設的第一欄、第三欄、第五欄，在目前應如何去對應到我的 ( F 欄 )、( I 欄 )、( J 欄 )、( V 欄 )等四組線呢？ 我能否這麼設定
Set xR = Union(Range("統計圖表!$B$1:統計圖表!$B$" & totalRows), Range("統計圖表!$F$1:統計圖表!$F$" & totalRows), Range("統計圖表!$I$1:統計圖表!$I$" & totalRows), Range("統計圖表!$J$1:統計圖表!$J$" & totalRows), Range("統計圖表!$V$1:統計圖表!$V$" & totalRows))
因為如果我直接使用原本的  .SetSourceData Source:=Range("統計圖表!$B$1:統計圖表!$B$" & totalRows & ", 統計圖表!$F$1:統計圖表!$F$" & totalRows & ", 統計圖表!$I$1:統計圖表!$J$" & totalRows)  
圖示會分別顯示出 成交價、主力界入、以及散戶方向，但是第四組的 成交量 卻無法擠入，我試過最多只能使用三組宣告。
其中第一組是時間軸數值、第一組是成交價資料軸數值、第一組是主力界入、散戶方向資料軸數值 (因此兩欄係為 I、J兩欄之原因，所以是 I1:J###)。
這亦是我會加上後續宣告之故：
   .SeriesCollection.Add Source:=Range("統計圖表!$V$2:統計圖表!$V$" & totalRows)  ' 成交量資料
   .SeriesCollection(4).Name = "=統計圖表!$V$1"
所以在實務運作上，第二個工作表單之圖表大部分時間均能順利產生，但接著在產生第一個工作表單之圖表時，因為需去對應第二個工作表單之已、或待匯入資料，
時而順暢、偶時便出狀況了 (如先前附上的圖表一、二)， 這是第一種情形。

因為考慮有時為了閱覽方便因素，有可能會隨時將圖表移位方便閱覽，最終會希望系統能自動將圖表歸回原來設定之座標位置，此程式段(圖表歸位鈕 - setRowColumn)則更改為：
   ActiveChart.SetSourceData Source:=Range("統計圖表!$B$1:統計圖表!$B$" & totalRows & ", 統計圖表!$F$1:統計圖表!$F$" & totalRows & ", 統計圖表!$I$1:統計圖表!$J$" & totalRows)  ' 圖示會分別顯示出 成交價、主力界入、以及散戶方向。
   ActiveChart.SeriesCollection.Add Source:=Range("統計圖表!$V$2:統計圖表!$V$" & totalRows)
   ActiveChart.SeriesCollection(4).Name = "=統計圖表!$S$1"     ' S1 與 V1 相同標題，均為 成交量
移位或者是新資料匯入時，均會處理上面三行動作，結果不是出現先前附上的圖表一的問題，便是圖表二的問題。
不知是否在修正模式下不能使用 ActiveChart.SeriesCollection.Add ？ 假設條件成立，那要如何順利將第四組(甚或是還有第五組...)安全送上壘呢？

GBKEE前輩，實在是不好意思，麻煩您了！

以下是我欄位從屬關係對應內容，敬請參考：     
                          .      
totalRows = Sheets("統計圖表").Range("B" & Rows.Count).End(xlUp).Row     ' 傳回 B 欄所使用儲存格之最後一格之列號
                          .     
                          .   
' 選取資料來源->成交價      ( F 欄 )                                ----->  副座標軸群組
ActiveChart.SeriesCollection(1).Name = "=統計圖表!$F$1"            
ActiveChart.SeriesCollection(1).Values = "=統計圖表!$F$2:$F$" & totalRows      
ActiveChart.SeriesCollection(1).XValues = "=統計圖表!$B$2:$B$" & totalRows  ' 時間軸

' 選取資料來源->主力界入    ( I 欄 )                                ----->  主座標軸群組   
ActiveChart.SeriesCollection(2).Name = "=統計圖表!$I$1"            
ActiveChart.SeriesCollection(2).Values = "=統計圖表!$I$2:$I$" & totalRows   
ActiveChart.SeriesCollection(2).XValues = "=統計圖表!$B$2:$B$" & totalRows  ' 時間軸     

' 選取資料來源->散戶方向    ( J 欄 )                                ----->  主座標軸群組
ActiveChart.SeriesCollection(3).Name = "=統計圖表!$J$1"            
ActiveChart.SeriesCollection(3).Values = "=統計圖表!$J$2:$J$" & totalRows
ActiveChart.SeriesCollection(3).XValues = "=統計圖表!$B$2:$B$" & totalRows  ' 時間軸   

' 選取資料來源->成交量      ( V 欄 )                                ----->  主座標軸群組
ActiveChart.SeriesCollection(4).Name = "=統計圖表!$V$1"            
ActiveChart.SeriesCollection(4).Values = "=統計圖表!$V$2:$V$" & totalRows   
ActiveChart.SeriesCollection(4).XValues = "=統計圖表!$B$2:$B$" & totalRows  ' 時間軸

TOP

GBKEE

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

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
4#
發表於 2012-4-15 15:47 | 只看該作者
回復 3# c_c_lai
  1. Sub setRowColumn(sDraw As String)
  2.     Dim oShape As Shape
  3.     Dim xRow, yCol, cHeight, cWidth, inLeft, inTop, inWidth As Integer
  4.     Dim totalRows As Single
  5.     Dim chartname As String
  6.     'totalRows = Sheets("統計圖表").Range("B" & Rows.Count).End(xlUp).Row     ' 傳回 B 欄所使用儲存格之最後一格之列號
  7.     '如作用中物件 不是工作表 會有錯誤 如是圖表等
  8.     totalRows = Sheets("統計圖表").Range("B" & Sheets("統計圖表").Rows.Count).End(xlUp).Row     ' 傳回 B 欄所使用儲存格之最後一格之列號
  9.     Sheets(sDraw).Select
  10.     For Each oShape In ActiveSheet.Shapes
  11.         If oShape.Type = 3 Then
  12.             ActiveSheet.ChartObjects(oShape.Name).Activate                      ' 滑鼠點在 "圖表 #" 上 (例如：主力界入)。
  13.             '*************
  14.             '你上式程式碼  使得作用中物件變為 圖表 後面的程式如有 取的工作表的位址 皆須加上  Sheets((工作表).[A1] 等...
  15.             ActiveChart.SetSourceData Source:=Range("統計圖表!$B$1:統計圖表!$B$" & totalRows & ", 統計圖表!$F$1:統計圖表!$F$" & totalRows & _
  16.             ", 統計圖表!$I$1:統計圖表!$J$" & totalRows & ", 統計圖表!$S$1" & totalRows)  ' 圖示會分別顯示出 成交價、主力界入、以及散戶方向。
  17.             
  18.             'ActiveChart.SeriesCollection.Add Source:=Range("統計圖表!$S$1"& totalRows)
  19.             'ActiveChart.SeriesCollection(4).Name = "=統計圖表!$S$1"  '*** 位址要用R1C1 方式表示
  20.             'ActiveChart.SeriesCollection(4).Name = "=" & [統計圖表!$S$1].Address(, , xlR1C1, 1)
  21.             'ActiveChart.SeriesCollection(4).ChartType = xlColumnClustered          ' 堆疊直條圖
  22.             xRow = 2
  23.             yCol = 1
  24.             cHeight = 488
  25.             cWidth = 450
  26.             inLeft = 30
  27.             inTop = 30
  28.             inWidth = 378
  29.             chartname = Trim(Replace(ActiveChart.Name, ActiveSheet.Name, ""))
  30.             'ActiveChart.ChartArea.Height = cHeight                           ' 將原本設定之高度調至適度位置
  31.             'ActiveChart.ChartArea.Width = cWidth
  32.             'ActiveSheet.Shapes(chartname).Left = Cells(xRow, yCol).Left     ' 設定此圖表實際擺放的 X、Y 座標位置。
  33.             'ActiveSheet.Shapes(chartname).Top = Cells(xRow, yCol).Top
  34.             With ActiveChart.Parent
  35.                 .Width = cWidth                                       'ChartArea.-改成 父層  Parent
  36.                 .Height = cHeight
  37.                 .Left = ActiveSheet.Cells(xRow, yCol).Left
  38.                 .Top = ActiveSheet.Cells(xRow, yCol).Top
  39.                 With .Chart.PlotArea                  ' 實際繪圖區塊的範圍設定
  40.                   Debug.Print .InsideLeft             '  傳回: 繪圖區塊範圍設定
  41.                   Debug.Print .InsideTop              'Debug.Print: 印列在->   在檢視指令->即時運算視窗
  42.                   Debug.Print .InsideWidth
  43.                     .Left = inLeft                    '  設定: 繪圖區塊範圍
  44.                     .Top = inTop
  45.                     .Width = inWidth
  46.                 End With
  47.             End With
  48.         End If
  49.     Next
  50. End Sub
複製代碼

TOP

c_c_lai

帖子
2035 
主題
24 
精華
0 
積分
2031 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
100 
性別
男 
註冊時間
2012-3-22 
最後登錄
2024-2-1 
5#
發表於 2012-4-15 19:05 | 只看該作者
回復 4# GBKEE
謝謝您的費心幫忙，我只異動了處理 ActiveChart.SetSourceData 的內容修正 (之前輸入最多三項的限制，可能是我當時有打錯字，
以致誤以為不行)，修正內容如下：
mainPowerForce 模組修正內容：  .SetSourceData Source:=Range("統計圖表!$B$1:統計圖表!$B$" & totalRows & ", 統計圖表!$F$1:統計圖表!$F$" & totalRows & ", 統計圖表!$I$1:統計圖表!$J$"  
                                                              &  totalRows & ", 統計圖表!$V$1:統計圖表!$V$" & totalRows)  ' 圖示會分別顯示出 成交價、主力界入、散戶方向、以及成交量。
setRowColumn  模組修正內容： ActiveChart.SetSourceData Source:=Range("統計圖表!$B$1:統計圖表!$B$" & totalRows & ", 統計圖表!$F$1:統計圖表!$F$" & totalRows & ",
                                                           統計圖表!$I$1:統計圖表!$J$" & totalRows & ", 統計圖表!$V$1:統計圖表!$V$" & totalRows)  ' 圖示會分別顯示出 成交價、主力界入、散戶方向、以及成交量。
圖表還真難搞呢！ 幸慶終於順利解決了，作業上因為要將目前已匯入實際資料的資料列數紀錄，並同步修正結果卻惹出了一堆問題 (400, 1004, Automation 等等)，命都差點丟了！
我將程式代碼附上，以幫助有此需求的同好找到好工作、或好事業。
再次向您說聲感謝您！
  1. Sub DrawAll()
  2.     Call drawStatistics
  3.     Call drawOmegaCharts
  4. End Sub

  6. Sub drawStatistics()
  7.     drawCharts ("統計圖表")
  8. End Sub

  10. Sub drawOmegaCharts()
  11.     drawCharts ("Omega")
  12. End Sub

  14. Sub removeCharts(st As String)
  15.     Dim oShape As Shape
  16.     Dim str As String
  17.    
  18.     str = ActiveSheet.Name
  19.     Sheets(st).Select
  20.    
  21.     For Each oShape In ActiveSheet.Shapes
  22.         If oShape.Type = 3 Then
  23.             oShape.Delete
  24.         End If
  25.     Next
  26.    
  27.     Sheets(str).Select
  28. End Sub

  30. Sub drawCharts(sta As String)
  31.     Dim str As String
  32.    
  33.     str = ActiveSheet.Name
  34.     Sheets(sta).Select

  36.     Call removeCharts(sta)

  38.     Selection.Borders(xlDiagonalDown).LineStyle = xlNone
  39.     Selection.Borders(xlDiagonalUp).LineStyle = xlNone
  40.     Selection.Borders(xlEdgeLeft).LineStyle = xlNone
  41.    
  42.     With Selection.Borders(xlEdgeTop)
  43.         .LineStyle = xlContinuous
  44.         .ColorIndex = 0
  45.         .TintAndShade = 0
  46.         .Weight = xlThin
  47.     End With
  48.    
  49.     Selection.Borders(xlEdgeBottom).LineStyle = xlNone
  50.    
  51.     With Selection.Borders(xlEdgeRight)
  52.         .LineStyle = xlContinuous
  53.         .ColorIndex = 0
  54.         .TintAndShade = 0
  55.         .Weight = xlThin
  56.     End With
  57.    
  58.     Call mainPowerForce(sta)
  59.    
  60.     Cells(1, 1).Select
  61.     Sheets(str).Select
  62. End Sub

  64. Sub mainPowerForce(sDraw As String)
  65.     Dim totalRows As Single
  66.     Dim counter, xRow, yCol, cHeight, cWidth, inLeft, inTop, inWidth As Integer
  67.     Dim text As String
  68.     Dim chartname As String
  69.     ' Dim rXY As Range

  71.     totalRows = Sheets("統計圖表").Range("B" & Rows.Count).End(xlUp).Row     ' 傳回 B 欄所使用儲存格之最後一格之列號
  72.     Sheets(sDraw).Select
  73.     Cells(1, 1).Value = totalRows
  74.       
  75.    
  76.     ActiveSheet.Shapes.AddChart.Select
  77.                                              
  78.     With ActiveChart
  79.         .ChartType = xlLine               ' 折線圖
  80.         
  81.         ' 圖示會分別顯示出 資料錄匯入之時間、成交價、主力界入、散戶方向、以及成交量。
  82.         ' Set rXY = Union(Range("統計圖表!$B$1:統計圖表!$B$" & totalRows), Range("統計圖表!$F$1:統計圖表!$F$" & totalRows), Range("統計圖表!$I$1:統計圖表!$I$" & totalRows), Range("統計圖表!$J$1:統計圖表!$J$" & totalRows), Range("統計圖表!$V$1:統計圖表!$V$" & totalRows))
  83.         ' .SetSourceData Source:=rXY
  84.         .SetSourceData Source:=Range("統計圖表!$B$1:統計圖表!$B$" & totalRows & ", 統計圖表!$F$1:統計圖表!$F$" & totalRows & _
  85.           ", 統計圖表!$I$1:統計圖表!$J$" & totalRows & ", 統計圖表!$V$1:統計圖表!$V$" & totalRows)  ' 圖示會分別顯示出 成交價、主力界入、散戶方向、以及成交量。
  86.                               
  87.         ' .SeriesCollection.Add Source:=Range("統計圖表!$V$2:統計圖表!$V$" & totalRows)
  88.         ' .SeriesCollection(4).Name = "=統計圖表!$S$1"
  89.                         
  90.         .SeriesCollection(1).AxisGroup = 2
  91.         .SeriesCollection(2).ChartType = xlLine          ' 折線圖
  92.                         
  93.         .SeriesCollection(4).ChartType = xlColumnClustered          ' 堆疊直條圖
  94.                              
  95.                              
  96.         .Axes(xlCategory).CategoryType = xlCategoryScale
  97.         .Axes(xlCategory).TickLabels.NumberFormatLocal = "hh:mm"
  98.         .Axes(xlCategory).MajorTickMark = xlNone
  99.         .Axes(xlCategory).TickLabelPosition = xlLow
  100.             
  101.         .Axes(xlValue, xlSecondary).TickLabels.NumberFormatLocal = "0_ "        ' 代表物件的格式代碼。
  102.         .Axes(xlValue).TickLabels.NumberFormatLocal = "0_ "                     ' 代表物件的格式代碼。
  103.     End With

  105.     With ActiveChart.SeriesCollection(1).Format.Line       ' 成交價
  106.         .Visible = msoTrue
  107.         .ForeColor.RGB = RGB(255, 0, 0)          ' 成交價指數顯示之顏色    ---   紅色
  108.         .Transparency = 0
  109.     End With

  111.     With ActiveChart.SeriesCollection(2).Format.Line       ' 主力界入
  112.         .Visible = msoTrue
  113.         .ForeColor.RGB = RGB(32, 178, 170)       ' 主力界入指數顯示之顏色    ---   海洋綠色
  114.         .Transparency = 0
  115.     End With

  117.     With ActiveChart.SeriesCollection(3).Format.Line       ' 散戶方向
  118.         .Visible = msoTrue
  119.         .ForeColor.RGB = RGB(65, 105, 225)       ' 散戶方向指數顯示之顏色    ---   天藍色
  120.         .Transparency = 0
  121.     End With
  122.    
  123.     With ActiveChart.SeriesCollection(4).Format.Line       ' 成交量
  124.         .Visible = msoTrue
  125.         .ForeColor.RGB = RGB(147, 112, 219)      ' 成交量指數顯示之顏色    ---   紫色
  126.         .Transparency = 0
  127.     End With

  129.     xRow = 2
  130.     yCol = 1
  131.    
  132.     cHeight = 488
  133.     cWidth = 450
  134.     inLeft = 30
  135.     inTop = 30
  136.     inWidth = 378

  138.     text = "主力、散戶、與成交價、量"

  140.     chartname = Trim(Replace(ActiveChart.Name, ActiveSheet.Name, ""))
  141.     ActiveChart.ChartArea.Height = cHeight                           ' 將原本設定之高度調至適度位置
  142.     ActiveChart.ChartArea.Width = cWidth
  143.                
  144.     ActiveSheet.Shapes(chartname).Left = Cells(xRow, yCol).Left     ' 設定此圖表實際擺放的 X、Y 座標位置。
  145.     ActiveSheet.Shapes(chartname).Top = Cells(xRow, yCol).Top
  146.       
  147.     With ActiveChart.PlotArea                    ' 實際繪圖區塊的範圍設定
  148.          .InsideLeft = inLeft
  149.          .InsideTop = inTop
  150.          .InsideWidth = inWidth
  151.     End With
  152.                
  153.     ActiveChart.SetElement (msoElementChartTitleCenteredOverlay)
  154.     ActiveChart.ChartTitle.text = text
  155.     ActiveChart.ChartTitle.Format.TextFrame2.TextRange.Font.Size = 16
  156.         
  157.     ActiveChart.Legend.Position = xlCorner     ' 將圖表圖示從圖表最下方調整到圖表之右上角位置
  158.     ' Set rXY = Nothing
  159. End Sub

  161. Sub resetRC()
  162.     Call setRowColumn("統計圖表")
  163.     Call setRowColumn("Omega")
  164. End Sub

  166. Sub setRowColumn(sDraw As String)
  167.     Dim oShape As Shape
  168.     Dim xRow, yCol, cHeight, cWidth, inLeft, inTop, inWidth As Integer
  169.     Dim totalRows As Single
  170.     Dim chartname As String
  171.    
  172.     totalRows = Sheets("統計圖表").Range("B" & Rows.Count).End(xlUp).Row     ' 傳回 B 欄所使用儲存格之最後一格之列號
  173.     Sheets(sDraw).Select
  174.    
  175.             
  176.     For Each oShape In ActiveSheet.Shapes
  177.         If oShape.Type = 3 Then
  178.             ActiveSheet.ChartObjects(oShape.Name).Activate                      ' 滑鼠點在 "圖表 #" 上 (例如：主力界入)。
  179.                
  180.             ' 圖示會分別顯示出 資料錄匯入之時間、成交價、主力界入、散戶方向、以及 成交量。
  181.             ' Set rXY = Union(Range("統計圖表!$B$1:統計圖表!$B$" & totalRows), Range("統計圖表!$F$1:統計圖表!$F$" & totalRows), Range("統計圖表!$I$1:統計圖表!$I$" & totalRows), Range("統計圖表!$J$1:統計圖表!$J$" & totalRows), Range("統計圖表!$V$1:統計圖表!$V$" & totalRows))
  182.             ' ActiveChart.SetSourceData Source:=rXY
  183.             ActiveChart.SetSourceData Source:=Range("統計圖表!$B$1:統計圖表!$B$" & totalRows & ", 統計圖表!$F$1:統計圖表!$F$" & totalRows & _
  184.             ", 統計圖表!$I$1:統計圖表!$J$" & totalRows & ", 統計圖表!$V$1:統計圖表!$V$" & totalRows)  ' 圖示會分別顯示出 成交價、主力界入、散戶方向、以及成交量。
  185.             
  186.             ActiveChart.SeriesCollection(4).ChartType = xlColumnClustered          ' 堆疊直條圖
  187.                                        
  188.             xRow = 2
  189.             yCol = 1
  190.                
  191.             cHeight = 488
  192.             cWidth = 450
  193.             inLeft = 30
  194.             inTop = 30
  195.             inWidth = 378
  196.             
  197.             chartname = Trim(Replace(ActiveChart.Name, ActiveSheet.Name, ""))
  198.             ActiveChart.ChartArea.Height = cHeight                           ' 將原本設定之高度調至適度位置
  199.             ActiveChart.ChartArea.Width = cWidth
  200.                
  201.             ActiveSheet.Shapes(chartname).Left = Cells(xRow, yCol).Left     ' 設定此圖表實際擺放的 X、Y 座標位置。
  202.             ActiveSheet.Shapes(chartname).Top = Cells(xRow, yCol).Top
  203.         
  204.             With ActiveChart.PlotArea                    ' 實際繪圖區塊的範圍設定
  205.                  .InsideLeft = inLeft
  206.                  .InsideTop = inTop
  207.                  .InsideWidth = inWidth
  208.             End With
  209.         End If
  210.     Next
  211.     ' Set rXY = Nothing
  212. End Sub
複製代碼
主力、散戶與價量.rar (166.05 KB)

TOP

pocksoft

帖子
7 
主題
0 
精華
0 
積分
51 
點名
0  
作業系統
Win7 
軟體版本
Office2007 
閱讀權限
20 
性別
男 
註冊時間
2014-5-8 
最後登錄
2022-1-12 

2017 雞年全勤獎章
6#
發表於 2016-12-31 17:14 | 只看該作者
請問在draw charts裡面,有一連串的selection.borders設定,他們是否有特殊意義?有需要保留嗎?

TOP

c_c_lai

帖子
2035 
主題
24 
精華
0 
積分
2031 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
100 
性別
男 
註冊時間
2012-3-22 
最後登錄
2024-2-1 
7#
發表於 2016-12-31 18:53 | 只看該作者
回復 6# pocksoft
drawCharts(sta As String) 的 sta 為工作表單名稱，
Sheets(sta).Select 即為 該工作表單 的選用，
Selection 即是。

TOP

c_c_lai

帖子
2035 
主題
24 
精華
0 
積分
2031 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
100 
性別
男 
註冊時間
2012-3-22 
最後登錄
2024-2-1 
8#
發表於 2016-12-31 18:59 | 只看該作者
回復 6# pocksoft
亦可修改為： ( 使用 With )
  1. Sub drawCharts(sta As String)
  2.     Dim str As String
  3.    
  4.     str = ActiveSheet.Name
  5.     Sheets(sta).Select

  7.     Call removeCharts(sta)

  9.     With Selection
  10.         .Borders(xlDiagonalDown).Style = xlNone
  11.         .Borders(xlDiagonalUp).Style = xlNone
  12.         .Borders(xlEdgeLeft).Style = xlNone
  13.    
  14.         With .Borders(xlEdgeTop)
  15.             .Style = xlContinuous
  16.             .ColorIndex = 0
  17.             .TintAndShade = 0
  18.             .Weight = xlThin
  19.         End With
  20.         
  21.         .Borders(xlEdgeBottom).Style = xlNone
  22.    
  23.         With .Borders(xlEdgeRight)
  24.             .Style = xlContinuous
  25.             .ColorIndex = 0
  26.             .TintAndShade = 0
  27.             .Weight = xlThin
  28.         End With
  29.     End With
  30.    
  31.     Call mainPowerForce(sta)
  32.    
  33.     Cells(1, 1).Select
  34.     Sheets(str).Select
  35. End Sub
複製代碼

TOP

c_c_lai

帖子
2035 
主題
24 
精華
0 
積分
2031 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
100 
性別
男 
註冊時間
2012-3-22 
最後登錄
2024-2-1 
9#
發表於 2017-1-1 07:48 | 只看該作者
本帖最後由 c_c_lai 於 2017-1-1 07:51 編輯

回復 6# pocksoft

那只是強調繪圖邊框之描述，
實際在線型繪製的過程已予設定了。

其實你的質疑是對的。(如圖示)

TOP

        靜思自在 : 我們要做好社會的環保，也要做好內心的環保。
返回列表 上一主題