如何用VBA实现清除形状内图片但保留形状本身

针对你已有的插入图片到形状的宏，以下是实现清除形状内图片、保留形状本身的VBA代码：

Sub ClearShapePicture()
    Dim targetShape As Shape
    ' 定位到目标形状（和插入宏里的形状名称保持一致）
    Set targetShape = ActiveSheet.Shapes("Rectangle 1")
    
    ' 清除图片填充，将形状恢复为纯色填充（示例为白色，可按需修改）
    With targetShape.Fill
        .Solid
        .ForeColor.RGB = RGB(255, 255, 255)
        ' 若希望形状无填充，可替换为：.Delete
    End With
    
    MsgBox "图片已清除，形状保留"
End Sub

关键说明 #

• 原插入宏通过Fill.UserPicture将图片设为形状的填充背景，因此清除操作只需修改形状的填充属性，替换掉图片填充即可。
• 如果需要保留形状原本的填充样式（比如插入图片前的渐变、特定颜色），可以在插入图片时先保存原填充属性，清除时再恢复。示例代码如下：

  ' 插入图片时保存原填充
  Dim originalFill As FillFormat
  Set originalFill = ActiveSheet.Shapes("Rectangle 1").Fill.Duplicate
  
  ' 清除时恢复原填充
  originalFill.ApplyTo ActiveSheet.Shapes("Rectangle 1").Fill
  

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