.HasAxis(xlValue, xlSecondary) = True次坐标的关键语句

ning84 · 发表于 2023-2-16 06:37

本帖最后由 ning84 于 2023-2-16 11:11 编辑

在Excel2003中， .HasAxis(xlCategory, xlSecondary) = False 结果是目标需求。

改为Excel2007， .HasAxis(xlCategory, xlSecondary) = False，这条语句出错.HasAxis(xlValue, xlSecondary) = True-----结果为False

Sub del()
Dim XlsChart As Chart
Set XlsChart = Sheet1.Application.Charts(1)
With XlsChart
.HasAxis(xlCategory, xlPrimary) = True
.HasAxis(xlCategory, xlSecondary) = False
.HasAxis(xlValue, xlPrimary) = True
.HasAxis(xlValue, xlSecondary) = True
Debug.Print .HasAxis(xlValue, xlSecondary)
Stop
With .Axes(xlValue)
.MinimumScale = 0.3
.MaximumScale = 0.8
.MinorUnit = 0.2
.MajorUnit = 0.4
.Crosses = xlCustom
.CrossesAt = 0.2
.ReversePlotOrder = False
.ScaleType = xlLinear
.DisplayUnit = xlNone
End With
End With
End Sub

复制代码

.HasAxis(xlCategory, xlSecondary) = True

Sub del()
Dim XlsChart As Chart
Set XlsChart = Sheet1.Application.Charts(1)
With XlsChart
.HasAxis(xlCategory, xlPrimary) = True
.HasAxis(xlCategory, xlSecondary) = True
.HasAxis(xlValue, xlPrimary) = True
.HasAxis(xlValue, xlSecondary) = True
Debug.Print .HasAxis(xlValue, xlSecondary)
With .Axes(xlValue)
.MinimumScale = 0.05
.MaximumScale = 0.9
.MinorUnit = 0.4
.MajorUnit = 0.4
.Crosses = xlCustom
.CrossesAt = 0.2
.ReversePlotOrder = False
.ScaleType = xlLinear
.DisplayUnit = xlNone
End With
For ii = 3 To 4
With .SeriesCollection(ii)
.Border.ColorIndex = ii
.Border.Weight = xlThick
Select Case ii
Case 3
.MarkerStyle = xlCircle
.MarkerBackgroundColorIndex = 30
.MarkerForegroundColorIndex = 5
Case 4
.MarkerStyle = xlMarkerStyleStar 'xlSquare
.MarkerBackgroundColorIndex = 45
.MarkerForegroundColorIndex = 10
End Select
''
.Smooth = False
.MarkerSize = 12
.Shadow = True
End With
Next ii
End With
End Sub

复制代码

lss001 · 发表于 2023-2-16 16:15

Sub excel显示主次坐标()
Dim XlsChart As Chart
Set XlsChart = Sheet1.Application.Charts(1)
With XlsChart
      '显示主坐标
      .HasAxis(xlValue, xlPrimary) = True
      '判断次坐标
      If .HasAxis(xlValue, xlSecondary) = False Then
         '指定次坐标数据//也可创建"日落"等
         Set rc = .SeriesCollection("日出")
         '指定次坐标类型
         rc.Type = xlLine
         '创建次坐标
         rc.AxisGroup = xlSecondary
         '显示次坐标
         .HasAxis(xlValue, xlSecondary) = True
      End If
      Debug.Print .HasAxis(xlValue, xlPrimary)
      Debug.Print .HasAxis(xlValue, xlSecondary)
End With
End Sub

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

越学问题越多。
ChartData.Workbook 属性 (PowerPoint) | Microsoft Learn  https://learn.microsoft.com/zh-c ... .chartdata.workbook

ChartData.Workbook 属性 (PowerPoint)
项目
2023/02/19
5 个参与者
返回包含与图表相关联的图表数据的工作簿。只读对象。

语法
表达式。练习册

表达一个代表“ChartData”对象的变量。

备注
备注

[!注释] 在引用该属性之前，必须调用 Activate 方法；否则会发生错误。

示例
备注

[!注释] 尽管下面的代码适用于 Microsoft Word，但您可以轻松地对其进行修改以将其应用于 PowerPoint。

下面的示例激活与活动文档中第一张图表关联的 Microsoft Excel 工作簿。如果 Excel 工作簿有多个窗口，该示例将激活第一个窗口。然后该示例将单元格 B1 至 B5 的内容复制并粘贴到图表中。

备注

[!注释] 必须打开 Excel，然后才能修改工作簿中的数据。

VB

复制
With ActiveDocument.InlineShapes(1)

If .HasChart Then
      .Chart.ChartData.Activate
      .Chart.ChartData.Workbook. _
         Worksheets("Sheet1").Range("B1:B5").Copy
      .Chart.Paste
End If

End With

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