怎么修改横纵坐标线条的宽度！

493861364 · 发表于 2021-2-14 14:29

要是懒得写for...each.....
就把 Set ws = Worksheets("sheet1")
改成 Set ws = ActiveSheet
然后一个sheet加一个按钮

没试，但应该能用

wjt_1221 · 发表于 2021-2-15 12:18

493861364 发表于 2021-2-14 14:29
要是懒得写for...each.....
就把 Set ws = Worksheets("sheet1")
改成 Set ws = ActiveSheet

我试试，谢谢老师

wjt_1221 · 发表于 2021-2-15 12:57

493861364 发表于 2021-2-14 14:29
要是懒得写for...each.....
就把 Set ws = Worksheets("sheet1")
改成 Set ws = ActiveSheet

我录制了一个宏，代码是：ActiveChart.SetElement (msoElementChartTitleAboveChart)，单独运行可以。为什么放我的过程里就提示对象变量或with块变量未设置。百度搜索了一下，也没找到。这些知识都在哪儿可以学呢。

493861364 · 发表于 2021-2-15 13:03

wjt_1221 发表于 2021-2-15 12:57
我录制了一个宏，代码是：ActiveChart.SetElement (msoElementChartTitleAboveChart)，单独运行可以。为 ...

上传附件看看，vba水平有限，可以试试，看有vba大神能帮到你不

wjt_1221 · 发表于 2021-2-15 13:07

493861364 发表于 2021-2-15 13:03
上传附件看看，vba水平有限，可以试试，看有vba大神能帮到你不

附件就是我前面上传的里面，录制的宏就是把工作表标题居中。但放我代码里就运行不了

493861364 · 发表于 2021-2-15 13:51

把charttitle的2行代码注释掉，默认的就是居中对齐

With ch.Chart

      .HasTitle = True
      .ChartTitle.Text = ch.Name
      .ChartTitle.Font.Size = 15
'       .ChartTitle.Left = 100>>>>>>>>>>>>>>
'       .ChartTitle.Top = 2>>>>>>>>>>>>>>
      .HasLegend = False
      .PlotArea.Width = 347
      .PlotArea.Left = 10
      .PlotArea.Top = 20
      .PlotArea.Height = 181



   ' .Export ThisWorkbook.Path & "\test.gif"
End With

493861364 · 发表于 2021-2-15 13:52

wjt_1221 发表于 2021-2-15 13:07
附件就是我前面上传的里面，录制的宏就是把工作表标题居中。但放我代码里就运行不了

注释掉2行代码就是居中对齐

With ch.Chart

      .HasTitle = True
      .ChartTitle.Text = ch.Name
      .ChartTitle.Font.Size = 15
'       .ChartTitle.Left = 100>>>>>>>>>>>>>>
'       .ChartTitle.Top = 2>>>>>>>>>>>>>>
      .HasLegend = False
      .PlotArea.Width = 347
      .PlotArea.Left = 10
      .PlotArea.Top = 20
      .PlotArea.Height = 181



   ' .Export ThisWorkbook.Path & "\test.gif"
End With

ning84 · 发表于 2023-3-15 18:55

493861364 发表于 2021-2-14 11:20

谢谢代码----Selection.TickLabels.Font.Size
Axis.TickLabels 属性 (Excel) | Microsoft Learn https://learn.microsoft.com/zh-c ... cel.axis.ticklabels

Sub del111111111()
Dim xChart As Chart
Set xChart = Sheets("chart1")
With xChart
.DataTable.Font.Size = 10
.Axes(xlValue).Select
Selection.TickLabels.Font.Size = 10
.Axes(xlValue, xlSecondary).Select
Selection.TickLabels.Font.Size = 10
End With
End Sub

复制代码

ning84 · 发表于 2023-3-15 19:54

在excel chart，以下代码成立。但在Ppt VBA下，不成立。
.Axes(xlValue, xlSecondary).Select
Selection.TickLabels.Font.Size = 10

''
Sub ll2()
Dim Pres As Presentation
Dim Sld As Slide, ShpRng As ShapeRange
Dim Arr1, Arr2
Dim xChart As Chart
Dim Ww As Workbook
''
Dim Sht As Worksheet
Dim Rng As Range
Dim ii, jj, Str
Dim Arr(7)
Set Pres = Application.ActivePresentation
Set Sld = Pres.Slides(1)
Set xChart = Sld.Shapes(4).Chart
With xChart
For ii = .SeriesCollection.Count To 1 Step -1
.SeriesCollection(ii).Delete
Next ii
.ChartData.Activate
'Stop
Set Sht = .ChartData.Workbook.Worksheets(1)
Set Rng = Sht.Range("a1:i5")
.SetSourceData "=" & Sht.Name & "!" & Rng.Address, xlRows
.HasDataTable = True
.HasLegend = False
.DataTable.Font.Size = 10
.Axes(xlValue).Select
'ActiveWindow.Selection.TextRange.Font.Size = 9
'Selection.TickLabels.Font.Size = 10
'.Axes(xlValue, xlSecondary).Select
'Selection.TickLabels.Font.Size = 10
For ii = 1 To 4 'To 1 Step -1
Select Case ii
Case 1, 2
.SeriesCollection(ii).ChartType = xlColumnClustered 'xlColumnStacked
Case 3, 4
.SeriesCollection(ii).ChartType = xlLine
.SeriesCollection(ii).AxisGroup = 2
End Select
Next ii
End With
End Sub

复制代码

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

[求助] 怎么修改横纵坐标线条的宽度！