EXCEL实现指定列的图片删除

飞猪超人

Sub 宏1()
    Columns("A:A").Select
    Dim ss As Shape
        For Each ss In ActiveSheet.Shapes
            If ss.Type <> 8 Then
                ss.delete
            End If
        Next ss
End Sub


如代码   Columns("A:A").Select是已经在代码中选择A列 如何通过不在代码中把列作为一个变量 实现想删除哪列就哪列

饮冰e士

Option Explicit

Sub 宏1()
Dim c%
  'Columns("A:A").Select
  c = Application.InputBox("输入要删除的列号(数字)：", "选择")
  Dim ss As Shape
  For Each ss In ActiveSheet.Shapes
    If ss.Type <> 8 And ss.TopLeftCell.Column = c Then
      ss.Delete
    End If
  Next ss
End Sub

taller

如何通过不在代码中把列作为一个变量 - 没看懂，这是什么意思？你代码删除指定类型的Shape，和选中的列没有关系

ynzsvt

1. Sub 宏1()
   
2. Columns("A:A").Select
   
3. Dim ss As Shape, Rng As Range
   
4. Set Rng = Selection
   
5. For Each ss In ActiveSheet.Shapes
   
6.   If ss.Type <> 8 Then '图片的左上角单元格位置符合的才删除
   
7.    If Not Application.Intersect(Rng, ss.TopLeftCell) Is Nothing Then _
   
8.      ss.Delete
   
9.   End If
   
10. Next ss
    
11. End Sub

复制代码

饮冰e士

可能想要的是下面这个效果？



Sub DelShps()
Dim Rng As Range
Dim shp As Shape
  Set Rng = Application.InputBox("选择要删除图片的区域：", "选择", Type:=8)
  For Each shp In ActiveSheet.Shapes
    If shp.Type <> 8 And Not (Intersect(Rng, shp.TopLeftCell) Is Nothing) Then
      shp.Delete
    End If
  Next shp
End Sub

3190496160

Sub 删除图片()
Dim shp As Shape
w = InputBox("请输入要删除图片的列号", "列号", "8")
If w = "" Then End
For Each shp In ActiveSheet.Shapes
    If shp.TopLeftCell.Column = Val(w) Then shp.Delete
Next shp
End Sub

songshihai

看看是不是要这种效果?单列直接输入列号,多列中间用空格隔开

飞猪超人

ynzsvt 发表于 2024-8-24 09:12

你好 四楼5楼的可以通过input来实现 你的代码复制进去既不生效也不报错

飞猪超人

饮冰e士 发表于 2024-8-24 09:29
可能想要的是下面这个效果？

可以实现谢谢大神。 请问vba怎么通过打印（比如write print）调试

ynzsvt

飞猪超人 发表于 2024-8-24 14:34
你好 四楼5楼的可以通过input来实现 你的代码复制进去既不生效也不报错

你的代码删除的图片没有A列的限制，我给你加上了。
至于要手工指定列，可以象5楼指定区域，也可以象其他的指定列号。
最最基本的应该是你自己看书学会，灵活使用。