在Excel中插入圖表后，有時(shí)曲線(xiàn)較多，數(shù)據(jù)標(biāo)記又太大，而且線(xiàn)條較粗，多條曲線(xiàn)擠壓在一起，顯得很丑。為了便于觀察，可以通過(guò)右鍵更改曲線(xiàn)的粗細(xì)和設(shè)置數(shù)據(jù)標(biāo)記的大小，但線(xiàn)條較多時(shí)又是一件很麻煩的事。這里通過(guò)幾行VBA代碼更改曲線(xiàn)的粗細(xì)和設(shè)置數(shù)據(jù)標(biāo)記的大小：

Sub Shrink() Worksheets("Sheet1").ChartObjects(1).Activate 'Sheet1為工作表的名字，ChartObjects(1)指本表中的第一個(gè)圖表 '以下對(duì)激活圖表中的每一條曲線(xiàn)進(jìn)行選中，之后設(shè)置線(xiàn)的粗細(xì)為0（最細(xì)）,數(shù)據(jù)標(biāo)記最小（2號(hào)，最大72） For LineNum = 1 To ActiveChart.SeriesCollection.CountActiveChart.SeriesCollection(LineNum).SelectWith Selection.Format.Line.Weight = 0.MarkerSize = 2End With Next LineNum End Sub

?

ref

https://wenku.baidu.com/view/c1b114442e3f5727a5e9628a.html

https://www.zhihu.com/question/67538056

總結(jié)

以上是生活随笔為你收集整理的Excel VBA:更改图表数据标记大小和曲线粗细的全部?jī)?nèi)容，希望文章能夠幫你解決所遇到的問(wèn)題。

如果覺(jué)得生活随笔網(wǎng)站內(nèi)容還不錯(cuò)，歡迎將生活随笔推薦給好友。