Excel 在 VBA 中使用 SmartArtLayout 時運行緩慢？

Question

運行此代碼時 Excel 凍結，有沒有辦法阻止它？ 甚至讓它凍結更短的時間。 代碼生成智能藝術層次結構

Sub Org()
'
' Org Macro
'
    Dim ogSALayout As SmartArtLayout
    Dim QNode As SmartArtNode
    Dim QNodes As SmartArtNodes
    Dim t As Integer
    Set ogSALayout = Application.SmartArtLayouts(105) 'reference to organization chart
    Set ogShp = ActiveWorkbook.ActiveSheet.Shapes.AddSmartArt(ogSALayout)
    Set QNodes = ogShp.SmartArt.AllNodes
    t = QNodes.Count

    While QNodes.Count < t
    QNodes(QNodes.Count).Delete
    Wend

    While QNodes.Count < Range("A1").End(xlDown).Row
    QNodes.Add.Promote
    Wend

    For i = 1 To Range("A1").End(xlDown).Row
    'Promote and demote nodes to put them at the proper level.

    While QNodes(Range("A" & i)).Level < Range("C" & i).Value
        QNodes(Range("A" & i)).Demote
    Wend

    'Copy the cell text to the node.
    QNodes(Range("A" & i)).TextFrame2.TextRange.Text = Range("B" & i)
    Next i

End Sub

Answer 1

這可能會有所幫助：

 Sub Org()
 Application.Screenupdating = False

 'the rest of your code

 Application.Screenupdating = True
 End Sub