(已解決)如何處理圖表中所有標籤內容?

freeffly

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






圖-標籤.rar (6.47 KB)

下載次數: 8

2011-12-23 13:20

freeffly

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

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

複製代碼