vba - 使用vba从单元格中删除图片

Question

我想使用宏在单元格中复制新图片，但在复制新图片之前，我如何检查该特定单元格是否已经有图片，将 shape.TopLeftCell 与当前单元格匹配为 不为我工作，任何帮助将不胜感激!

' this is not working for every picture
Sub DeleteCell(curcell) 'curcell=ActiveWindow.ActiveCell

Dim sh As Shapes

For Each sh In ActiveSheet.Shapes
    If sh.TopLeftCell.Address = curcell.Cells.Address Then
         sh.Delete
    End If
Next

End Sub

谢谢

Answer 1

1. 将 Sub DeleteCell(curcell) 更改为 Sub DeleteCell(curcell As Range)
2. 将 Dim sh As Shapes 更改为 Dim sh As Shape
3. 将 curcell.Cells.Address 更改为 curcell.Address

所以你的代码看起来像这样

Sub DeleteCell(curcell As Range)  'curcell=ActiveWindow.ActiveCell
    Dim sh As Shape

    For Each sh In ActiveSheet.Shapes
        If sh.TopLeftCell.Address = curcell.Address Then sh.Delete
    Next
End Sub