图片格式调整方法幻灯片.doc

图片格式调整方法 通过我们柴丰丰同志的攻坚，我们完成了将所有图片一次性插入WORD文本后，可调整统一宽度（5CM），并附加边框的宏运行模式。 具体方法如下： 打开word文档； 按住ALT按键不要放手，再按F8按键，蹦出一个窗口； 在“宏名”字样下方边框输入图片格式，下拉“宏的位置”选择框，调整至Normal.dot(共用模板)，并点击新窗口中，创建按钮； 完成第3步后，进入以下界面； 将新界面内所有内容调整为： Sub 图片格式() 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 = 28.345 * Myheigth ishape.Width = w * ishape.Height / H ishape.Borders(wdBorderLeft).LineStyle = wdLineStyleThickThinSmallGap ishape.Borders(wdBorderLeft).LineWidth = wdLineWidth450pt ishape.Borders(wdBorderLeft).Color = wdColorGreen ishape.Borders(wdBorderRight).LineStyle = wdLineStyleThinThickSmallGap ishape.Borders(wdBorderRight).LineWidth = wdLineWidth450pt ishape.Borders(wdBorderRight).Color = wdColorGreen ishape.Borders(wdBorderBottom).LineStyle = wdLineStyleThinThickSmallGap ishape.Borders(wdBorderBottom).LineWidth = wdLineWidth450pt ishape.Borders(wdBorderBottom).Color = wdColorGreen ishape.Borders(wdBorderTop).LineStyle = wdLineStyleThickThinSmallGap ishape.Borders(wdBorderTop).LineWidth = wdLineWidth450pt ishape.Borders(wdBorderTop).Color = wdColorGreen Next ishape End Sub 完成后点击左上方“保存键”，然后点击右上角“”，关闭界面后，会回到原word文档； 在word文档中，再次按住“ALT”按键的情况下，点击“F8”按键，再次出现对话框，点击运行，所有照片格式调整完毕。 注意点： 因此方法调整照片格式为编码调整，一次性调整结束后，点击按键，无法返回所有照片调整前情况。 调整后为统一宽度（5cm），因此请拍照时统一横截面拍摄，尽量不要采用竖向拍摄。 为了便于操作可建立按钮，实施点击式操作，具体方法如下： 在word工具栏界面右击，选择最后自定义一栏，进入以下界面； 在“命令”界面，下拉选择项，选择“宏”选项； 鼠标左键按住图标，不要放手，将图标移动到工具栏，完成快捷键设置，今后插入图片后仅需点击此按键即可。 注意点：使用“宏”编辑模式后，在部分杀毒软件会进行拦截，请无需恐慌，并根据提示进行操作，或者在使用时关闭部分杀毒软件。此为正常现象。