Excel教程下載和軟件下載中心,Microsoft技術社區聯盟成員,全球極具影響力的Excel門戶,Office技術培訓社區

Word實現多種要求批量插入圖片

2014-09-22  作者:ExcelHome  閱讀:

下載文檔:http://t.cn/zRq0VBb ,啟用并運行Word宏,批量插入圖片后可以實現如下效果:
1、可以將圖片的名稱顯示在圖片下方;
2、圖片的寬度大小可按要求任意設置(修改宏代碼里的相關數值),實現批量等比例縮放。具體操作方法件如下動畫演示:



宏代碼如下
Sub setpicsize() '設置圖片大小
Dim n '圖片個數
On Error Resume Next '忽略錯誤
For n = 1 To ActiveDocument.InlineShapes.Count  'InlineShapes類型圖片
ActiveDocument.InlineShapes(n).Width = 360  '設置圖片寬度 300px
Next n
For n = 1 To ActiveDocument.Shapes.Count  'Shapes類型圖片
ActiveDocument.Shapes(n).Width = 360  '設置圖片寬度 300px
Next n
End Sub
轉載請注明來源"ExcelHome"并保留原文鏈接。
固定鏈接:http://www.fvtgnn.tw/lesson/animation/Word/1384.html
分享到:
Copyright 1999 - 2017 Excel Home.All Rights Reserved.
本站特聘法律顧問:徐懷玉律師 李志群律師   滬ICP備11019229號

滬公網安備 31011702000001號

征信       
35选7摇奖器