Excel VBA：如何调整右上角形状图片位置并清除旧图片？

问题说明 #

现有代码实现了选中C列单元格时加载右侧第7列路径的图片，但存在两个问题：

1. 图片位置随选中单元格变动，容易被截断，无法固定在Excel右上角
2. 切换到其他单元格时，旧图片不会自动清除，一直保留在工作表中

修正后的完整代码 #

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim imgShape As Shape
    Const IMG_NAME As String = "PreviewImage" ' 预览图唯一标识名称
    
    ' 清除上一次的预览图片，防止残留
    On Error Resume Next ' 处理图片不存在的情况
    Me.Shapes(IMG_NAME).Delete
    On Error GoTo 0
    
    ' 仅处理C列选中事件
    If Target.Column = 3 Then ' 3代表C列，直接用列号更高效
        ' 检查路径是否有效，避免空路径报错
        If Trim(Target.Offset(0, 7).Value) <> "" Then
            Set imgShape = Me.Shapes.AddPicture( _
                Filename:=Target.Offset(0, 7).Value, _
                LinkToFile:=msoFalse, _
                SaveWithDocument:=msoTrue, _
                Left:=Me.Width - 420, ' 宽度减图片宽（400）再留20边距，固定右上角
                Top:=10, ' 顶部留10像素边距
                Width:=400, Height:=400)
            
            ' 给图片命名，方便下次定位删除
            imgShape.Name = IMG_NAME
        End If
    End If
End Sub

核心修改点 #

• 固定右上角显示：通过Me.Width - 420计算图片左侧位置（减去图片宽度400和20像素边距），Top:=10固定顶部位置，让图片始终显示在工作表右上角，不会随选中单元格移动或被窗口截断。
• 自动清除旧图：每次触发选中事件时，先删除名为PreviewImage的旧图片（用错误处理避免图片不存在时的报错），再加载新图并赋予同一名称，确保切换单元格时旧图被清理。
• 优化细节：直接用列号3判断C列更高效，增加路径非空检查，避免空路径导致的加载错误。

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