南宁市优化网站,网站开发不用框架?,海报,设计方案构思和设计过程1. 当前窗口在word文档#xff0c;选择工具-》宏-》点击宏 2. 弹出弹框#xff0c;起个宏名1#xff0c;点击2添加一个宏。 输入以下代码#xff1a;
Sub 图片格式统一()图片格式统一 宏Dim iDim Height, WeightHeight 200 改成自己的高度Weight 350 改成自己的宽度On E…1. 当前窗口在word文档选择工具-》宏-》点击宏 2. 弹出弹框起个宏名1点击2添加一个宏。 输入以下代码
Sub 图片格式统一()图片格式统一 宏Dim iDim Height, WeightHeight 200 改成自己的高度Weight 350 改成自己的宽度On Error Resume Next 忽略错误For i 1 To ActiveDocument.InlineShapes.Count InlineShapes类型图片ActiveDocument.InlineShapes(i).Height Height 设置图片高度为 Height_pxActiveDocument.InlineShapes(i).Width Weight 设置图片宽度 Weight_pxNext iFor i 1 To ActiveDocument.Shapes.Count Shapes类型图片ActiveDocument.Shapes(i).Height Height 设置图片高度为 Height_pxActiveDocument.Shapes(i).Width Weight 设置图片宽度 Weight_pxNext iEnd Sub3. 点击执行 4. 这时查看word文档所有图片高度和宽度都会变为设置的宽高。
