我想使用宏在单元格中复制新图片,但在复制新图片之前,我如何检查该特定单元格是否已经有图片,将 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
谢谢
最佳答案
- 将
Sub DeleteCell(curcell)
更改为Sub DeleteCell(curcell As Range)
- 将
Dim sh As Shapes
更改为Dim sh As Shape
- 将
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
关于vba - 使用vba从单元格中删除图片,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/39283914/