帮我写一个vba,删除某一列图片
时间: 2024-06-03 17:08:50 浏览: 168
Sub deleteColumnPicture()
Dim columnNumber As Integer
'输入要删除的列号
columnNumber = InputBox("请输入要删除的列号", "删除列图片")
'循环删除该列的图片
For Each pic In ActiveSheet.Pictures
If pic.TopLeftCell.Column = columnNumber Then
pic.Delete
End If
Next pic
End Sub
阅读全文