1234
返回列表 上一主題 發帖

請各位大大幫忙修改建立崁入圖表錯誤語法

lamihsuen

帖子
33 
主題
4 
精華
0 
積分
37 
點名
0  
作業系統
w7 
軟體版本
pro 
閱讀權限
10 
性別
女 
來自
台中 
註冊時間
2012-6-20 
最後登錄
2019-5-24 
4# 跳轉到 »
發表於 2012-7-17 23:14 | 只看該作者
c_c_lai   大大回讀你的帖了看了GBKEE前輩的回覆其中下列的程式
03.    With ActiveSheet.ChartObjects(oShape.Name).Chart
改以用下列
With WORKSHEETS(WR).ChartObjects(1).Chart
就可以執行程式原來是物件的語法錯誤
08.    End With
感謝 兩位大哥的協助

TOP

lamihsuen

帖子
33 
主題
4 
精華
0 
積分
37 
點名
0  
作業系統
w7 
軟體版本
pro 
閱讀權限
10 
性別
女 
來自
台中 
註冊時間
2012-6-20 
最後登錄
2019-5-24 
3#
發表於 2012-7-16 18:30 | 只看該作者
c_c_lai   大大謝謝幫忙 這程式對我來說還太難了.我只想用直線圖,在每一工作表最後儲存格Worksheets(wr).Range("A" & chart_sr & " :I" & chart_end)的範圍加入圖表,資料來源為同表格的
Worksheets(wr).   RANRE ("A" & z_sr & " :C" & xlRow),因為有10個工作表都要加入且每一個工作表最後空儲存格不一定所以列數用變數方式,工作表Worksheets(wr).   wr也是變數.因為我想用迴圈方式讓所有工作表一次完成,
ps  RANRE -> .RANGE 感謝提醒,確實粗心了

TOP

c_c_lai

帖子
2035 
主題
24 
精華
0 
積分
2031 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
100 
性別
男 
註冊時間
2012-3-22 
最後登錄
2024-2-1 
2#
發表於 2012-7-16 10:02 | 只看該作者
回復 1# lamihsuen
貼上 GBKEE 指導前輩曾經給我的範例，堤供妳參考，希望對妳會有實質的幫助。
又、妳打錯字了 .RANRE -> .RANGE。 (算粗心吧！:o )
  1. Private Sub 製圖()
  2.     Dim xR As Range, Xi As Integer, i As Integer, 圖色()

  4.     圖色 = Array(4, 6, 8, 10)

  6.     ActiveSheet.ChartObjects.Delete     '刪除全部圖表

  8.     Set xR = Range("F1")    '利用xR的位置 設下圖表的位置
  9.     '加入新圖表  須指定 1右邊位置, 2高度位置, 3圖表的Width, 4圖表的Height

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

TOP

        靜思自在 : 【時間成就一切】時間可以造就人格，可以成就事業，也可以儲積功德。
1234
返回列表 上一主題