图片格式调整方法.docxVIP

图片格式调整方法 通过我们柴丰丰同志的攻坚，我们完成了将所有图片一次性插入WORD文本 后，可调整统一宽度（5CM）,并附加边框的宏运行模式。 具体方法如下： 1.打开word文档； 2.按住ALT按键不要放手，再按F8按键，蹦出一个窗口; 健入4更辛既的冋电迭$ 0?：dl正文?仿宋▼仿宋JS2■WD戈*盾?Tilt-X?（5CM）.片附?坟曜的疋曼行機女??TOrd XH； ■ 健入4更辛既的冋电 迭$ 0? ：dl正文?仿宋▼仿宋JS2 ■WD戈*盾?Tilt-X?（5CM）.片附?坟曜的疋曼行機女?? TOrd XH； ■ I-坐 宋 HO I 11*1 I HI ? WI ? ?1 *201 1221 12*1 ??? 128， ?30 I32? U4? ??? ?38? 孕！ ?2? ?? ?4( KB 奇召当：“三三涓滾 少?A?妥命L ? 2 I 电！ 121 沒丿二1』==UA0 4301201?力屮闻读① ▼眄▼ B I H A. A X [s x) BH格Jtifl鑿方法.(loc - lictosoft loxd :艾件刃??2）視田辺3?入Q）格式?）工貝①衷移如命口⑩帝肋QJ） U .J J 3 -J = 2 繁■劲 ilLd 窗口；卩 明 0)： JIL2P13-6-4 玄 包駐 按 6~?a?_6??■口?％?於? 3 宏名?） 3?在“宏名”字样下方边框输入图片格式，下拉“宏的位置”选择框，调整至Normal.dot（共用模板），并点击新窗口中，创建按钮； 4.完成第3步后，进入以下界面; 5.将新界面内所有内容调整为： Sub图片格式0 Dim H Dim w Dim N N = 0 Myheigth = 5 For Each ishape In ActiveDocument. InlineShapes H = ishape. Height w = ishape. Width N = N + 1 ishape.Height = 2 345 * Myheigth ishape. Width = w * ishape.Height / H ishape,Borders (wdBorderLeft) ? LineStyle wdLineStyleThickThinSmalIGap ishape. Borders (wdBorderLef t). LineWidth = wdLineWidth450pt ishape. Borders (wdBorderLef t). Color = wdColorGreen ishape.Borders (wdBorderRight) ? LineStyle wdLineSty1eThinTh ickSma1IGap ishape. Borders (wdBorderRight). LineWidth = wdLineWidth450pt ishape. Borders (wdBorderRight). Color = wdColorGreen ishape. Borders (wdBorderBottom) ? LineStyle wdLineStyleThinThickSma1IGap ishape,Borders (wdBorderBottom). LineWidth = wdLineWidth450pt ishape.Borders (wdBorderBottom) .Color = wdColorGreen ishape. Borders (wdBorderTop) ? LineStyle wdLineStyleThickThinSmalIGap ishape.Borders (wdBorderTop). LineWidth = wdLineWidth450pt ishape,Borders (wdBorderTop) .Color = wdColorGreen Next ishape End Sub6.完成后点击左上方“保存键”，然后点击右上角“”，关闭界面 End Sub 6. 完成后点击左上方“保存键”，然后点击右上角“ ”，关闭界面 后，会回到原word文档; 7.在word文档中,再次按住“ALT”按键的情况下，点击“F8”按键，再 次出现对话框，点击运行，所有照片格式调整完毕。 注意点： 1. 因此方法调整照片格式为编码调整，一次性调整结束后，点击 按键，无法返回所有照片调整前情况。 2. 调整后为统一宽度（5cm）,因此请拍照时统一横截面拍摄，尽量不 要采用竖向拍摄。 为了便于操作可建立按钮，实施点击式操作，具体方法如下： 1.在word X具栏界面右击，选择最后自定义一栏，进入以下界面; 2.在“命令”界面，下拉选择项，选择“宏”