问题：
使用VBA的Excel图表的主题图表样式
王泓
我正在尝试在仪表板中为excel图表构建一些html" target="_blank">自定义主题。在录制宏以查看这些如何实现时，宏录制了以下代码；
ActiveChart.ClearToMatchStyle
ActiveChart.ChartStyle = 268
我通过谷歌搜索了高低，找到了这些图表样式的列表，或者关于如何自定义它们的任何留档。每次搜索都会返回图表类型常量的链接，即xlLine、xlPie等。而不是Excel功能区图表工具-设计选项卡上可用的主题图表。
如果有人能给我指出正确的方向，我将不胜感激。
编辑：
这些图表样式常量几乎没有文档可用，因此我创建了一个示例工作簿，其中所有图表样式类型都显示为饼图。您可以在这里使用。至少在选择类型之前，您将拥有图表的视觉表示。
可以在此处查看工作簿，如果有人知道如何在帖子中添加可下载版本，请发表评论
在此处查看工作簿
您可以使用以下代码自己构建它，只需添加一个名为ChartStyles的工作表，创建一个名为Golfrundsplayed的数据表并使用这些数据
1月42日、2月53日、3月77日、4月124日、5月198日、6月288日、7月312日、8月303日、9月264日、10月149日、11月54日、12月33日
Sub BuildChartStyleSheet()
Dim targetChart As Chart
Dim targetSheet As Worksheet
Dim top As Long
Dim x As Integer, chtTitle As String
top = 15
Dim dataRange As Range
Set dataRange = Range("GolfRoundsPlayed")
Set targetSheet = Sheets("ChartStyles")
Application.ScreenUpdating = False
For x = 1 To 353
If x > 1 Then top = top + 128
On Error Resume Next
Set targetChart = targetSheet.Shapes.AddChart2(x, xlPie, 2, top, 230, 125).Chart
chtTitle = "ChartStyle for ChartStyle #" & x
With targetChart
.SetSourceData Source:=dataRange
.chartTitle.Text = chtTitle
.chartTitle.Format.TextFrame2.TextRange.Font.Size = 11
End With
Next x
Application.ScreenUpdating = True
End Sub
共有1个答案
荆亦
进一步评论MSDN：
您可以使用1到48之间的数字来设置图表样式。
我的测试显示范围201到352也是有效的。这适用于所有图表类型。
run this code（运行此代码）-您可以使用Stop（停止）来查看更详细的情况。
Option Explicit
Sub UnderstandChartStyle()
Dim ws As Worksheet
Dim cht As ChartObject
Dim varTypes As Variant
Dim i As Integer, j As Integer
varTypes = GetChartTypes
Set ws = ThisWorkbook.Worksheets(1)
Set cht = ws.ChartObjects(1)
For j = LBound(varTypes) To UBound(varTypes)
cht.Chart.ChartType = varTypes(j)
For i = 1 To 1000
On Error Resume Next
cht.Chart.ChartStyle = i
If Err.Number = 0 Then
Debug.Print "Chart type: " & varTypes(j) & "; Chart style: " & i & "; Sum: " & varTypes(j) + i
Else
Debug.Print "Chart style error: " & i
End If
Stop
Next i
Stop
Next j
End Sub
Function GetChartTypes() As Variant
Dim i As Integer
Dim varTypes(1 To 73) As Integer
varTypes(1) = -4169
varTypes(2) = -4151
varTypes(3) = -4120
varTypes(4) = -4102
varTypes(5) = -4101
varTypes(6) = -4100
varTypes(7) = -4098
varTypes(8) = 1
varTypes(9) = 4
varTypes(10) = 5
varTypes(11) = 15
For i = 12 To 73
varTypes(i) = i + 39
Next i
GetChartTypes = varTypes
End Function
GetChartTypes的代码基于此表：
| GROUPING | CHART TYPE | VALUE | VBA CONSTANT | |------------- |----------------------------------------------- |------- |---------------------------- | | 3DAREA | 3D AREA | -4098 | xl3DArea | | 3DAREA | 3D STACKED AREA | 78 | xl3DAreaStacked | | 3DAREA | 3D 100% STACKED AREA | 79 | xl3DAreaStacked100 | | 3DBAR | 3D CLUSTERED BAR | 60 | xl3DBarClustered | | 3DBAR | 3D STACKED BAR | 61 | xl3DBarStacked | | 3DBAR | 3D 100% STACKED BAR | 62 | xl3DBarStacked100 | | 3DCOLUMN | 3D CLUSTERED COLUMN | 54 | xl3DColumnClustered | | 3DCOLUMN | 3D COLUMN | -4100 | xl3DColumn | | 3DCOLUMN | 3D CONE COLUMN | 105 | xlConeCol | | 3DCOLUMN | 3D CYLINDER COLUMN | 98 | xlCylinderCol | | 3DCOLUMN | 3D PYRAMID COLUMN | 112 | xlPyramidCol | | 3DCOLUMN | 3D STACKED COLUMN | 55 | xl3DColumnStacked | | 3DCOLUMN | 3D 100% STACKED COLUMN | 56 | xl3DColumnStacked100 | | AREA | AREA | 1 | xlArea | | AREA | STACKED AREA | 76 | xlAreaStacked | | AREA | 100% STACKED AREA | 77 | xlAreaStacked100 | | BAR | CLUSTERED BAR | 57 | xlBarClustered | | BAR | STACKED BAR | 58 | xlBarStacked | | BAR | 100% STACKED BAR | 59 | xlBarStacked100 | | BUBBLE | 3D BUBBLE, BUBBLE WITH 3D EFFECTS | 87 | xlBubble3DEffect | | BUBBLE | BUBBLE | 15 | xlBubble | | COLUMN | CLUSTERED COLUMN | 51 | xlColumnClustered | | COLUMN | STACKED COLUMN | 52 | xlColumnStacked | | COLUMN | 100% STACKED COLUMN | 53 | xlColumnStacked100 | | CONE | CLUSTERED CONE COLUMN | 99 | xlConeColClustered | | CONE | STACKED CONE COLUMN | 100 | xlConeColStacked | | CONE | 100% STACKED CONE COLUMN | 101 | xlConeColStacked100 | | CONEBAR | CLUSTERED CONE BAR | 102 | xlConeBarClustered | | CONEBAR | STACKED CONE BAR | 103 | xlConeBarStacked | | CONEBAR | 100% STACKED CONE BAR | 104 | xlConeBarStacked100 | | CYLINDER | CLUSTERED CYLINDER COLUMN | 92 | xlCylinderColClustered | | CYLINDER | STACKED CYLINDER COLUMN | 93 | xlCylinderColStacked | | CYLINDER | 100% STACKED CYLINDER COLUMN | 94 | xlCylinderColStacked100 | | CYLINDERBAR | CLUSTERED CYLINDER BAR | 95 | xlCylinderBarClustered | | CYLINDERBAR | STACKED CYLINDER BAR | 96 | xlCylinderBarStacked | | CYLINDERBAR | 100% STACKED CYLINDER BAR | 97 | xlCylinderBarStacked100 | | DOUGHNUT | DOUGHNUT | -4120 | xlDoughnut | | DOUGHNUT | EXPLODED DOUGHNUT | 80 | xlDoughnutExploded | | LINE | 3D LINE | -4101 | xl3DLine | | LINE | LINE | 4 | xlLine | | LINE | LINE WITH MARKERS | 65 | xlLineMarkers | | LINE | STACKED LINE | 63 | xlLineStacked | | LINE | 100% STACKED LINE | 64 | xlLineStacked100 | | LINE | STACKED LINE WITH MARKERS | 66 | xlLineMarkersStacked | | LINE | 100% STACKED LINE WITH MARKERS | 67 | xlLineMarkersStacked100 | | PIE | 3D PIE | -4102 | xl3DPie | | PIE | 3D EXPLODED PIE | 70 | xl3DPieExploded | | PIE | BAR OF PIE | 71 | xlBarOfPie | | PIE | EXPLODED PIE | 69 | xlPieExploded | | PIE | PIE | 5 | xlPie | | PIE | PIE OF PIE | 68 | xlPieOfPie | | PYRAMID | CLUSTERED PYRAMID BAR | 109 | xlPyramidBarClustered | | PYRAMID | STACKED PYRAMID BAR | 110 | xlPyramidBarStacked | | PYRAMID | 100% STACKED PYRAMID BAR | 111 | xlPyramidBarStacked100 | | PYRAMID | CLUSTERED PYRAMID COLUMN | 106 | xlPyramidColClustered | | PYRAMID | STACKED PYRAMID COLUMN | 107 | xlPyramidColStacked | | PYRAMID | 100% STACKED PYRAMID COLUMN | 108 | xlPyramidColStacked100 | | RADAR | RADAR | -4151 | xlRadar | | RADAR | FILLED RADAR | 82 | xlRadarFilled | | RADAR | RADAR WITH DATA MARKERS | 81 | xlRadarMarkers | | SCATTER | SCATTER | -4169 | xlXYScatter | | SCATTER | SCATTER WITH LINES | 74 | xlXYScatterLines | | SCATTER | SCATTER WITH LINES AND NO DATA MARKERS | 75 | xlXYScatterLinesNoMarkers | | SCATTER | SCATTER WITH SMOOTH LINES | 72 | xlXYScatterSmooth | | SCATTER | SCATTER WITH SMOOTH LINES AND NO DATA MARKERS | 73 | xlXYScatterSmoothNoMarkers | | STOCK | STOCK HLC (HIGH-LOW-CLOSE) | 88 | xlStockHLC | | STOCK | STOCK OHLC (OPEN-HIGH-LOW-CLOSE) | 89 | xlStockOHLC | | STOCK | STOCK VHLC (VOLUME-HIGH-LOW-CLOSE) | 90 | xlStockVHLC | | STOCK | STOCK VOHLC (VOLUME-OPEN-HIGH-LOW-CLOSE) | 91 | xlStockVOHLC | | SURFACE | 3D SURFACE | 83 | xlSurface | | SURFACE | 3D SURFACE WIREFRAME | 84 | xlSurfaceWireframe | | SURFACE | SURFACE TOP VIEW | 85 | xlSurfaceTopView | | SURFACE | SURFACE TOP VIEW WIREFRAME | 86 | xlSurfaceTopViewWireframe |
HTH公司
类似资料：
-
使用VBA，可以根据特定标准生成图表。下面通过一个例子来看看它如何实现。 第1步 - 输入要生成图形的数据。 第2步 - 创建3个按钮 - 一个生成条形图，另一个生成饼图，另一个生成柱形图。 第3步 - 开发一个宏来生成这些类型的图表。 第4步 - 点击相应的按钮，图表被创建。 在下面的输出中，点击生成饼图按钮。
-
首先，让我说这个网站是天赐之物！ 我有一系列每月B2:AS40的数据。月份在A2:AS2中，A2:A40中是姓名列表，所有这些都在“Sheet1”中 经过之前在这里的一些搜索，我想出了以下内容，脚本为每一行制作一个新图表，创建一个标题，并以6个月的间隔放入MajorGridline，但是没有绘制数据。我这辈子都不知道为什么！！ 请帮帮忙 样本数据： 将脚本更改为以下内容后： 脚本不会在每次运行时都
-
我正在使用Excel VBA中的Microsoft正则表达式引擎。我对正则表达式很陌生，但我现在有一个模式在工作。我需要扩展它，但我遇到了麻烦。以下是我到目前为止的代码：
-
问题内容： 我需要使用Apache POI库从Java代码创建excel表，其中包含条形图，折线图等图表。可能吗？我找不到相同的任何有用的代码示例。 除了Java的POI库之外，还有其他替代方法吗？ 问题答案： 您只能使用Excel模板通过POI保留图表。这意味着您将创建一个包含图表的Excel模板文件，并将图表的数据源链接到一个defineName，然后可以从POI加载模板文件，并使用代码来更改
-
Jquery Mobile内建了一套样式主题系统，让你给页面和表单添加样式时有丰富的选择。默认情况下所有的表单元素都会应用与父容器相同的主题样式。是的表单元素融合进他们的布局中。给表单元素单独地应用 data-theme 属性，可以指定它的主题样式，使他在布局中凸现出 下面实例中的所有表单的html都是相同的，并且没有为表单内的元素单独地指定主题样式。表单之间唯一的不同就是给表单父容器通过 dat