返回列表 上一主題 發帖

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

freeffly

帖子
586 
主題
123 
精華
0 
積分
763 
點名
0  
作業系統
WINDOW7 
軟體版本
Office 2003 
閱讀權限
50 
性別
男 
註冊時間
2010-5-16 
最後登錄
2017-3-14 

熱烈參與勳章好學求知勳章
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2011-12-23 13:21 | 只看該作者

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

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

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






圖-標籤.rar (6.47 KB)
收藏 分享
字典兩各字 還真難理解

freeffly

帖子
586 
主題
123 
精華
0 
積分
763 
點名
0  
作業系統
WINDOW7 
軟體版本
Office 2003 
閱讀權限
50 
性別
男 
註冊時間
2010-5-16 
最後登錄
2017-3-14 

熱烈參與勳章好學求知勳章
2#
發表於 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


  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
複製代碼
字典兩各字 還真難理解

TOP

        靜思自在 : 【時間如鑽石】時間對一個有智慧的人而言，就如鑽石般珍貴；但對愚人來說，卻像是一把泥土，一點價值也沒有。
返回列表 上一主題