標題: [發問] 請問圖表要如何排序 [打印本頁]

---

作者: Genie    時間: 2013-1-4 16:07     標題: 請問圖表要如何排序

附件中的 excel 用巨集批量作圖後　它的圖會呈垂直排列
若我要讓圖表呈現上下、左右排列該怎麼做呢？

例：圖一　圖三　圖五　圖七　　或是　　圖一　圖四　圖七
　　圖二　圖四　圖六　圖八　　　　　　圖二　圖五　圖八
　　　　　　　　　　　　　　　　　　　圖三　圖六

希望能夠依照使用者想要垂直方向放幾張圖做選擇

因為這個程式是從網路上找到的
改了一些地方　但還是無法讓圖表呈現上下、左右排列
所以來請教高手幫個忙
謝謝∼

[attach]13793[/attach]

---

作者: Hsieh    時間: 2013-1-4 18:42

回復 1# Genie

指定圖表的Top、Left即可

1. Sub 按列批量繪圖()
   
2. 
   
3.     Call 批量刪圖
   
4. 
   
5.     Dim i, sh
   
6.     sh = ActiveSheet.Name
   
7.     k = InputBox("輸入列數", , 2)
   
8.     For i = 2 To ActiveSheet.Range("IV1").End(xlToLeft).Column
   
9.     s = (i - 2) Mod k
   
10.     Charts.Add
    
11.     ActiveChart.ChartType = xlXYScatter
    
12.     ActiveChart.SetSourceData Source:=Sheets(sh).Range("A1:A" _
    
13.         & R & "," & Chr(96 + i) & "1:" & Chr(96 + i) & R), PlotBy:=xlColumns
    
14.     ActiveChart.Location Where:=xlLocationAsObject, Name:=sh
    
15.     ActiveChart.Parent.Top = Sheets(sh).UsedRange.Height + 210 * s
    
16.     ActiveChart.Parent.Left = Int((i - 2) / k) * 260
    
17.     ActiveChart.Parent.Height = 200
    
18.     ActiveChart.Parent.Width = 250
    
19.     Next i  
    
20.     ActiveSheet.Range("A1").Select
    
21. End Sub

複製代碼

---

作者: Genie    時間: 2013-1-4 20:37

回復 2# Hsieh


謝謝 Hsieh 超級版主
幫我解決了我的問題
非常感謝∼

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)