宏仅在单步执行或代码中有一个断行时有效，但通常在运行时无效

Question

我创建图表的宏有问题，当我单步执行时它运行良好，但当我运行它正常时重新启动我的 Excel。尝试了各种东西，没有任何效果。它本来是其他宏的一部分，但我把它隔离到另一个子，认为它可能会有所帮助，但隔离时它仍然崩溃。

你们知道这可能是什么原因造成的吗？

EDIT1: 没有错误信息，excel只是重启

EDIT2: 问题好像是这段代码引起的:

    .SetElement (msoElementChartTitleAboveChart)
    .ChartTitle.Text = "Liczba Dni Promocji - Wykres"
    .ChartTitle.Font.Bold = True
    .ChartTitle.Font.Size = 16

这是代码：

Sub StworzWykres()
Application.ScreenUpdating = False
'Application.PrintCommunication = True

Dim ws As Worksheet
Dim pt As PivotTable
Dim chrt As Chart
Dim myRng As Range
Dim i As Integer
Dim j As Integer

Set ws = ThisWorkbook.Sheets("Raport_LiczbaDniPromocji")

Set pt = ws.PivotTables("LDP_Tab1")

'delete existing charts
Dim shp As Shape
For Each shp In ws.Shapes
    shp.Delete
Next shp
Set shp = Nothing

'ask if make a chart
Application.ScreenUpdating = True

If MsgBox("Czy chcesz utworzyć wykres Liczby Dni Promocji?", vbYesNo, "Wykres") = vbNo Then
    Exit Sub
End If

Application.ScreenUpdating = False

'adding the chart
'Set chrt = ws.Shapes.AddChart.Chart
Set myRng = ws.Range(Cells(19 + pt.RowRange.Rows.Count, 4), Cells(18 + 2 * (pt.RowRange.Rows.Count), 6))
myRng.Select
Set chrt = ws.Shapes.AddChart.Chart
'Set chrt = ws.ChartObjects.Add.Chart
'chrt.Activate
With chrt
    'For j = .SeriesCollection.Count To 1 Step -1
    '    .SeriesCollection(j).Delete
    'Next j
    '.SetSourceData Source:=myRng, PlotBy:=xlColumns
    .ChartType = xl3DColumnClustered
    '.SetSourceData Source:=myRng, PlotBy:=xlColumns
    .Parent.Name = "Wykres_LDP"
    .DepthPercent = 400
    .PlotArea.Format.ThreeD.RotationX = 0
    .PlotArea.Format.ThreeD.RotationY = 110
    .RightAngleAxes = True
    .ChartArea.Left = ws.Range(Cells(1, 1), Cells(1, 6)).Width + 1 'ws.Cells(20 + pt.RowRange.Rows.Count, 8).Left - (ws.Columns(7).ColumnWidth / 1.25)
    .ChartArea.Top = ws.Cells(18 + pt.RowRange.Rows.Count, 8).Top
    .ChartArea.Height = ws.Range(Cells(19 + pt.RowRange.Rows.Count, 8), Cells(47 + pt.RowRange.Rows.Count, 8)).Height
    .ChartArea.Width = 1000
    .Parent.Placement = xlMove
    .ChartColor = 10
    .ChartGroups(1).GapWidth = 150
    .SetElement (msoElementLegendBottom)
    .Legend.Font.Size = 12
    .Legend.Font.Bold = True
    .SetElement (msoElementChartTitleAboveChart)
    .ChartTitle.Text = "Liczba Dni Promocji - Wykres"
    .ChartTitle.Font.Bold = True
    .ChartTitle.Font.Size = 16
    With .Axes(xlCategory, xlPrimary)
        .TickLabels.Orientation = 60
        '.TickLabels.Font.Bold = True
        '.TickLabels.Font.Size = 11
    End With
    For j = .SeriesCollection.Count To 1 Step -1
        .SeriesCollection(j).HasDataLabels = True
        .SeriesCollection(j).DataLabels.Orientation = xlUpward
        .SeriesCollection(j).DataLabels.Font.Bold = True
        .SeriesCollection(j).DataLabels.Font.Size = 10
        If j = 1 Then
            .SeriesCollection(j).DataLabels.Font.ColorIndex = 32
        Else
            .SeriesCollection(j).DataLabels.Font.ColorIndex = 46
        End If
    Next j
    '.SetSourceData Source:=myRng, PlotBy:=xlColumns
End With

'clear variables

Set ws = Nothing
Set pt = Nothing
Set myRng = Nothing
i = Empty
j = Empty

'Application.PrintCommunication = False
Application.ScreenUpdating = True
End Sub

Answer 1

删除

.SetElement (msoElementChartTitleAboveChart)

并插入

.HasTitle = True

在同一个地方。

宏仅在单步执行或代码中有一个断行时有效，但通常在运行时无效

Macro works only in stepthrough or with one breakline in code, but not when run normally

excel

vba

excel-charts

宏仅在单步执行或代码中有一个断行时有效，但通常在 运行 时无效

Macro works only in stepthrough or with one breakline in code, but not when run normally

excel

vba

excel-charts

宏仅在单步执行或代码中有一个断行时有效，但通常在运行时无效