你遇到的程序崩溃问题，主要是两个细节导致的：一是误用了VBA内置关键字作为变量名，二是直接访问的文本对象可能不存在，触发了对象引用错误。下面给你一步步拆解修复：

1. 变量名冲突的坑 #

你用了Chart作为循环变量名，但Chart是VBA的内置关键字（代表图表对象本身），虽然不会直接报错，但容易引发逻辑混淆和潜在的运行时问题。建议改成更清晰的名字，比如chtObj。

2. 字体设置的对象访问问题 #

直接操作Chart.ChartArea.Format.TextFrame2.TextRange.Font并不稳妥——不是所有图表的ChartArea都包含可编辑的TextFrame2内容，比如纯图形类的图表，或者刚复制完成的图表可能还没完全初始化这个对象，这时候访问就会导致程序崩溃。

更可靠的方式是直接针对图表的所有文本元素设置字体，或者分元素（坐标轴、图例、标题等）单独处理，同时加上判断避免因缺失元素引发错误。

修改后的完整代码 #

Sub arrangeplots()
    '将plotspdf中的图表排列为可打印格式
    Dim OutSht As Worksheet
    Dim chtObj As ChartObject ' 替换原关键字Chart为chtObj，避免冲突
    Dim PlaceInRange As Range
    Dim ax As Axis ' 用于遍历坐标轴
    
    Set OutSht = ActiveWorkbook.Sheets("plotspdf")
    Set PlaceInRange = OutSht.Range("B2:J21")
    
    ' 复制指定图表到目标工作表
    ActiveSheet.Shapes.Range(Array("Chart 11", "Chart 3", "Chart 4", "Chart 7", "Chart 8")).Copy
    OutSht.Paste PlaceInRange
    
    ' 遍历目标工作表的所有图表对象
    For Each chtObj In OutSht.ChartObjects
        With chtObj.Chart
            ' 设置图表区域的默认字体大小（大部分文本元素会继承此设置）
            .ChartArea.Font.Size = 8
            
            ' 单独设置坐标轴刻度字体（如果存在坐标轴）
            For Each ax In .Axes
                ax.TickLabels.Font.Size = 8
            Next ax
            
            ' 设置图例字体（判断图例是否存在）
            If .HasLegend Then
                .Legend.Font.Size = 8
            End If
            
            ' 设置图表标题字体（判断标题是否存在）
            If .HasTitle Then
                .ChartTitle.Font.Size = 8
            End If
        End With
    Next chtObj
End Sub

代码改动说明 #

• 把循环变量Chart改成chtObj，彻底避免关键字冲突；
• 改用ChartArea.Font.Size设置图表区域的默认字体，这是更稳定的方式，大部分图表文本都会继承这个设置；
• 增加了坐标轴、图例、标题的单独字体设置，同时用If判断元素是否存在，避免因缺失元素引发错误；
• 保留了你原本的批量复制逻辑，确保功能和需求一致。

这样修改后，既能避免对象不存在的错误，也能确保所有需要调整的文本元素都被设置为8号字体，不会再出现崩溃问题。

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