欢迎来到天天文库
浏览记录
ID:62154162
大小:36.50 KB
页数:3页
时间:2021-04-19
《word调整图片大小excel插入行两个宏的使用.doc》由会员上传分享,免费在线阅读,更多相关内容在教育资源-天天文库。
1、个人收集整理勿做商业用途宏的打开:在工具中有,或者是alt+F8Word中调整图片宏:Sub setpicsize()DimjForj=1 To ActiveDocument.InlineShapes.CountActiveDocument.InlineShapes(j).Height=160图片高度ActiveDocument.InlineShapes(j).Width= 210图片宽度NextjEndSub这个宏是用于word中,统一调整图片的大小,可以一次性将所有的图片调整到统一的大小。Excel中插入行:Sub 插入行()Range("A1")起始行.S
2、electDoWhileSelection <>""Selection.Offset(1,0).SelectSelection.EntireRow.InsertSelection.EntireRow.InsertSelection.EntireRow.InsertSelection.EntireRow.InsertSelection.EntireRow.InsertSelection.EntireRow.InsertSelection.EntireRow.InsertSelection.EntireRow.InsertSelection.EntireRow.In
3、sertSelection.EntireRow.InsertSelection.EntireRow.InsertSelection.EntireRow.InsertSelection.EntireRow.InsertSelection.EntireRow.InsertSelection.EntireRow.InsertSelection.EntireRow.InsertSelection.EntireRow.InsertSelection.EntireRow.InsertSelection.EntireRow.InsertSelection.EntireRow.
4、Insert个人收集整理勿做商业用途Selection.EntireRow.InsertSelection.EntireRow.Insert要插入多少行,就要多少个插入Selection.Offset(22,0)共插入行数.SelectLoopRange("A1").SelectEnd Sub这个宏是用于在excel中批量插入空行比如要在每一行的后面都插入22个空行就可以运行此宏结果如下个人收集整理勿做商业用途注意:由于没有学过VB语言,插入行这个宏,没有完善,不能自动停止,当你需要插入空行的行运行过后直接按ESC键退出,结束宏的运行
此文档下载收益归作者所有