VBA删除衬于文字下方的图片

iszc

此代码能删除嵌入式图片，如果需要删除衬于文字下方的图片该怎么修改

Sub test()
Mywidth = 6.75 '指定图片宽度(厘米)
Myheigth = 1.65 '指定图片高度(厘米)
For Each ishape In ActiveDocument.InlineShapes
    If Abs(ishape.Height - 28.345 * Myheigth) < 1 And Abs(ishape.Width - 28.345 * Mywidth) < 1 Then ishape.Delete
Next ishape
End Sub


附测试文档

duquancai

附件呢？你未必说的是对的！

iszc

vba已经贴出来了，测试能删除对应大小的嵌入型图片，就是要求改成衬于文字下方删除图片
估计应该是 ActiveDocument.InlineShapes的属性吧

iszc

更新了附件，请高手老师帮忙

duquancai

iszc 发表于 2018-4-3 20:28
更新了附件，请高手老师帮忙

请看清楚下面三个条件:
第一,整个活动文档
第二,图片
第三,衬于文字下方
Sub test()
    Dim d As Document, i&, n&, S As Shape
    Set d = ActiveDocument
    If d.Shapes.Count = 0 Then Exit Sub
    n = d.Shapes.Count
    For i = n To 1 Step -1
        Set S = d.Shapes(i)
        If S.Type = 13 And S.WrapFormat.Type = 5 Then S.Delete
    Next
End Sub

413191246se

杜先生，以后 Dim d as Document 咱们还是改为 Dim doc as Document 吧！这样好联想，比较规范。

duquancai

413191246se 发表于 2018-4-3 23:22
杜先生，以后 Dim d as Document 咱们还是改为 Dim doc as Document 吧！这样好联想，比较规范。

本不想写代码的，因为求助者 一旦拿到他认为 满意的代码后 屁都不放一个！这种情况，前面我回复的贴 大都这样！至于规范问题 不想去考虑那么多，怎么写简单就怎么写，看不顺眼的，可以无视！

szqhb

duquancai 发表于 2018-4-4 15:00
本不想写代码的，因为求助者 一旦拿到他认为 满意的代码后 屁都不放一个！这种情况，前面我回复的贴 大都 ...

别介意。不管白猫黑猫，抓到老鼠就是好猫！

相见是缘8

duquancai 发表于 2018-4-4 15:00
本不想写代码的，因为求助者 一旦拿到他认为 满意的代码后 屁都不放一个！这种情况，前面我回复的贴 大都 ...

大神说得是，真有一部分这样的人，一点都不懂得尊重人，尊重他人的知识，得到解答的代码后不但谢字没有一个，连代码OK不OK都不提，这种没素质、没修养的人，真令人气愤和讨厌！！！

iszc

这几天外出，没进论坛，感谢各位帮忙解答