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

《word调整图片大小,excel插入行两个宏使用》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、宏的打开：在工具中有，或者是alt+F8Word中调整图片宏：Subsetpicsize()DimjForj=1ToActiveDocument.InlineShapes.CountActiveDocument.InlineShapes(j).Height=160图片高度ActiveDocument.InlineShapes(j).Width=210图片宽度NextjEndSub这个宏是用于word中，统一调整图片的大小，可以一次性将所有的图片调整到统一的大小。Excel中插入行：Sub插入行()Range

2、("A1")起始行.SelectDoWhileSelection<>""Selection.Offset(1,0).SelectSelection.EntireRow.InsertSelection.EntireRow.InsertSelection.EntireRow.InsertSelection.EntireRow.InsertSelection.EntireRow.InsertSelection.EntireRow.InsertSelection.EntireRow.InsertSelection.

3、EntireRow.InsertSelection.EntireRow.InsertSelection.EntireRow.InsertSelection.EntireRow.InsertSelection.EntireRow.InsertSelection.EntireRow.InsertSelection.EntireRow.InsertSelection.EntireRow.InsertSelection.EntireRow.InsertSelection.EntireRow.InsertSelect

4、ion.EntireRow.InsertSelection.EntireRow.InsertSelection.EntireRow.InsertSelection.EntireRow.InsertSelection.EntireRow.Insert要插入多少行，就要多少个插入Selection.Offset(22,0)共插入行数.SelectLoopRange("A1").SelectEndSub这个宏是用于在excel中批量插入空行比如要在每一行的后面都插入22个空行就可以运行此宏结果如下注意：由于没有学

5、过VB语言，插入行这个宏，没有完善，不能自动停止，当你需要插入空行的行运行过后直接按ESC键退出，结束宏的运行