word插入圖片並調整大小

imingho

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

複製代碼