帮我写一个vba，删除某一列图片

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

相关问题

帮我写一个vba，删除一列图片

Sub DeletePictures()
Dim pic As Picture
For Each pic In ActiveSheet.Pictures
pic.Delete
Next pic
End Sub

说明：该VBA代码可以删除当前活动工作表中所有的图片，可以将其复制到VBA编辑器中运行。

帮我写一个vba，删除第10列图片

Sub DeleteColumn10Image()
Dim ws As Worksheet
Dim lastRow As Long
Dim i As Long

Set ws = ActiveSheet '更改为需要操作的工作表

lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row '获取最后一行的行数

For i = 1 To lastRow '循环每一行
If Not ws.Cells(i, 10).Value Is Nothing Then '如果第10列不为空
If TypeName(ws.Cells(i, 10)) = "Picture" Then '如果第10列是图片
ws.Cells(i, 10).Delete Shift:=xlToLeft '删除第10列，并且左侧单元格向左移动
End If
End If
Next i
End Sub