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

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

1、个人收集整理勿做商业用途宏的打开:在工具中有，或者是alｔ+F8Woｒd中调整图片宏:Sub　setpiｃsize()DimｊＦoｒj=１　Ｔｏ　ActiveDocｕmeｎｔ.InlｉneShapｅs.ＣountＡctiveDocumeｎt.ＩnlineShaｐes(ｊ）.Hｅight=1６0图片高度AcｔiveＤocｕmｅnt.IｎｌineShapeｓ（j).Ｗidth=　２１０图片宽度NeｘtjEndSub这个宏是用于wｏｒｄ中，统一调整图片的大小,可以一次性将所有的图片调整到统一的大小。Ｅxｃel中插入行：Ｓuｂ　插入行()Rａｎｇe(＂Ａ1＂）起始行.S

2、electDoWhileSeleｃtion　<＞＂"Ｓｅｌection.Oｆｆseｔ（1,0）.SelecｔSelｅctｉon.EntirｅRow.InseｒtＳelｅction.EntireRow.IｎｓertSeｌｅction．EｎtireＲoｗ．InseｒtSeｌecｔion．EｎtiｒｅRow．InｓertSelｅctｉon．EntiｒeRow.InｓｅrtSelection.EｎtirｅRｏw.InseｒtSeleｃtioｎ.EnｔｉrｅRow.IｎsertSeｌection.EｎtireRow．InｓertSｅlｅｃtｉon.ＥｎtireRｏｗ.Iｎ

3、sertＳeleｃtion．EｎｔiｒeＲow.ＩnserｔSｅleｃｔion.EntiｒｅRow.InseｒtSｅlectiｏn.EnｔiｒeRow．IｎseｒtSelｅction.EntiｒｅRow.InsertＳelectｉｏn．ＥｎtｉrｅRｏw.IｎseｒｔSelectｉon.EnｔireRow.InseｒtSeleｃtioｎ.EntｉreＲoｗ.InｓｅrtSｅｌｅction.EntiｒeＲow.InｓerｔＳｅlｅctｉon.ＥｎtireRow.InｓerｔSelecｔioｎ．EｎtireRow.InｓertSelecｔioｎ．EntiｒｅＲow.

4、Insert个人收集整理勿做商业用途Sｅｌｅctｉoｎ.EnｔiｒｅＲow．ＩnsｅrtSelｅcｔｉｏn.EｎtireＲoｗ．Iｎsｅrt要插入多少行，就要多少个插入Selection.Offset（2２，0）共插入行数.SelｅctLｏopRange("A1＂).SeｌectEnd　Suｂ这个宏是用于在ｅxcel中批量插入空行比如要在每一行的后面都插入２２个空行就可以运行此宏结果如下个人收集整理勿做商业用途注意：由于没有学过ＶB语言，插入行这个宏，没有完善,不能自动停止，当你需要插入空行的行运行过后直接按ＥＳC键退出,结束宏的运行