彰化一整天的論壇

 找回密碼
 立即註冊
查看: 151|回復: 0

word插入圖片並調整大小

[複製鏈接]
發表於 2017-9-8 17:59:09 | 顯示全部樓層 |閱讀模式
  1. Sub 插入圖片()

  2.     Dim s As String
  3.     Dim a, b As Integer
  4.     Dim n As Integer
  5.     a = InputBox("請輸入開始筆數 ", , 1)
  6.     b = InputBox("請輸入結束筆數", , 1)
  7.    
  8.     n = ActiveDocument.InlineShapes.Count
  9.     For i = a To b
  10.         s = Format(i, "00")
  11.         Selection.InlineShapes.AddPicture FileName:= _
  12.             Word.ActiveDocument.Path & "\6111\6111" & s & ".JPG", LinkToFile:=False, SaveWithDocument:= _
  13.             True
  14.         ActiveDocument.InlineShapes.Item(i + n - a + 1).Select
  15.         
  16.         Selection.InlineShapes(1).Height = 90.2
  17.         Selection.InlineShapes(1).Width = 73.4
  18.         Selection.MoveDown Unit:=wdLine, Count:=1
  19.         
  20.     Next
  21. End Sub
複製代碼


回復

使用道具 舉報

您需要登錄後才可以回帖 登錄 | 立即註冊

本版積分規則

 ㄚ母滴雞湯
 員林香純滴雞精

Archiver|手機版|小黑屋|彰化一整天的論壇(Excel,Office)  |网站地图

GMT+8, 2018-4-26 05:44 , Processed in 0.049104 second(s), 12 queries , Apc On.

Powered by Discuz! X3.2

© 2001-2013 Comsenz Inc.

快速回復 返回頂部 返回列表