开发工具→查看代码
把下面代码粘贴进去,点击执行
Sub mysub()
For Each s In Sheet1.OLEObjectss.TopLeftCell = s.Object.Value
s.Delete
Next
End Sub
本文提供了一段VBA代码示例,演示了如何遍历并删除Excel工作表Sheet1上的所有OLE对象。通过设置每个OLE对象的TopLeftCell属性为对象的Value属性,并随后删除该对象来实现这一目标。
开发工具→查看代码
把下面代码粘贴进去,点击执行
Sub mysub()
For Each s In Sheet1.OLEObjects
被折叠的 条评论
为什么被折叠?