VBA图表基础教程

HUA79100101 · 发表于 2021-9-23 22:51

VBA图表基础教程

Kaitou_Kiddo · 发表于 2021-10-10 20:12

请问一下大神，如何用代码更改绘图区和图表区的背景颜色呢

lychenxd · 发表于 2022-3-1 22:30

大有收获啊，支持一下

Thinkwaves · 发表于 2022-4-20 23:27

看了好多遍，感谢大神分享

ning84 · 发表于 2022-7-22 11:15

深入学习这个帖子。

Private Sub del()
Dim oChart As Chart
   For Each oChart In ThisWorkbook.Charts
      Debug.Print oChart.Name
      With oChart.ChartTitle
            ''
            Debug.Print .Caption
            Debug.Print .Font.FontStyle, .Font.Bold, .Font.Name
            Debug.Print .Left, .Top
            'Debug.Print .Text
      End With
      With oChart
            Debug.Print .AutoScaling
            Debug.Print .ChartType,

            '.ChartType = xlColumnStacked
            '.ChartType = xl3DArea
            '.ChartType = xlColumnStacked
            '.ChartType = xlConeBarStacked100
            .ChartType = xlBarClustered
            .ChartType = xl3DColumn

            Stop
            Stop
            Stop

      End With
   Next oChart
End Sub

yoonger · 发表于 2022-12-28 09:34

非常强大！非常感谢楼主分享！辛苦了！

黎颇 · 发表于 2023-3-1 16:39

ChartObject如何放2个chart？谢谢

ning84 · 发表于 2023-3-4 07:07

本帖最后由 ning84 于 2023-3-5 09:41 编辑

必须再一次学习ChartType

XlChartType 枚举 (Microsoft.Office.Interop.Excel) | Microsoft Learn  https://learn.microsoft.com/zh-c ... type?view=excel-pia

XlChartType 枚举
参考
定义
命名空间:
Microsoft.Office.Interop.Excel
程序集:
Microsoft.Office.Interop.Excel.dll
指定图表类型。

VB

复制
Public Enum XlChartType
继承
Enum
XlChartType
字段
xl3DArea       -4098
3D 区域

xl3DAreaStacked       78
3D 堆积面积

xl3DBarStacked100       62
3D 100% 堆积条形图

xl3DColumn       -4100
3D 列

xl3DColumnClustered       54
3D 聚集列

xl3DColumnStacked       55
3D 堆积列

xl3DColumnStacked100       56
3D 100% 堆积列

xl3DLine       -4101
3D 线条

xl3DPie       -4102
3D 饼图

xl3DPieExploded       70
分解的 3D 饼图

xlAreaStacked100       77
100% 堆积面积

xlBarClustered       57
簇状条形图

xlBarOfPie       71
饼条

xlBubble       15
泡沫

xlColumnClustered       51
聚集列

xlColumnStacked       52
堆积列

xlColumnStacked100       53
100% 堆积列

xlConeBarClustered       102
簇状锥形条

xlConeBarStacked       103
堆积锥形条

xlConeBarStacked100       104
100% 堆积锥形条

xlConeCol       105
3D 圆锥柱

xlConeColClustered       99
簇状圆锥列

xlConeColStacked       100
堆积锥形列

xlConeColStacked100       101
100% 堆积圆锥柱

xlCylinderBarClustered       95
簇状柱形条

xlCylinderBarStacked       96
堆积柱形条

xlCylinderBarStacked100       97
100% 堆积柱形条

xlCylinderCol       98
3D 柱形柱

xlCylinderColClustered       92
簇状圆锥列

xlCylinderColStacked100       94
100% 堆积柱形柱形柱

xlDoughnutExploded       80
分解的圆环图

xlLine       4
折线图

xlLineMarkers       65
带标记的线条

xlLineMarkersStacked       66
带标记的堆积线

xlLineMarkersStacked100       67
带标记的 100% 堆积线

xlLineStacked       63
堆积线

xlLineStacked100       64
100% 堆积线

xlPie       5
派

xlPieExploded       69
分解饼图

xlPieOfPie       68
饼图

ning84 · 发表于 2023-3-5 09:39

ning84 发表于 2023-3-4 07:07
必须在一次学习ChartType

Sub l()
Dim Pres As Presentation
Dim Sld As Slide
Dim Shp As Shape
Dim ShpRng As ShapeRange
Dim S As Selection
Dim xChart As Chart
Dim oLef As OLEFormat
Dim Arr()
ReDim Arr(6)
Set Pres = Application.ActivePresentation
Set ShpRng = Application.ActiveWindow.Selection.ShapeRange
Set xChart = ShpRng(1).Chart
With xChart
For ii = .SeriesCollection.Count To 1 Step -1
.SeriesCollection.Item(ii).Delete
Next ii
For ii = 1 To 4
.SeriesCollection.NewSeries
.SeriesCollection(ii).ChartType = xlLine
For ii1 = 0 To 6
Arr(ii1) = Int(Rnd(ii1 * 10) * 10)
Next ii1
.SeriesCollection(ii).Values = Arr
Next ii
.Refresh
Stop
End With
Stop
Stop
Stop
End Sub

复制代码

huiyuxuan · 发表于 2023-4-12 11:32

正在学习VBA控制图表，mark学习，谢谢楼主

		自动登录	找回密码
密码			免费注册

[分享] VBA图表基础教程