word调整图片大小,excel插入行两个宏的使用.doc

宏的打开：在工具中有，或者是alt+F8 Word中调整图片宏： Sub setpicsize Dim j For j 1 To ActiveDocument.InlineShapes.Count ActiveDocument.InlineShapes j .Height 160 ActiveDocument.InlineShapes j .Width 210 Next j End Sub 这个宏是用于word中，统一调整图片的大小，可以一次性将所有的图片调整到统一的大小。 Excel中插入行： Sub 插入行 Range A1 .Select Do While Selection Selection.Offset 1, 0 .Select Selection.EntireRow.Insert Selection.EntireRow.Insert Selection.EntireRow.Insert Selection.EntireRow.Insert Selection.EntireRow.Insert Selection.EntireRow.Insert Selection.EntireRow.Insert Selection.EntireRow.Insert Selection.EntireRow.Insert Selection.EntireRow.Insert Selection.EntireRow.Insert Selection.EntireRow.Insert Selection.EntireRow.Insert Selection.EntireRow.Insert Selection.EntireRow.Insert Selection.EntireRow.Insert Selection.EntireRow.Insert Selection.EntireRow.Insert Selection.EntireRow.Insert Selection.EntireRow.Insert Selection.EntireRow.Insert Selection.EntireRow.Insert Selection.Offset 22, 0 .Select Loop Range A1 .Select End Sub 这个宏是用于在excel中批量插入空行比如 要在每一行的后面都插入22个空行就可以运行此宏 结果如下 注意：由于没有学过VB语言，插入行这个宏，没有完善，不能自动停止，当你需要插入空行的行运行过后直接按ESC键退出，结束宏的运行 图片高度 图片宽度 起始行 要插入多少行，就要多少个插入 共插入行数