返回列表 上一主題 發帖

[發問] 關於圖表..拜託各位大大了 ><

luhpro

帖子
835 
主題
6 
精華
0 
積分
915 
點名
0  
作業系統
Win 10,7 
軟體版本
2019,2013,2003 
閱讀權限
50 
性別
男 
註冊時間
2010-5-3 
最後登錄
2025-7-5 
1# 跳轉到 »
發表於 2015-1-26 00:09 | 顯示全部帖子
本帖最後由 luhpro 於 2015-1-26 00:12 編輯

回復 1# saleen
因為你底下這一行會改變圖表的來源對應位址:
.Range("A2:ZZ2").Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove

試試在被改變後再重設回原位址的方式,看是否符合你的需求 :
  1. With 工作表1
  2. .Range("A2:ZZ2").Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
  3. .Range("A3:ZZ3") = .Range("A3:ZZ3").Value

  5. Sheets("工作表3").ChartObjects("圖表 1").Activate
  6. ActiveChart.SetSourceData Source:=Sheets("工作表1").Range("$A$2:$A$10"),PlotBy:=xlColumns

  8. End With
複製代碼

TOP

        靜思自在 : 多做多得。少做多失。
返回列表 上一主題