PPT清理VBA代码部分移除项计数不显示问题求助

问题根源 #

RemoveUnusedMasterSlidesAndLayouts子过程中，masterSlidesRemoved和layoutsRemoved计数器未通过**引用传递（ByRef）**的方式与主过程关联，导致子过程内的计数更新无法同步到主过程变量，最终弹窗里的对应计数始终为初始值0。

修复步骤 #

1. 修改RemoveUnusedMasterSlidesAndLayouts的参数定义，将两个计数器声明为ByRef类型；
2. 主过程调用该子过程时，传入已初始化的计数器变量；
3. 子过程内部补全所有变量的声明，避免依赖外部变量。

修正后的代码片段 #

主过程调用部分修改 #

将主过程中调用子过程的代码：

' Remove unused master slides and layouts
If btnRemoveUnusedMasters.Value = True Then
    RemoveUnusedMasterSlidesAndLayouts
End If

替换为：

' Remove unused master slides and layouts
If btnRemoveUnusedMasters.Value = True Then
    RemoveUnusedMasterSlidesAndLayouts masterSlidesRemoved, layoutsRemoved
End If

子过程完整修改 #

将原RemoveUnusedMasterSlidesAndLayouts子过程替换为：

Sub RemoveUnusedMasterSlidesAndLayouts(ByRef masterSlidesRemoved As Integer, ByRef layoutsRemoved As Integer)
   ' Remove unused master slides and layouts
Dim oPres As Presentation
Dim isDesignUsed As Boolean
Dim isLayoutUsed As Boolean
Dim i As Integer, j As Integer
Dim oDesign As Design, oLayout As CustomLayout, oSlide As Slide

Set oPres = ActivePresentation

For i = oPres.Designs.Count To 1 Step -1
    Set oDesign = oPres.Designs(i)
    isDesignUsed = False

    For Each oSlide In oPres.Slides
        If oSlide.Design Is oDesign Then
            isDesignUsed = True
            Exit For
        End If
    Next oSlide

    If Not isDesignUsed Then
        oDesign.Delete
        masterSlidesRemoved = masterSlidesRemoved + 1
    Else
        For j = oDesign.SlideMaster.CustomLayouts.Count To 1 Step -1
            Set oLayout = oDesign.SlideMaster.CustomLayouts(j)
            isLayoutUsed = False

            For Each oSlide In oPres.Slides
                If oSlide.CustomLayout Is oLayout Then
                    isLayoutUsed = True
                    Exit For
                End If
            Next oSlide

            If Not isLayoutUsed Then
                oLayout.Delete
                layoutsRemoved = layoutsRemoved + 1
            End If
        Next j
    End If
Next i

End Sub

额外优化补充 #

当前弹窗中Empty text box placeholders removed字段错误使用了draftTextRemoved计数，应替换为emptyTextRemoved，修正后的弹窗代码片段：

MsgBox "Cleanup Completed." & vbNewLine & _
       "Hidden slides removed: " & CStr(hiddenSlidesRemoved) & vbNewLine & _
       "Speaker notes cleared: " & CStr(speakerNotesCleared) & vbNewLine & _
       "Empty text box placeholders removed: " & CStr(emptyTextRemoved) & vbNewLine & _
       "Metadata cleared: " & CStr(metadataRemoved) & vbNewLine & _
       "Comments removed: " & CStr(commentsRemoved) & vbNewLine & _
       "Slide numbers fixed: " & CStr(slideNumbersFixed) & vbNewLine & _
       "Objects outside slides removed: " & CStr(outsideElementsRemoved) & vbNewLine & _
       "Appendix slides removed: " & CStr(appendixSlidesRemoved) & vbNewLine & _
       "Animations removed: " & CStr(animationsRemoved) & vbNewLine & _
       "Transitions removed: " & CStr(transitionsRemoved) & vbNewLine & _
       "Unused Master slides removed: " & CStr(masterSlidesRemoved) & vbNewLine & _
       "Unused Layouts removed: " & CStr(layoutsRemoved)

内容的提问来源于stack exchange，提问作者Zahid Khan