[算表] VBA 偵測圖表是否存在

看板Office作者jasonhsu14 (14號星期五的傑森)時間6年前 (2020/04/12 15:07)推噓0(0推 0噓 9→)

留言9則, 1人參與討論串1/1

軟體:Excel 版本:2003 各位版友好，這邊有個問題想請教小弟目前拜訪google大師後，學會用VBA創造圖圖表，目前方法如下 Dim MyChart as ChartObject x=300 : y=16.5 : w=800 : h=500 Set MyChart = Sheet1.ChartObjects.Add(x,y,w,h) MyChart.Name="name" 那這邊有個問題是，假如我重啟這個Excel檔，我該如何偵測這個圖表是否存在? 那有google到的寫法是 (不過這寫法我執行會錯誤...) Dim targetChart as ChartObject set targetChart = Sheet1.ChartObjects("name") if targetChart is nothing then .... 看起來是在設定另一個chartObject，然後指定他為Sheet1的"name"這個Chart 接著檢查這名為"name"的Chart是否有東西不過執行上會跑出ChartObjects物件失敗..所以才想請教於版友們另外有個問題想問的是，當初在google 如何創圖時有看到也些人寫法是 Set MyChart = Sheet1.ChartObjects(1) 不過我最初用這方法時，也是會跑出ChartObjects物件失敗的錯誤訊息所以想另外詢問是那個 ChartObjects([index]) 的index是表示甚麼? -- ※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 220.135.101.201 (臺灣) ※ 文章網址: https://www.ptt.cc/bbs/Office/M.1586675278.A.692.html

→

soyoso

04/12 15:17, 6年前 , 1^F

04/12 15:17, 1^F

→

soyoso

04/12 15:20, 6年前 , 2^F

04/12 15:20, 2^F

先謝謝你的回答那另外我想詢問，有辦法在創造一個ChartObjects時就給定索引值嗎?? 就像如下，我在set= .......ChartObjects(1).Add 就給定索引值1 Dim MyChart As ChartObject x = 300: y = 16.5: w = 800: h = 500 Set MyChart = Sheet_IncomeAndGraph.ChartObjects(1).Add(x, y, w, h) 不過上述方法會執行錯誤還是要先set MyChart 才能去設定index 若是的話，請問該如何設定先謝謝你撥空回答 ※ 編輯: jasonhsu14 (220.135.101.201 臺灣), 04/12/2020 15:34:20

→

soyoso

04/12 15:27, 6年前 , 3^F

04/12 15:27, 3^F

→

soyoso

04/12 15:38, 6年前 , 4^F

04/12 15:38, 4^F

→

soyoso

04/12 15:39, 6年前 , 5^F

04/12 15:39, 5^F