如何获取ApplyDataLabels各命名参数的值？

秋园 · 发表于 2012-5-26 17:14

例如，一个柱形图显示出数值，使用宏录制的VBA语句是：ActiveChart.ApplyDataLabels AutoText:=True, ShowValue:=True,......
可是如果我想使用VBA语句来判断一个柱形图是否显示出了数值，使用 If ActiveChart.ApplyDataLabels AutoText:=True Then msgbox()
却是出错的。该如何使用VBA语句来判断柱形图是否显示出了数值？或者说该如何获取ApplyDataLabels各命名参数的值？
请高手赐教为盼。

snood · 发表于 2012-5-27 12:29

If ActiveChart.SeriesCollection(1).HasDataLabels = True Then MsgBox "ssss"

ning84 · 发表于 2023-1-30 17:33

ChartSheet.SeriesCollection(Object) 方法 (Microsoft.Office.Tools.Excel) | Microsoft Learn  https://learn.microsoft.com/zh-c ... tion_System_Object_

DataLabels 方法 (Excel Graph) | Microsoft Learn  https://learn.microsoft.com/zh-t ... labels-graph-method
.SeriesCollection(2).DataLabels给颜色赋值要几级？-Excel VBA程序开发-ExcelHome技术论坛 -  https://club.excelhome.net/thread-1635098-1-1.html

下面程序卡在这里
人工选择可行，在程序里出问题了。
With Selection
      .ReadingOrder = xlLTR
      .Position = xlLabelPositionInsideBase 'xlLabelPositionInsideEnd
      .Orientation = xlHorizontal
End With

Sub nnnn()
Dim objChart As ChartObject
Dim oChart As Chart
Dim Shp As Shape
Dim p As Point
Set objChart = Sheet1.ChartObjects(1)
objChart.Select
Debug.Print objChart.Name
Set oChart = objChart.Chart
'Active.Sheet.ChartObjects(oChart.Name).Activate
Application.ScreenUpdating = False
xVals = ActiveChart.SeriesCollection(1).Formula
'ActiveChart.Activate
'oChart.ChartArea.Select
'ActiveChart.SeriesCollection(1).DataLabels.Select
With oChart
xx = .SeriesCollection(1).Formula
Debug.Print xx
'.DataTable.ShowLegendKey = False
.SeriesCollection(1).ApplyDataLabels AutoText:=True, LegendKey:= _
False, ShowSeriesName:=False, ShowCategoryName:=True, ShowValue:=True, _
ShowPercentage:=False, ShowBubbleSize:=False
Set p = .SeriesCollection(1).Points(5)
p.Interior.ColorIndex = 3
Stop
.SeriesCollection(1).DataLabels.Select
'.HorizontalAlignment = xlLeft
'.VerticalAlignment = xlTop
With Selection
.ReadingOrder = xlLTR
.Position = xlLabelPositionInsideBase 'xlLabelPositionInsideEnd
.Orientation = xlHorizontal
End With
End With
End Sub

复制代码

ning84 · 发表于 2023-1-30 19:22

钻到死胡同里，怎么也出不来。程序过不去的点是objChart.Activate

Sub del11()
Dim objChart As ChartObject
Dim oChart As Chart
Set objChart = Sheet1.ChartObjects(1)
objChart.Activate
Set oChart = objChart.Chart
''
With oChart.SeriesCollection(1).DataLabels
.HorizontalAlignment = xlRight
.VerticalAlignment = xlTop
.ReadingOrder = xlLTR
.Position = xlLabelPositionInsideBase
.Orientation = xlHorizontal
End With
End Sub

复制代码

493861364 · 发表于 2023-1-30 21:11

ning84 发表于 2023-1-30 17:33
ChartSheet.SeriesCollection(Object) 方法 (Microsoft.Office.Tools.Excel) | Microsoft Learn https://l ...

文件传上来看看

ning84 · 发表于 2023-1-30 22:12

Sub del11()
Dim Pres As Presentation
Dim Sld As Slide
Dim objChart As ChartObject
Dim oChart As Chart
Dim GrpChart As Graph.Chart
Dim Shp As Shape
Dim ShpRng As ShapeRange
Set Pres = Application.ActivePresentation
Set Sld = Pres.Slides(1)
Set GrpChart = Sld.Shapes(1).OLEFormat.Object
GrpChart.Activate
''
For ii = 1 To 1
'Debug.Print GrpChart.SeriesCollection(ii).Name
With GrpChart.SeriesCollection(ii)
With .DataLabels
.Font.Size = 15
.HorizontalAlignment = xlRight
.VerticalAlignment = xlTop
.ReadingOrder = xlLTR
.Position = xlLabelPositionInsideBase
.Orientation = xlHorizonta
End With
End With
Next ii
Set Shp = Sld.Shapes.AddTextbox(msoTextOrientationHorizontal, 10, 10, 100, 20)
Shp.TextFrame.TextRange.Text = "ffffffffffffffaaaaaa"
Stop
End Sub

复制代码

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

[求助] 如何获取ApplyDataLabels各命名参数的值？