[求助]如何删除word中的固定大小的所有图片，用vba删除。

downbaidu · 发表于 2008-2-25 10:27

如何删除word中的固定大小的所有图片，用vba删除。

QQ：174322509

守柔 · 发表于 2008-2-26 06:43

QUOTE:

以下是引用downbaidu在2008-2-25 10:27:59的发言：

如何删除word中的固定大小的所有图片，用vba删除。

QQ：174322509

邮件已收到，内容大致如下：

只留第二页的那个图片，第一页和第三页的图片都要删除。还有如何将设置了不同的页眉和页脚全部一次性改成一样的。

0FZoFsvP.rar (24.79 KB, 下载次数: 86)

请参考：

Sub Example()
    Dim oInlineShape As InlineShape
    Application.ScreenUpdating = False
    For Each oInlineShape In ActiveDocument.InlineShapes
        If oInlineShape.Height = 23 And oInlineShape.Width = 415 Then oInlineShape.Delete
    Next
    Application.ScreenUpdating = True
End Sub

有问题，请在论坛提问。

downbaidu · 发表于 2008-2-26 11:28

那请问PPT里应该如何删除呢？还有excel中的。

excel如何删除指定的几个字。在全文中搜索

downbaidu · 发表于 2008-2-26 11:30

还有如何删除doc中设置了不同的页眉页脚，如何一次全部删除，或全部修改呢？

守柔 · 发表于 2008-2-26 17:30

QUOTE:

以下是引用downbaidu在2008-2-26 11:28:31的发言：

那请问PPT里应该如何删除呢？还有excel中的。

excel如何删除指定的几个字。在全文中搜索

楼主的问题太多了,能否一个一个问,一个一个解决呢?

先把1楼的解决了,再解决以后的.

我不想眉毛胡子大把抓.

另外,如果想诚意请人帮助解决问题,劳驾把附件上传.

VBA需要查看具体的文档,分析和使用特定的对象与方法,以便一击中的.

downbaidu · 发表于 2008-2-26 22:16

现在先前的问题又有问题了。

图片设置成环绕型的就不能删除了。

符件中的第一个图片无法删除现在。

JCcQWdYU.rar (24.18 KB, 下载次数: 19)

[此贴子已经被作者于2008-2-26 22:17:52编辑过]

downbaidu · 发表于 2008-2-26 22:21

删除PPT幻灯片中固定大小的图片！

有三个幻灯片想一次删除里面的所有图片。

谢谢了。呵呵。

S88hVsyY.rar (10.56 KB, 下载次数: 17)

downbaidu · 发表于 2008-2-26 22:25

删除excel中所有工作簿中的图片和文字！

我要把里面的图片全部删除，有三个工作表。里面有三个图片，和三个文字。

现在要把里面的三个图片全部删除，还有文字也删除，文字是（下载摆渡）

kvTxH8Iu.rar (9.55 KB, 下载次数: 25)

downbaidu · 发表于 2008-2-26 22:26

在此谢谢高手了！

守柔 · 发表于 2008-2-27 06:28

QUOTE:

以下是引用downbaidu在2008-2-26 22:16:56的发言：

现在先前的问题又有问题了。

图片设置成环绕型的就不能删除了。

符件中的第一个图片无法删除现在。

'* ＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋
'* Created By SHOUROU@ExcelHome 2008-2-27 6:27:58
'仅测试于System: Windows NT Word: 11.0 Language: 2052
'№ 0339^The Code CopyIn [ThisDocument-ThisDocument]^'
'* －－－－－－－－－－－－－－－－－－－－－－－－－－－－－
Option Explicit

Sub Example()
    Dim oInlineShape As InlineShape, oShape As Shape
    Dim myHeight As Single, myWidth As Single
    myHeight = 23    '磅,必须以磅为单位,如以厘米等,则会在单位换算过程中出现误差
    myWidth = 415    '磅
    '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
    '如以磅为单位返回需要删除的图形的宽或者高
    '    MsgBox Selection.ShapeRange(1).Width
    '    MsgBox Selection.ShapeRange(1).Height
    '    MsgBox Selection.InlineShapes(1).Width
    '    MsgBox Selection.InlineShapes(1).Height
    '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
    Application.ScreenUpdating = False
    '删除指定高度宽度的嵌入式图形
    For Each oInlineShape In ActiveDocument.InlineShapes
        If oInlineShape.Height = myHeight And oInlineShape.Width = myWidth Then oInlineShape.Delete
    Next
    '删除指定宽度高度的浮动式图形
    For Each oShape In ActiveDocument.Shapes
        If oShape.Height = myHeight And oShape.Width = myWidth Then oShape.Delete
    Next
    Application.ScreenUpdating = True
End Sub
'----------------------

		自动登录	找回密码
密码			免费注册