word中图片的问题

lanmeng959 · 发表于 2006-7-8 17:46

大虾们帮忙啊[em06]

lanmeng959 · 发表于 2006-7-9 13:35

斑竹不在?

[em06]

yuyvtul · 发表于 2006-7-9 18:47

你的附件打不开

Kevin · 发表于 2006-7-10 14:26

不知为何楼主上传的文件，文件名会被系统认为是乱码，请今后尽量使用英文文件名。

下面是你的附件的绝对地址：

http://club.excelhome.net/UploadFile/2006-7/目录.rar___20067723114192.rar

[此贴子已经被作者于2006-7-10 14:27:03编辑过]

konggs · 发表于 2006-7-10 15:19

呵呵。总版出手了。

给出我的答案了，

Sub 图片缩一厘米()
    Dim sinsh As InlineShape

    On Error Resume Next

    Application.ScreenUpdating = False
    For Each sinsh In ActiveDocument.InlineShapes
        sinsh.Width = CentimetersToPoints(1)
        sinsh.Height = CentimetersToPoints(1)
    Next
    Application.ScreenUpdating = True

End Sub

zxq7298 · 发表于 2006-7-10 22:15

终于到家了，

各位斑竹，辛苦了，我也有这方面的问题，和楼主的稍有不同，

我需要用彩色打印机

打印大量的图片格式的文档，可是图片里面有大量的 **网站兰色的广告大字，好象是水印背景的字，直接影响打印。

我是在图片格式设置，选项里把图象控制，选为黑白（默认是自动），才能把图片里**网站兰色的广告大字取掉。

试过做摸版但是不其作用，我很菜也许是操作问题

有什么办法可以成批大量取掉的，？

先谢谢几 位斑竹！！！

附件

VGe4Y5hN.rar (202.95 KB, 下载次数: 7)

[此贴子已经被作者于2006-7-10 22:26:21编辑过]

lanmeng959 · 发表于 2006-7-11 00:49

有劳总版主了,可我试运行了一下宏,为什么会出现

For Each b In ActiveDocument.的语法错误呢?

在此我也谢过斑竹

lanmeng959 · 发表于 2006-7-11 00:50

呵,帮楼上的兄弟想想办法[em08]

守柔 · 发表于 2006-7-11 05:19

QUOTE:

以下是引用lanmeng959在2006-7-11 0:49:32的发言：

有劳总版主了,可我试运行了一下宏,为什么会出现

For Each b In ActiveDocument.的语法错误呢?

在此我也谢过斑竹

会复制KONGGS版主的代码么？

守柔 · 发表于 2006-7-11 05:29

QUOTE:

以下是引用zxq7298在2006-7-10 22:15:54的发言：

终于到家了，

各位斑竹，辛苦了，我也有这方面的问题，和楼主的稍有不同，

我需要用彩色打印机

打印大量的图片格式的文档，可是图片里面有大量的 **网站兰色的广告大字，好象是水印背景的字，直接影响打印。

我是在图片格式设置，选项里把图象控制，选为黑白（默认是自动），才能把图片里**网站兰色的广告大字取掉。
试过做摸版但是不其作用，我很菜也许是操作问题

有什么办法可以成批大量取掉的，？

欢迎zxq7298！

请运行以下代码：

Sub Example()
    Dim oInlineShape As InlineShape
    Application.ScreenUpdating = False
    For Each oInlineShape In ActiveDocument.InlineShapes
        oInlineShape.PictureFormat.ColorType = msoPictureBlackAndWhite
    Next
    Application.ScreenUpdating = True
End Sub

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