word2010 怎么取消贴图自动缩放

whorewoo · 发表于 2014-12-29 20:16

版本：word 2010
视图：Web版式视图

附件A的贴图任然是跟页面视图一样，被自动压缩成跟页面视图一样的宽度

附件B是通过手动每一张把比例调整成100%的效果，但是这样操作只能一张一张来，BAIDU说这样设置之后都可以了，但实际不行！（而且这样选成100% 画质也会变模糊）

怎么样设置让以后直接 ctrl+v 显示成附件B的样式？
之前是2007版，用web版式就没问题，换成2010版就出现这问题了！大图缩放根本看不清楚！（公司系统，自己也没办法换成07版！）

B.zip (805.83 KB, 下载次数: 15)

A.zip (805.86 KB, 下载次数: 11)

TomingTang · 发表于 2014-12-29 21:09

Option Explicit
Public Sub ChangePicSize()
Dim oShape As Shape, oInlineShape As InlineShape
With ActiveDocument
For Each oShape In .Shapes
With oShape
Select Case .Type
Case msoEmbeddedOLEObject, msoLinkedOLEObject, msoOLEControlObject, msoLinkedPicture, msoPicture
.ScaleHeight 1, True
.ScaleWidth 1, True
End Select
End With
Next
For Each oInlineShape In .InlineShapes
With oInlineShape
Select Case .Type
Case wdInlineShapeEmbeddedOLEObject, _
wdInlineShapeLinkedOLEObject, _
wdInlineShapeLinkedPicture, _
wdInlineShapeLinkedPictureHorizontalLine, _
wdInlineShapeOLEControlObject, _
wdInlineShapePicture, _
wdInlineShapePictureBullet, _
wdInlineShapePictureHorizontalLine
.ScaleHeight = 100
.ScaleWidth = 100
End Select
End With
Next
End With
End Sub

复制代码

从论坛早到答案，运行后符合你的要求。要懂得善用论坛资源。我也学习了，哈哈
请问粘贴到WORD中的图片如何重新改变大小？(VBA)
http://club.excelhome.net/thread-116317-1-1.html

whorewoo · 发表于 2014-12-29 21:15

TomingTang 发表于 2014-12-29 21:09
从论坛早到答案，运行后符合你的要求。要懂得善用论坛资源。我也学习了，哈哈
请问粘贴到WORD中的图片如何 ...

请问这个代码如何运行啊？不会VBA啊

TomingTang · 发表于 2014-12-29 21:22

whorewoo 发表于 2014-12-29 21:15
请问这个代码如何运行啊？不会VBA啊

这个和excel类似，按Alt+f11 打开vbe编辑窗口，然后把代码复制到其中，点击运行就ok。 QQ截图20141229212035.png

打开后双击左边箭头，然后复制代码到右边白色区域，最后点击右边箭头哪里，这样就运行完毕

whorewoo · 发表于 2014-12-29 21:37

TomingTang 发表于 2014-12-29 21:22
这个和excel类似，按Alt+f11 打开vbe编辑窗口，然后把代码复制到其中，点击运行就ok。打开后双击左边箭头 ...

点了那个绿色的小箭头，没有怎么反应都没有呢？
粘贴代码那个窗口要关闭吗？没有关闭的时候点了绿色的小箭头什么反应都没有，如果关闭了粘贴代码那个窗口点绿色小箭头弹出来一个宏窗口。
（因为现在家里先测试一下，明天才去公司测试）

TomingTang · 发表于 2014-12-29 23:32

whorewoo 发表于 2014-12-29 21:37
点了那个绿色的小箭头，没有怎么反应都没有呢？
粘贴代码那个窗口要关闭吗？没有关闭的时候点了绿色的小 ...

你找个需要变换的数据看看，看看点击完毕后是否有所改变。其实这运行很快的，运行完毕都看不到的。
你最小化就行了，切回到word文档窗口看看。
你论坛上搜搜，vbe代码怎么运行，这个都不懂，怎么搞？

whorewoo · 发表于 2014-12-30 20:44

TomingTang 发表于 2014-12-29 23:32
你找个需要变换的数据看看，看看点击完毕后是否有所改变。其实这运行很快的，运行完毕都看不到的。
你最 ...

运行之后问题没有解决，但是关闭文档的时候提示这个，所有文档关完，随便打开一个，直接关闭就提示这个

TomingTang · 发表于 2014-12-30 23:24

whorewoo 发表于 2014-12-30 20:44
运行之后问题没有解决，但是关闭文档的时候提示这个，所有文档关完，随便打开一个，直接关闭就提示 ...

不知道你怎么弄的，反正我这边就搞定了。
如果你不想word文档中有vba代码，那就选择是，保存后代码就消失了。
上面的截图就不知道什么原因了。

whorewoo · 发表于 2014-12-30 23:36

TomingTang 发表于 2014-12-30 23:24
不知道你怎么弄的，反正我这边就搞定了。
如果你不想word文档中有vba代码，那就选择是，保存后代码就 ...

非常感谢您的耐心解答，问了好多人都无解，BAIDU连相关的都搜不到~~~哎

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

[求助] word2010 怎么取消贴图自动缩放