如何通过VBA实现用形状作为Excel图表系列标记且不修改剪贴板？

针对你在Mac Excel 16.43中的需求，以下两种方案可以实现目标且不破坏剪贴板（或妥善恢复剪贴板），同时适配你将格式设置纳入重计算序列的函数场景：

方案1：保存并恢复剪贴板内容（兼容多类型剪贴板数据） #

你之前尝试的剪贴板保存恢复思路是可行的，只是Mac Excel的剪贴板处理逻辑和Windows不同。以下代码通过临时工作表中转，能有效保存并恢复文本类剪贴板内容，避免操作后剪贴板被覆盖：

Function TestFormatting(Optional ignoredParameter As Variant)
    Dim clipboardBackup As Variant
    
    ' 备份当前剪贴板内容
    On Error Resume Next
    clipboardBackup = BackupClipboard()
    On Error GoTo 0
    
    ' 执行形状粘贴到系列标记的操作
    With ThisWorkbook.Sheets("Sheet1")
        .Shapes("Shape1").Copy
        .ChartObjects("Chart1").Chart.SeriesCollection(1).Paste
    End With
    
    ' 恢复剪贴板内容
    If Not IsEmpty(clipboardBackup) Then
        On Error Resume Next
        RestoreClipboard clipboardBackup
        On Error GoTo 0
    End If
End Function

' Mac Excel 剪贴板备份函数
Private Function BackupClipboard() As Variant
    Dim tempSheet As Worksheet
    Set tempSheet = ThisWorkbook.Sheets.Add
    tempSheet.Paste
    BackupClipboard = tempSheet.UsedRange.Value
    Application.DisplayAlerts = False
    tempSheet.Delete
    Application.DisplayAlerts = True
End Function

' Mac Excel 剪贴板恢复函数
Private Sub RestoreClipboard(data As Variant)
    Dim tempSheet As Worksheet
    Set tempSheet = ThisWorkbook.Sheets.Add
    tempSheet.Range("A1").Resize(UBound(data, 1), UBound(data, 2)).Value = data
    tempSheet.UsedRange.Copy
    Application.DisplayAlerts = False
    tempSheet.Delete
    Application.DisplayAlerts = True
End Sub

注意点 #

• 加入错误处理是为了应对剪贴板为空或无法读取的情况，避免函数报错中断Excel的重计算流程。
• 该方案对图片类剪贴板内容的支持有限，如果你的日常使用中剪贴板以文本/单元格数据为主，这个方法足够实用。

方案2：完全绕过剪贴板——导出形状为临时图片 #

如果要彻底避免剪贴板操作，可以将形状导出为临时图片文件，再将图片直接设置为系列标记：

Function TestFormatting(Optional ignoredParameter As Variant)
    Dim tempImagePath As String
    Dim targetShape As Shape
    Dim targetSeries As Series
    
    ' 获取Mac临时目录路径，生成临时图片文件名
    tempImagePath = Environ("TMPDIR") & "chart_marker_temp.png"
    
    Set targetShape = ThisWorkbook.Sheets("Sheet1").Shapes("Shape1")
    Set targetSeries = ThisWorkbook.Sheets("Sheet1").ChartObjects("Chart1").Chart.SeriesCollection(1)
    
    ' 将形状导出为PNG图片
    targetShape.Export Filename:=tempImagePath, FilterName:="PNG"
    
    ' 将图片设置为系列标记
    With targetSeries.MarkerFormat.Picture
        .Insert tempImagePath
        .ScaleHeight 1, msoTrue ' 保持图片原始比例
        .ScaleWidth 1, msoTrue
    End With
    
    ' 删除临时图片文件
    Kill tempImagePath
End Function

注意点 #

• 该方案完全不依赖剪贴板，避免了任何剪贴板修改风险。
• 如果需要矢量清晰度，可以将导出格式改为EMF（Mac Excel支持EMF格式插入），只需修改FilterName:="EMF"即可。
• 临时文件会自动删除，不会留下冗余文件。

关于函数触发重计算的补充 #

你通过函数将格式设置纳入Excel重计算序列的思路很实用，要让函数在系列名称变更时自动执行，可以在单元格中使用=TestFormatting(SeriesNameCell)，其中SeriesNameCell是引用系列名称的单元格。当该单元格内容变更时，Excel会触发函数重新计算，自动更新系列标记格式。

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