請問office2000的word

CornGuo wrote:
直接用我的電腦打開圖片的資料夾，選擇要貼上的圖之後，
用拖曳的方式拖進文件就可以囉 :p

Sub HyperlinksToInlinePictures()
Dim i As Long
Dim strAddress As String
Dim rngPicture As Range
Dim myInlineShape As InlineShape
Dim myILProp
For i = ActiveDocument.Hyperlinks.Count To 1 Step -1
strAddress = ActiveDocument.Hyperlinks( i ).Address
Select Case UCase(Right(strAddress, 4))
Case ".JPG", ".JPE", "JPEG", ".EMF", ".WMF", _
"JFIF", ".PNG", ".BMP", ".EPS", ".TIF", "TIFF", _
".GIF", ".GFA", ".EMZ", ".DIB"
' other formats could be added, _
' if they are recognized by Word automatically
Set rngPicture = ActiveDocument.Hyperlinks( i ).Range
rngPicture.Delete
Set myInlineShape = _
ActiveDocument.InlineShapes.AddPicture( _
FileName:=strAddress, _
LinkToFile:=True, _
SaveWithDocument:=False, _
Range:=rngPicture)
' If you want to keep the path of the files in the doc:
' myInlineShape.Range.InsertAfter strAddress


' Scale all pictures to 6 cm width:
With myInlineShape
myILProp = .Height / .Width
.Width = CentimetersToPoints( 6 )
.Height = .Width * myILProp
End With
Case Else
' (add warning: unknown format?)
End Select
Next i
End Sub

.Width = CentimetersToPoints( 6 )