標題: (已解決)如何處理圖表中所有標籤內容? [打印本頁]

---

作者: freeffly    時間: 2011-12-23 13:21     標題: (已解決)如何處理圖表中所有標籤內容?

本帖最後由 freeffly 於 2012-2-22 16:51 編輯

如圖中我想要讓美各標簽內容都是藍色 字體大小10
這種要如何寫?
試過總是會出現型態不符這類的字眼






[attach]8910[/attach]

---

作者: freeffly    時間: 2012-1-11 16:49

本帖最後由 freeffly 於 2012-1-11 16:50 編輯

下面是我後來在國外網站找到的
可以用
有需要的人可以參考
上面的是國外例子
下面的是我這個例子用的

1. Sub linewidth()
   
2. For Each SeriesCollection In ActiveChart.SeriesCollection
   
3.     If SeriesCollection.Type = 4 Then
   
4.         SeriesCollection.Format.Line.Weight = 4.5
   
5.     End If
   
6. Next SeriesCollection
   
7. End Sub
   
8. 
   
9. 
   
10. Sub linewidth()
    
11. For Each S In ActiveChart.SeriesCollection
    
12.     With S.DataLabels.Font
    
13.         .Name = "新細明體"
    
14.         .FontStyle = "標準"
    
15.         .Size = 10
    
16.         .Strikethrough = False
    
17.         .Superscript = False
    
18.         .Subscript = False
    
19.         .OutlineFont = False
    
20.         .Shadow = False
    
21.         .Underline = xlUnderlineStyleNone
    
22.         .ColorIndex = 5
    
23.         .Background = xlAutomatic
    
24.     End With
    
25.     Next
    
26. End Sub

複製代碼

---

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