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键退出，结束宏的运行 图片高度 图片宽度 起始行 要插入多少行，就要多少个插入 共插入行数